From c42d223f88b51daac59bf55155d30d092fe3a93f Mon Sep 17 00:00:00 2001
From: emv <emv@opencascade.com>
Date: Tue, 27 Mar 2018 15:14:44 +0300
Subject: [PATCH] 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.
---
 tests/bugs/modalg_4/bug22646 | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

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
 
-- 
2.39.5