From 775530d462e953e1e5cb7e2f22781426ef221c9e Mon Sep 17 00:00:00 2001
From: mkv <mkv@opencascade.com>
Date: Fri, 14 Jul 2017 18:31:16 +0300
Subject: [PATCH] Test for 0023166: Intersection of plane and cone produces
 wrong result

---
 tests/bugs/modalg_7/bug23166 | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 tests/bugs/modalg_7/bug23166

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