puts "============"
puts "OCC22790"
puts "============"
puts ""
#######################################################################
# Boolean opeation Fuse fails.
#######################################################################

set BugNumber OCC22790

puts "Load shape ..."
restore [locate_data_file OCC22790-cx.brep] b 

explode b
copy b_1 b1
copy b_3 b2

bop b1 b2

bopfuse result

checkprops result -s 1.21408e+09 
checkshape result

checknbshapes result -vertex 11 -edge 12 -wire 4 -face 2 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 30
checkview -display result -3d -path ${imagedir}/${test_image}.png