puts "========"
puts "OCC24593"
puts "========"
puts ""
#####################################
# Missing surfaces from STL output
#####################################

pload XDE

set refnbfaces 69

stepread [locate_data_file bug24593_285330.stp] a *
renamevar a_1 result

#1
checkview -display result -3d -path ${imagedir}/${test_image}.png

#2
set log1 [explode result f]
set nbfaces [llength $log1]

#3
set log2 [tricheck result]

if { $nbfaces != $refnbfaces } {
  puts "Error : Shape restored incorrectly - number of faces is different than expected value ($nbfaces != $refnbfaces)"
}

if { [llength $log2] != 0 } {
  puts "Error : Some faces has failed to mesh"
}