Integration part of tests of grid chl
[occt.git] / tests / bugs / moddata / bug163
1
2 puts "========"
3 puts "OCC163"
4 puts "========"
5 puts ""
6 ###########################################################
7 ## The result of extrema command is not correct.
8 ## We have only two "max" extrema, but we should have "min" and "max".
9 ###########################################################
10
11 restore [locate_data_file OCC130.brep] res 
12
13 puts [checkshape res]
14
15 line l -120 -100 400 0 0 1
16 mksurface s res
17
18 set che [extrema l s]
19 set err [llength $che]
20 if { $err < 2} {
21     puts "Error OCC163 (amount): command extrema does NOT work properly"
22 }
23
24 set dum1 [dump [lindex $che 0]]
25 set dum2 [dump [lindex $che 1]]
26
27 if { $dum1 == $dum2} {
28     puts "Error OCC163 (dump): command extrema does NOT work properly"
29 }
30