From: apn <apn@opencascade.com>
Date: Mon, 20 Apr 2015 14:57:07 +0000 (+0300)
Subject: 0021624: BRepFeat_SplitShape produce invalid shape
X-Git-Tag: V6_9_0_beta2~11
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=b0deeecfba2ff351397f3e46e33d387313d6954c;p=occt-copy.git

0021624: BRepFeat_SplitShape produce invalid shape

Added test case bugs/modalg_6/bug21624
---

diff --git a/tests/bugs/modalg_6/bug21624 b/tests/bugs/modalg_6/bug21624
new file mode 100644
index 0000000000..22b83ea20c
--- /dev/null
+++ b/tests/bugs/modalg_6/bug21624
@@ -0,0 +1,21 @@
+puts "=========="
+puts "OCC21624"
+puts "=========="
+puts ""
+##############################################
+# BRepFeat_SplitShape produce invalid shape
+##############################################
+
+restore [locate_data_file bug21624_splitBug.brep] cc
+explode cc
+splitshape result cc_1 cc_1 cc_2 cc_1 cc_3
+
+set info [ checkshape result f ]
+
+if { [regexp {The Shape result looks OK} $info] } {
+  puts "OK: Splitshape produces valid shape"
+} else {
+  puts "Error: Splitshape produces invalid shape"
+}
+
+set 2dviewer 1