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 -tclOutput
  14 XProgress -t
  15 set List1 [meshfromstl result [locate_data_file bearing.stl]]
  16 puts "----------------------"
  17 XProgress +t
  18 set List2 [meshfromstl result [locate_data_file bearing.stl]]
  19
  20 set status 0
  21
  22 if { ${List1} != ${List2} && [ regexp {Progress:} $List2 ] } {
  23     puts "$BugNumber OK"
  24 } else {
  25     puts  "Faulty $BugNumber"
  26 }