tests/bugs/moddata_2/bug22746_3

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