From: mkv <mkv@opencascade.com>
Date: Fri, 14 Jul 2017 15:31:16 +0000 (+0300)
Subject: Test for 0023166: Intersection of plane and cone produces wrong result
X-Git-Tag: V7_2_0_beta~33
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=775530d462e953e1e5cb7e2f22781426ef221c9e;p=occt.git

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
index 0000000000..f6e698d204
--- /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