Test for 0023166: Intersection of plane and cone produces wrong result

diff --git a/tests/bugs/modalg_7/bug23166 b/tests/bugs/modalg_7/bug23166
new file mode 100644 (file)
index 0000000..f6e698d
--- /dev/null
+++ b/tests/bugs/modalg_7/bug23166
@@ -0,0 +1,32 @@
+puts "================"
+puts "OCC23166"
+puts "================"
+puts ""
+#######################################################################
+#  Intersection of plane and cone produces wrong result
+#######################################################################
+
+restore [locate_data_file bug23166_surface1_draw.draw] s1
+restore [locate_data_file bug23166_surface2_draw.draw] s2
+
+intersect result s1 s2
+
+set log [dump result_1]
+if { [regexp {Parameters} ${log}] } {
+  puts "Error: untrimmed first hyperbola"
+} else {
+  puts "OK: untrimmed first hyperbola"
+}
+
+set log [dump result_2]
+if { [regexp {Parameters} ${log}] } {
+  puts "Error: untrimmed second hyperbola"
+} else {
+  puts "OK: untrimmed second hyperbola"
+}
+
+smallview
+donly result*
+fit
+display s1 s2
+checkview -screenshot -2d -path ${imagedir}/${test_image}.png