Adding test cases from grid chl
[occt.git] / tests / bugs / moddata / bug324
CommitLineData
a87752f3 1puts "========================"
2puts " OCC324 "
3puts "========================"
4puts ""
5#################################################################
6## The command "intersect" applied to the given arguments "s1" (plane) and "s2" (cylinder) leads
7## to the program hang-up.
8#################################################################
9
10restore [locate_data_file OCC324a.draw] s1
11restore [locate_data_file OCC324b.draw] s2
12
13if [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
19set 2dviewer 0
20
21