Adding test cases from grid chl
[occt.git] / tests / bugs / moddata / bug237
1 puts "================"
2 puts "OCC237"
3 puts "================"
4 puts ""
5 #######################################################
6 ## Hang-ups during the intersection of attached surfaces
7 #######################################################
8
9 restore [locate_data_file OCC236b.rle] su1 
10 ############### checkshape su1 # is not a topological shape
11 restore [locate_data_file OCC237b.rle] su2
12 ############### checkshape su2 # is not a topological shape
13
14 if [catch {intersect result su1 su2 }] {
15     set mistake 1
16 } else {
17     set mistake 0
18 }
19
20 if { $mistake != 0} {
21     puts "Faulty OCC237: Intersection was made WRONGLY"
22 } else {
23     puts "OCC237 OK  : Intersection command works properly"
24 }
25
26 set 2dviewer 0
27