Added test cases bugs/modalg_6/bug22644_1 bug22644_2 bug22644_3
--- /dev/null
+puts "=========="
+puts "OCC22644"
+puts "=========="
+puts ""
+##############################################################
+# Incorrect result of Boolean operations (Fuse, Cut, Common)
+##############################################################
+
+restore [locate_data_file bug22644_Torus.brep] t
+restore [locate_data_file bug22644_Prism.brep] p
+checkshape t
+checkshape p
+
+bop t p
+bopfuse result
+
+set square 681.87
+set 2dviewer 1
--- /dev/null
+puts "=========="
+puts "OCC22644"
+puts "=========="
+puts ""
+##############################################################
+# Incorrect result of Boolean operations (Fuse, Cut, Common)
+##############################################################
+
+restore [locate_data_file bug22644_Torus.brep] t
+restore [locate_data_file bug22644_Prism.brep] p
+checkshape t
+checkshape p
+
+bop t p
+bopcut result
+
+set square 491.142
+set 2dviewer 1
--- /dev/null
+puts "=========="
+puts "OCC22644"
+puts "=========="
+puts ""
+##############################################################
+# Incorrect result of Boolean operations (Fuse, Cut, Common)
+##############################################################
+
+restore [locate_data_file bug22644_Torus.brep] t
+restore [locate_data_file bug22644_Prism.brep] p
+checkshape t
+checkshape p
+
+bop t p
+bopcommon result
+
+set square 102.34
+set 2dviewer 1