Adding test cases from grid chl
[occt.git] / tests / bugs / moddata / bug271
1
2 puts "========================"
3 puts " OCC271 "
4 puts "========================"
5 puts ""
6
7 restore [locate_data_file OCC271a.rle] su1 
8 restore [locate_data_file OCC271b.rle] su2
9
10 set U1 2.315721254379057e-16
11 set U2 0.01131870392278708
12 set V1 226.9760100729095
13 set V2 203.7283534809051
14
15 intersect result su1 su2 $U1 $V1 $U2 $V2
16
17 set che [whatis result]
18
19 if { ![regexp {3d} $che] || ![regexp {curve} $che]} {
20     puts "Faulty OCC271: command INTERSECT works wrongly"
21 } else {
22     puts "OCC271 OK : command INTERSECT works properly"
23 }
24
25 set 2dviewer 0
26