Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug431
1 puts "========================"
2 puts " OCC431 "
3 puts "========================"
4 puts ""
5 #####################################
6 ## Intersection of two surfaces is not compleate curve. 
7 #####################################
8
9 restore [locate_data_file OCC431a.draw] su1 
10 restore [locate_data_file OCC431b.draw] su2
11
12 intersect result su1 su2
13
14 set che [whatis result]
15
16 if { ![regexp {curve} $che] || ![regexp {3d} $che]} {
17     puts "Faulty OCC431 : Command INTERSECT works WRONGLY"
18 } else {
19     puts "OCC431 OK  :  Command INTERSECT works properly"
20 }
21
22 set 2dviewer 0
23