--- /dev/null
+puts "============"
+puts "OCC23585"
+puts "============"
+puts ""
+######################################################
+# Boolean Fuse Operation Fails
+######################################################
+
+restore [locate_data_file bug23585a.brep] p
+restore [locate_data_file bug23585b.brep] v
+
+checkshape p
+tolerance p
+
+checkshape v
+tolerance v
+
+bop p v
+bopfuse result
+
+checkprops result -s 14796.8
+
+checkshape result
+
+set nbshapes_expected "
+Number of shapes in result
+ VERTEX : 18
+ EDGE : 30
+ WIRE : 14
+ FACE : 14
+ SHELL : 1
+ SOLID : 1
+ COMPSOLID : 0
+ COMPOUND : 1
+ SHAPE : 79
+"
+checknbshapes result -ref ${nbshapes_expected} -t -m "Result obtained by Boolean cut operation"
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png