0031587: Modeling Data - add BRepTools::RemoveInternals() removing internal sub-shape...

[occt.git] / tests / bugs / moddata_3 / bug31587_6

diff --git a/tests/bugs/moddata_3/bug31587_6 b/tests/bugs/moddata_3/bug31587_6
new file mode 100644 (file)
index 0000000..58a631e
--- /dev/null
+++ b/tests/bugs/moddata_3/bug31587_6
@@ -0,0 +1,23 @@
+puts "================"
+puts "0031587: Modeling Data - Remove internal sub-shapes from the shape"
+puts "================"
+puts ""
+
+box b 10 10 10
+polyline e1 2 2 0 8 2 0
+polyline e2 3 2 -5 3 2 0
+
+bclearobjects
+bcleartools
+baddobjects b
+baddtools e1 e2
+bfillds
+bsplit r
+
+compound r e2 c
+
+# topological connectivity is broken without force flag set to true
+removeinternals c
+
+checkshape c
+checknbshapes c -vertex 10 -edge 13 -wire 7 -face 6 -shell 1 -solid 1