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}} {
  22    set status 0
  23 } else {
  24     set status 1
  25 }
  26
  27 if { [ regexp {Progress:} $List2 ] } {
  28     puts "${BugNumber} OK"
  29     set status 0
  30 } else {
  31     puts "${BugNumber} Faulty"
  32     set status 1
  33 }
  34 if { $status != 0 } {
  35     puts  "Faulty $BugNumber"
  36 } else {
  37     puts  "OK $BugNumber"
  38 }
  39
  40 set 3dviewer 0
  41
  42