Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug431
CommitLineData
a87752f3 1puts "========================"
2puts " OCC431 "
3puts "========================"
4puts ""
5#####################################
6## Intersection of two surfaces is not compleate curve.
7#####################################
8
9restore [locate_data_file OCC431a.draw] su1
10restore [locate_data_file OCC431b.draw] su2
11
12intersect result su1 su2
13
14set che [whatis result]
15
16if { ![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
22set 2dviewer 0
23