puts "TODO OCC22033 ALL: Error : The area of result shape is"
puts "TODO OCC22033 ALL: Faulty shapes in variables faulty_1 to faulty_"
if { [regexp {Debug mode} [dversion]] } {
  puts "TODO OCC22033 ALL: TEST INCOMPLETE"
  puts "TODO OCC22033 ALL: Exception"
}

puts "================"
puts "OCC152"
puts "SAM1178"
puts "================"
puts ""
#################################################################
## SAM1178(#1871): Bad escaped result after a cut operation on the shape.
#################################################################

restore [locate_data_file OCC152.brep] sh 
explode sh

checkshape sh_1
checkshape sh_2

bcut result sh_1 sh_2
checkshape result

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