0025509: Wrong shape considered as valid by checkshape

[occt.git] / tests / bugs / modalg_5 / bug25509_3

diff --git a/tests/bugs/modalg_5/bug25509_3 b/tests/bugs/modalg_5/bug25509_3
new file mode 100755 (executable)
index 0000000..91c9517
--- /dev/null
+++ b/tests/bugs/modalg_5/bug25509_3
@@ -0,0 +1,29 @@
+puts "============"
+puts "OCC25509"
+puts "============"
+puts ""
+######################################################
+# Wrong shape considered as valid by checkshape
+######################################################
+
+# 03.  A solid with 2 growths
+box b1 10 10 10 
+box b2 4 4 4 4 4 4 
+explode b1 
+explode b2 
+
+shape result so
+add b1_1 result
+add b2_1 result
+
+decho off
+set info [checkshape result]
+decho on
+
+if { [regexp "Faulty shapes in variables faulty_1" ${info}] != 1 } {
+   puts "Error : There are no mistakes by checkshape-command"
+} else {
+   puts "OK : There are mistakes by checkshape-command"
+}
+
+set 2dviewer 1