0022794: Boolean Cut operation produces incorrect result.

Adding testing case

tests/bugs/modalg_6/bug22794

@@ -0,0 +1,38 @@
+puts "============"
+puts "OCC22793"
+puts "============"
+puts ""
+######################################################
+# Boolean cut operation hangs computer
+######################################################
+
+restore [locate_data_file bug22794a.brep] p
+restore [locate_data_file bug22794b.brep] v
+
+checkshape p
+tolerance p
+
+checkshape v
+tolerance v
+
+bop p v
+bopcut result
+
+checkprops result -s 1.89654e+007 
+checkshape result
+
+set nbshapes_expected "
+Number of shapes in result
+ VERTEX    : 20
+ EDGE      : 30
+ WIRE      : 14
+ FACE      : 14
+ SHELL     : 2
+ SOLID     : 2
+ COMPSOLID : 0
+ COMPOUND  : 1
+ SHAPE     : 83
+"
+checknbshapes result -ref ${nbshapes_expected} -t -m "Result obtained by Boolean cut operation"
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png