From 2fa97a43046bc57127e1376b0c12c77ff63935dd Mon Sep 17 00:00:00 2001
From: apn <apn@opencascade.com>
Date: Thu, 6 Nov 2014 14:55:10 +0300
Subject: [PATCH] 0025270: OCCT fails to calculate extrema between extruded
 surface and line

Added test case bugs/modalg_5/bug25270
---
 tests/bugs/modalg_5/bug25270 | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 tests/bugs/modalg_5/bug25270

diff --git a/tests/bugs/modalg_5/bug25270 b/tests/bugs/modalg_5/bug25270
new file mode 100644
index 0000000000..4741cae309
--- /dev/null
+++ b/tests/bugs/modalg_5/bug25270
@@ -0,0 +1,18 @@
+puts "========="
+puts "OCC25270"
+puts "========="
+puts ""
+#####################################################################
+# OCCT fails to calculate extrema between extruded surface and line
+#####################################################################
+
+restore [locate_data_file bug25270_face.brep] f
+restore [locate_data_file bug25270_edge.brep] e
+
+distmini result f e
+regexp {([-0-9.+eE]+)} [dval result_val] full ddist
+if { $ddist > 1.e-7 } {
+  puts "Error: Extrema between extruded surface and line is incorrect $ddist"
+} else {
+  puts "OK: Extrema between extruded surface and line is correct $ddist"
+}