1 puts "TODO ?OCC24156 MacOS: Tcl Exception: File bearing.stl could not be found"
2 puts "TODO ?OCC24156 MacOS: TEST INCOMPLETE"
8 ###########################################################################
9 # Support of progress indicator in RWStl and optimization of reading Ascii.
10 ###########################################################################
12 set BugNumber OCC22572
14 catch { pload XSDRAW }
17 set List1 [meshfromstl result [locate_data_file bearing.stl]]
18 puts "----------------------"
20 set List2 [meshfromstl result [locate_data_file bearing.stl]]
24 if { ${List1} != ${List2}} {
30 if { [ regexp {Progress:} $List2 ] } {
31 puts "${BugNumber} OK"
34 puts "${BugNumber} Faulty"
38 puts "Faulty $BugNumber"