diff --git a/tests/bugs/modalg_6/bug22644_1 b/tests/bugs/modalg_6/bug22644_1
new file mode 100644
index 0000000000..f43edd4e7f
--- /dev/null
+++ b/tests/bugs/modalg_6/bug22644_1
@@ -0,0 +1,18 @@
+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
diff --git a/tests/bugs/modalg_6/bug22644_2 b/tests/bugs/modalg_6/bug22644_2
new file mode 100644
index 0000000000..2f90351425
--- /dev/null
+++ b/tests/bugs/modalg_6/bug22644_2
@@ -0,0 +1,18 @@
+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
diff --git a/tests/bugs/modalg_6/bug22644_3 b/tests/bugs/modalg_6/bug22644_3
new file mode 100644
index 0000000000..d36cc6a0d8
--- /dev/null
+++ b/tests/bugs/modalg_6/bug22644_3
@@ -0,0 +1,18 @@
+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