--- /dev/null
+puts "================"
+puts "OCC28551"
+puts "================"
+puts ""
+#######################################################################
+# Bad result of general fuse
+#######################################################################
+
+restore [locate_data_file bug28551_ts_orig.brep] ts0
+restore [locate_data_file bug28551_pc_orig.brep] pc
+
+DT_ShapeDivide ts ts0
+
+bfuzzyvalue 1.0
+bclearobjects
+bcleartools
+baddobjects ts
+baddtools pc
+
+bfillds
+
+bbuild result
+
+checkshape result
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png