diff --git a/tests/bugs/modalg_7/bug28195_1 b/tests/bugs/modalg_7/bug28195_1
new file mode 100644
index 0000000000..31f205463b
--- /dev/null
+++ b/tests/bugs/modalg_7/bug28195_1
@@ -0,0 +1,28 @@
+puts "========"
+puts "OCC28195"
+puts "========"
+puts ""
+##################################################################################################
+# Boolean common returns empty result for a solid where some surfaces of revolution touch the axis
+##################################################################################################
+
+restore [locate_data_file bug28195_solidsOK.brep] s
+
+whatis s
+
+explode s
+checkshape s
+bopcheck s_1
+bopcheck s_2
+
+bopargcheck s_1 s_2 -O #F
+bop s_1 s_2
+bopcommon r
+
+whatis r
+explode r
+checkshape r_1
+nbshapes r_1
+
+checkview -display r_1 -2d -path ${imagedir}/${test_image}-2d.png
+checkview -display r_1 -3d -path ${imagedir}/${test_image}-3d.png
diff --git a/tests/bugs/modalg_7/bug28195_2 b/tests/bugs/modalg_7/bug28195_2
new file mode 100644
index 0000000000..3e25d4fb78
--- /dev/null
+++ b/tests/bugs/modalg_7/bug28195_2
@@ -0,0 +1,28 @@
+puts "========"
+puts "OCC28195"
+puts "========"
+puts ""
+##################################################################################################
+# Boolean common returns empty result for a solid where some surfaces of revolution touch the axis
+##################################################################################################
+
+restore [locate_data_file bug28195_solidsKO.brep] s
+
+whatis s
+
+explode s
+checkshape s
+bopcheck s_1
+bopcheck s_2
+
+bopargcheck s_1 s_2 -O #F
+bop s_1 s_2
+bopcommon r
+
+whatis r
+explode r
+checkshape r_1
+nbshapes r_1
+
+checkview -display r_1 -2d -path ${imagedir}/${test_image}-2d.png
+checkview -display r_1 -3d -path ${imagedir}/${test_image}-3d.png