puts "================================="
puts "FUSE of OCC213-1.brep and  OCC213-2.brep"
puts "Case is duplicate of chl 918 A6, bug OCC213 "
puts "================================="

restore [locate_data_file OCC213-1.brep] a
restore [locate_data_file OCC213-2.brep] b

bop a b
bopfuse result

checkprops result -s 4835.45
checkview -display result -2d -otherwise { a b } -s -path ${imagedir}/${test_image}.png
