5 ###########################################################################
6 # Progress indicator in ShapeHealing
7 ###########################################################################
13 catch { pload XSDRAW }
15 restore [locate_data_file OCC22761-TransmissionTestModel5-notfixed.brep] a
18 set List1 [fixshape result a]
19 puts "----------------------"
21 set List2 [fixshape result a]
25 if { ${List1} != ${List2}} {
31 if { [ regexp {Progress:} $List2 ] } {
32 puts "${BugNumber} OK"
35 puts "${BugNumber} Faulty"
40 puts "Faulty $BugNumber"
45 checkview -display result -3d -path ${imagedir}/${test_image}.png
46 checkprops result -s 7.46496e+06