Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug441_2
1 puts "========================"
2 puts " OCC441 "
3 puts "(case 2)"
4 puts "========================"
5 puts ""
6 ###############################
7 ## Instability of BRepCheck check status. 
8 ###############################
9
10 restore [locate_data_file OCC441b.brep] result
11
12 decho off
13 set err [checkshape result r]
14 decho on
15
16 set j 1
17 repeat 25 {
18     restore [locate_data_file OCC441b.brep] result
19     decho off
20     set err1 [checkshape result r]
21     decho on
22     if { $err != $err1 } {
23         puts [format " Faulty OCC441: function CHECKSHAPE works wrongly on %s time" $j]
24         break
25     } else {
26         puts [format " OCC441  OK: function CHECKSHAPE works properly %s time" $j]
27     }
28     incr j
29 }
30
31 set 2dviewer 0