0026796: The result of General Fuse operation is self-intersecting shape

Adding test case

diff --git a/tests/bugs/modalg_6/bug26796 b/tests/bugs/modalg_6/bug26796
new file mode 100644 (file)
index 0000000..f8321cb
--- /dev/null
+++ b/tests/bugs/modalg_6/bug26796
@@ -0,0 +1,28 @@
+puts "========"
+puts "OCC26796"
+puts "========"
+puts ""
+#################################################
+# General Fuse operation error
+#################################################
+
+box b1 10 10 10
+box b2 10.00000018 0 0 10 10 10
+explode b2 f
+copy b2_1 f
+trotate f 0 5 5 0 1 0 10
+mksurface s f
+mkface f s -100 100 -100 100
+
+bclearobjects
+bcleartools
+baddobjects b1 b2 f
+bfillds
+bbuild result
+bopcheck result
+
+checkshape result
+checknbshapes result -solid 4
+checkprops result -v 2852.9 -s 41403.1
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png