From b721c02a6c7c5bfe6419180803b986affd61a0dd Mon Sep 17 00:00:00 2001
From: apv <apv@opencascade.com>
Date: Thu, 29 Jun 2017 11:46:35 +0300
Subject: [PATCH] Test for 0021414: GeomAPI_IntCS fails to find all
 intersections between line and surface of revolution

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

diff --git a/tests/bugs/modalg_7/bug21414 b/tests/bugs/modalg_7/bug21414
new file mode 100644
index 0000000000..04979d4d68
--- /dev/null
+++ b/tests/bugs/modalg_7/bug21414
@@ -0,0 +1,24 @@
+puts "TODO OCC21414 ALL: ERROR: OCC21414 is reproduced."
+
+puts "========"
+puts "OCC21414"
+puts "========"
+puts ""
+########################################################################################
+# GeomAPI_IntCS fails to find all intersections between line and surface of revolution
+########################################################################################
+
+restore [locate_data_file bug21414_wave.brep] a
+
+mksurface s a
+line l 0 2.5 0 1 0 0
+
+set theResList [intersect res l s]
+
+if {[llength $theResList] != 100} {
+  puts "ERROR: OCC21414 is reproduced. Total number of intersections is [llength $theResList] but should be 100."
+}
+
+smallview
+fit
+checkview -screenshot -2d -path ${imagedir}/${test_image}.png