tests/bugs/moddata_2/bug22746_2

   1 puts "============"
   2 puts "OCC22746"
   3 puts "============"
   4 puts ""
   5 ###########################################################################
   6 # Progress indicator in ShapeHealing
   7 ###########################################################################
   8
   9 set BugNumber OCC22746
  10
  11 catch { pload XSDRAW }
  12 restore [locate_data_file OCC22746-trampafus-notfixed.brep] a
  13 vinit
  14 XProgress -t
  15 set List1 [fixshape result a]
  16 puts "----------------------"
  17 XProgress +t
  18 set List2 [fixshape result a]
  19
  20 set status 0
  21
  22 if { ${List1} != ${List2}} {
  23     set status 0
  24 } else {
  25     set status 1
  26 }
  27
  28 if { [ regexp {Progress:} $List2 ] } {
  29     puts "${BugNumber} OK"
  30     set status 0
  31 } else {
  32     puts "${BugNumber} Faulty"
  33     set status 1
  34 }
  35
  36 if { $status != 0 } {
  37     puts  "Faulty $BugNumber"
  38 } else {
  39     puts  "OK $BugNumber"
  40 }
  41
  42 checkview -display result -3d -path ${imagedir}/${test_image}.png
  43 checkprops result -s 1.13819e+07 -eps 0.1