From: emv <emv@opencascade.com>
Date: Tue, 27 Mar 2018 12:14:44 +0000 (+0300)
Subject: 0029653: Unable to get generated shapes for some of the arguments of Thrusections... 
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=refs%2Fheads%2FCR29653;p=occt-copy.git

0029653: Unable to get generated shapes for some of the arguments of Thrusections operation

Update test case to reproduce the problem by checking possibility of getting generated shapes for each vertex and edge of the arguments of Thrusections operation.
---

diff --git a/tests/bugs/modalg_4/bug22646 b/tests/bugs/modalg_4/bug22646
index fb990a9b35..105fd66568 100755
--- a/tests/bugs/modalg_4/bug22646
+++ b/tests/bugs/modalg_4/bug22646
@@ -25,11 +25,41 @@ vfit
 donly s1_1 s2_1
 thrusections res2 0 0 s1_1 s2_1
 
+foreach s {s1_1 s2_1} {
+  foreach type {v e} {
+    foreach ss [explode $s $type] {
+      if {[catch { genthrus g $ss } catch_res]} {
+        puts "Error: Unable to get generated shapes"
+      }
+    }
+  }
+}
+
 donly s1_1 s3_1
 thrusections res3 0 0 s1_1 s3_1
 
+foreach s {s1_1 s3_1} {
+  foreach type {v e} {
+    foreach ss [explode $s $type] {
+      if {[catch { genthrus g $ss } catch_res]} {
+        puts "Error: Unable to get generated shapes"
+      }
+    }
+  }
+}
+
 donly s1_1 s4_1
 thrusections res4 0 0 s1_1 s4_1
 
+foreach s {s1_1 s4_1} {
+  foreach type {v e} {
+    foreach ss [explode $s $type] {
+      if {[catch { genthrus g $ss } catch_res]} {
+        puts "Error: Unable to get generated shapes"
+      }
+    }
+  }
+}
+
 checkview -screenshot -3d -path ${imagedir}/${test_image}.png