0023378: BRepAlgoAPI_Cut returns wrong result

Adding test cases only

tests/bugs/grids.list

@@ -9,12 +9,13 @@
 009 modalg_4
 010 modalg_5
 011 modalg_6
-012 moddata_1
-013 moddata_2
-014 moddata_3
-015 step
-016 caf
-017 mesh
-018 heal
-019 stlvrml
-020 splitshape
+012 modalg_7
+013 moddata_1
+014 moddata_2
+015 moddata_3
+016 step
+017 caf
+018 mesh
+019 heal
+020 stlvrml
+021 splitshape

tests/bugs/modalg_7/begin

@@ -0,0 +1,20 @@
+set subgroup modalg
+
+set calcul "p"
+set type "i"
+
+proc OFFSETSHAPE {distance faces calcul type} {
+        uplevel #0 explode s f
+        uplevel #0 offsetparameter 1e-7 $calcul $type
+        uplevel #0 offsetload s $distance $faces
+        uplevel #0 offsetperform result
+}
+
+
+
+
+
+
+
+
+

tests/bugs/modalg_7/bug23378_1

@@ -0,0 +1,33 @@
+puts "========"
+puts "OCC23378"
+puts "========"
+puts ""
+########################################
+# BRepAlgoAPI_Cut returns wrong result
+########################################
+
+# Restore the initial shape
+restore [locate_data_file bug23378_blower1.brep] b
+
+# Test case body
+explode b
+bop b_1 b_2
+bopcut r
+
+# Result of operation should be two shapes (checking)
+set oper_result [explode r]
+if {[llength $oper_result] != 2} {
+  puts "ERRROR: Result of BrepAlgoAPI_Cut is unexpected"
+}
+
+# Algorithmic check of r_1 shape
+renamevar r_1 result
+checkshape result
+checkprops result -s 864274
+
+# Visualization check of r_1 shape
+vinit
+vsetdispmode 1
+vdisplay result
+vfit
+checkview -screenshot -3d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug23378_2

@@ -0,0 +1,33 @@
+puts "========"
+puts "OCC23378"
+puts "========"
+puts ""
+########################################
+# BRepAlgoAPI_Cut returns wrong result
+########################################
+
+# Restore the initial shape
+restore [locate_data_file bug23378_blower1.brep] b
+
+# Test case body
+explode b
+bop b_1 b_2
+bopcut r
+
+# Result of operation should be two shapes (checking)
+set oper_result [explode r]
+if {[llength $oper_result] != 2} {
+  puts "ERRROR: Result of BrepAlgoAPI_Cut is unexpected"
+}
+
+# Algorithmic check of r_2 shape
+renamevar r_2 result
+checkshape result
+checkprops result -s 2.77917
+
+# Visualization check of r_2 shape
+vinit
+vsetdispmode 1
+vdisplay result
+vfit
+checkview -screenshot -3d -path ${imagedir}/${test_image}.png