0025748: Parallel version of progress indicator
[occt.git] / tests / bugs / moddata_2 / bug22572
1 puts "============"
2 puts "OCC22572"
3 puts "============"
4 puts ""
5 ###########################################################################
6 # Support of progress indicator in RWStl and optimization of reading Ascii.
7 ###########################################################################
8
9 set BugNumber OCC22572
10
11 catch { pload XSDRAW }
12 vinit
13 XProgress -t
14 set List1 [meshfromstl result [locate_data_file bearing.stl]]
15 puts "----------------------"
16 XProgress +t
17 set List2 [meshfromstl result [locate_data_file bearing.stl]]
18
19 set status 0
20
21 if { ${List1} != ${List2} && [ regexp {Progress:} $List2 ] } {
22     puts "$BugNumber OK"
23 } else {
24     puts  "Faulty $BugNumber"
25 }