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 (file)
index 0000000..4840526
--- /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 (file)
index 0000000..a487b7f
--- /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 (file)
index 0000000..3b1a86a
--- /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