From: mkv <mkv@opencascade.com>
Date: Fri, 14 Jul 2017 14:25:51 +0000 (+0300)
Subject: Test for 0023163: Intersection of tori fails to produce results
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=06ac62bf5e656cc2ce72ec47713042b7689d0734;p=occt-copy.git

Test for 0023163: Intersection of tori fails to produce results
---

diff --git a/tests/bugs/modalg_7/bug23163_1 b/tests/bugs/modalg_7/bug23163_1
new file mode 100644
index 0000000000..48405267bc
--- /dev/null
+++ b/tests/bugs/modalg_7/bug23163_1
@@ -0,0 +1,28 @@
+puts "TODO OCC23163 ALL: Error: No resulting circle of radius 5 at the intersection of tori, only b-splines"
+
+puts "================"
+puts "OCC23163"
+puts "================"
+puts ""
+#######################################################################
+#  Intersection of tori fails to produce results
+#######################################################################
+
+torus t1 20 5
+torus t2 40 0 0 20 5
+
+intersect result t1 t2
+
+set NbCurv [llength [directory result*]]
+
+if { $NbCurv > 4 } {
+  puts "OK: Number of curves is good"
+} else {
+  puts "Error: No resulting circle of radius 5 at the intersection of tori, only b-splines"
+}
+
+smallview
+donly result*
+fit
+display t1 t2
+checkview -screenshot -2d -path ${imagedir}/${test_image}.png
diff --git a/tests/bugs/modalg_7/bug23163_2 b/tests/bugs/modalg_7/bug23163_2
new file mode 100644
index 0000000000..a487b7fcf2
--- /dev/null
+++ b/tests/bugs/modalg_7/bug23163_2
@@ -0,0 +1,28 @@
+puts "TODO OCC23163 ALL: Error: No resulting circle at the intersection of tori, only b-splines"
+
+puts "================"
+puts "OCC23163"
+puts "================"
+puts ""
+#######################################################################
+#  Intersection of tori fails to produce results
+#######################################################################
+
+restore [locate_data_file bug23163_surface1_draw_b.draw] s1
+restore [locate_data_file bug23163_surface2_draw_b.draw] s2
+
+intersect result s1 s2
+
+set NbCurv [llength [directory result*]]
+
+if { $NbCurv > 6 } {
+  puts "OK: Number of curves is good"
+} else {
+  puts "Error: No resulting circle at the intersection of tori, only b-splines"
+}
+
+smallview
+donly result*
+fit
+display s1 s2
+checkview -screenshot -2d -path ${imagedir}/${test_image}.png
diff --git a/tests/bugs/modalg_7/bug23163_3 b/tests/bugs/modalg_7/bug23163_3
new file mode 100644
index 0000000000..3b1a86af58
--- /dev/null
+++ b/tests/bugs/modalg_7/bug23163_3
@@ -0,0 +1,28 @@
+puts "TODO OCC23163 ALL: Error: No resulting circle at the intersection of tori, only b-splines"
+
+puts "================"
+puts "OCC23163"
+puts "================"
+puts ""
+#######################################################################
+#  Intersection of tori fails to produce results
+#######################################################################
+
+restore [locate_data_file bug23163_surface1_draw_b.draw] ss1
+restore [locate_data_file bug23163_surface2_draw_b.draw] ss2
+
+intersect result ss1 ss2
+
+set NbCurv [llength [directory result*]]
+
+if { $NbCurv > 6 } {
+  puts "OK: Number of curves is good"
+} else {
+  puts "Error: No resulting circle at the intersection of tori, only b-splines"
+}
+
+smallview
+donly result*
+fit
+display ss1 ss2
+checkview -screenshot -2d -path ${imagedir}/${test_image}.png