puts "================"
puts "OCC25228"
puts "================"
puts ""
#######################################################################
# Wrong result of General Fuse operation for an edge and a face.
#######################################################################

restore [locate_data_file bug25228_qs.brep] qs

explode qs
copy qs_1 b1
copy qs_2 b2

bclearobjects
bcleartools
baddobjects b1 b2

bfillds
bbuild result

checkprops result -s 227.765 
checkshape result

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