a87752f3 |
1 | puts "========================" |
2 | puts " OCC441 " |
3 | puts "(case 1)" |
4 | puts "========================" |
5 | puts "" |
6 | ############################### |
7 | ## Instability of BRepCheck check status. |
8 | ############################### |
9 | |
10 | restore [locate_data_file OCC441a.brep] result |
11 | |
a87752f3 |
12 | set err [checkshape result r] |
a87752f3 |
13 | |
14 | set j 1 |
15 | repeat 25 { |
16 | restore [locate_data_file OCC441a.brep] result |
a87752f3 |
17 | set err1 [checkshape result r] |
a87752f3 |
18 | if { $err != $err1 } { |
19 | puts [format " Faulty OCC441: function CHECKSHAPE works wrongly on %s time" $j] |
20 | break |
21 | } else { |
22 | puts [format " OCC441 OK: function CHECKSHAPE works properly %s time" $j] |
23 | } |
24 | incr j |
25 | } |
26 | |
5747059b |
27 | checkview -display result -2d -path ${imagedir}/${test_image}.png |