Adding test cases from grid chl
[occt.git] / tests / bugs / moddata / bug324
1 puts "========================"
2 puts " OCC324 "
3 puts "========================"
4 puts ""
5 #################################################################
6 ## The command "intersect" applied to the given arguments "s1" (plane) and "s2" (cylinder) leads 
7 ## to the program hang-up.
8 #################################################################
9
10 restore [locate_data_file OCC324a.draw] s1 
11 restore [locate_data_file OCC324b.draw] s2
12
13 if [catch {intersect result s1 s2} catch_result] {
14     puts "Faulty OCC324: function INTERSECT works wrongly"
15 } else {
16     puts "OCC324 OK: function INTERSECT works properly"
17 }
18
19 set 2dviewer 0
20
21