tests/bugs/mesh/bug24593_2

   1 puts "========"
   2 puts "OCC24593"
   3 puts "========"
   4 puts ""
   5 #####################################
   6 # Missing surfaces from STL output
   7 #####################################
   8
   9 pload XDE
  10
  11 set refnbfaces 23
  12
  13 stepread [locate_data_file bug24593_281946.stp] a *
  14 renamevar a_1 result
  15
  16 #1
  17 checkview -display result -3d -path ${imagedir}/${test_image}.png
  18
  19 #2
  20 set log1 [explode result f]
  21 set nbfaces [llength $log1]
  22
  23 #3
  24 set log2 [tricheck result]
  25
  26 if { $nbfaces != $refnbfaces } {
  27   puts "Error : Shape restored incorrectly - number of faces is different than expected value ($nbfaces != $refnbfaces)"
  28 }
  29
  30 if { [llength $log2] != 0 } {
  31   puts "Error : Some faces has failed to mesh"
  32 }