0026745: Boolean Cut produces invalid result

Creation of test cases for issues #26745 and #26748

tests/bugs/modalg_6/bug26745

@@ -0,0 +1,25 @@
+puts "========"
+puts "OCC26745"
+puts "========"
+puts ""
+#################################################
+# Boolean Cut produces invalid result
+#################################################
+
+restore [locate_data_file bug26745_BodyA.brep] a
+restore [locate_data_file bug26745_BodyB.brep] b
+
+bclearobjects
+bcleartools
+baddobjects a
+baddtools b
+bfillds
+
+# CUT
+bbop result 2
+
+checkshape result
+checknbshapes result -solid 1 -shell 1
+checkprops result -v 20808.1 -s 28247.4
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_6/bug26748

@@ -0,0 +1,33 @@
+puts "========"
+puts "OCC26748"
+puts "========"
+puts ""
+#################################################
+# Section between cylindrical and planar faces is not found
+#################################################
+
+set ExpTol 5.0e-8
+set GoodNbCurv 1
+
+restore [locate_data_file bug26745_BodyA.brep] a
+restore [locate_data_file bug26745_BodyB.brep] b
+
+explode a f
+explode b f
+
+set log [bopcurves a_9 b_1 -2d]
+
+regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
+
+if {${NbCurv} != ${GoodNbCurv}} {
+  puts "Error: Number of curves is bad!"
+}
+
+checkreal TolReached $Toler $ExpTol 5.0e-8 0.0
+
+smallview
+don c_*
+fit
+disp a_9 b_1
+
+checkview -screenshot -2d -path ${imagedir}/${test_image}.png