0025748: Parallel version of progress indicator
[occt.git] / tests / bugs / moddata_2 / bug22746_1
1 puts "============"
2 puts "OCC22746"
3 puts "============"
4 puts ""
5 ###########################################################################
6 # Progress indicator in ShapeHealing
7 ###########################################################################
8
9 set BugNumber OCC22746
10
11 catch { pload XSDRAW }
12 restore [locate_data_file OCC22746-om.brep] a 
13 vinit
14 XProgress -t
15 set List1 [fixshape result a]
16 puts "----------------------"
17 XProgress +t
18 set List2 [fixshape result a]
19
20 set status 0
21
22 if { ${List1} != ${List2}} {
23     set status 0
24 } else {
25     set status 1
26 }
27
28 if { [ regexp {Progress:} $List2 ] } {    
29     puts "${BugNumber} OK"
30     set status 0
31 } else {
32     puts "${BugNumber} Faulty"
33     set status 1
34 }
35
36 if { $status != 0 } {
37     puts  "Faulty $BugNumber"
38 } else {
39     puts  "OK $BugNumber"
40 }
41
42 checkview -display result -3d -path ${imagedir}/${test_image}.png
43 checkprops result -s 16473.3