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