puts "============"
puts "OCC22237"
puts "============"
puts ""
#######################################################################
# Regression in STEP reader
#######################################################################

catch { pload XDE }

set BugNumber OCC22237

set filepath [locate_data_file OCC22237.stp]
if [catch { stepread $filepath a * } catch_result] {
   puts "Faulty ${BugNumber}"
} else {
  tpcompound result

checkprops result -s 1.50067e+07 
checkshape result

checknbshapes result -vertex 136 -edge 236 -wire 102 -face 102 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 579
}

checkview -display result -2d -path ${imagedir}/${test_image}.png