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 }