352ffd73 |
1 | |
2 | puts "=========" |
3 | puts " OCC935 " |
4 | puts "(case 2)" |
5 | puts "=========" |
6 | puts "" |
7 | ############################### |
8 | ## instability in checkshape in KAS:dev version. |
9 | ############################### |
10 | |
11 | restore [locate_data_file OCC935_2.brep] result |
12 | |
13 | decho off |
14 | set err [checkshape result] |
15 | decho on |
16 | |
17 | set j 1 |
18 | repeat 25 { |
19 | restore [locate_data_file OCC935_2.brep] result |
20 | decho off |
21 | set err1 [checkshape result] |
22 | decho on |
23 | if { $err != $err1 } { |
24 | puts [format " Faulty OCC935 (case 2): function CHECKSHAPE works wrongly on %s time" $j] |
25 | break |
26 | } else { |
27 | puts [format " OCC935 (case 2) OK: function CHECKSHAPE works properly %s time" $j] |
28 | } |
29 | incr j |
30 | } |
31 | |
32 | set 2dviewer 0 |