X-Git-Url: http://git.dev.opencascade.org/gitweb/?p=occt.git;a=blobdiff_plain;f=tests%2Fbugs%2Fmodalg_5%2Fbug24618_2;h=c074e060eae42ea49f4dfc04a7d5dbc68d7af124;hb=362dec17cf2059f2d03e53ed002c52112637637a;hpb=1896126e357ccfcf84d26b89f020e953c33e4770

diff --git a/tests/bugs/modalg_5/bug24618_2 b/tests/bugs/modalg_5/bug24618_2
new file mode 100644
index 0000000000..c074e060ea
--- /dev/null
+++ b/tests/bugs/modalg_5/bug24618_2
@@ -0,0 +1,42 @@
+puts "========="
+puts "OCC24618"
+puts "========="
+puts ""
+###########################################################
+# Embedding vertex in BOP depends on the order of arguments
+###########################################################
+
+# Create a cylindrical face
+cylinder c1 20
+trimv c1 c1 0 50
+mkface c1 c1
+
+# Create a vertex
+vertex v1 0 20 25
+
+# Build partition
+bclearobjects
+bcleartools
+#---------------#
+baddobjects c1 v1
+#---------------#
+bfillds
+bbuild r
+
+# Explode the result compound
+explode r
+
+# Check number of shapes
+renamevar r_2 result
+
+set nb_v_good 3
+set nb_e_good 3
+set nb_w_good 1
+set nb_f_good 1
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 8
+
+set 2dviewer 1