From: apn <apn@opencascade.com>
Date: Mon, 28 Apr 2014 11:24:34 +0000 (+0400)
Subject: 0024347: problem by tolerance of the distance of Face and Vertex
X-Git-Tag: V6_8_0_beta~360
X-Git-Url: http://git.dev.opencascade.org/gitweb/?p=occt.git;a=commitdiff_plain;h=21761b6febc6bdfc02379c6a1446813dadfb0298

0024347: problem by tolerance of the distance of Face and Vertex

Added test case bugs/modalg_5/bug24347
---

diff --git a/tests/bugs/modalg_5/bug24347 b/tests/bugs/modalg_5/bug24347
new file mode 100644
index 0000000000..3ad647bb70
--- /dev/null
+++ b/tests/bugs/modalg_5/bug24347
@@ -0,0 +1,23 @@
+puts "============"
+puts "OCC24347"
+puts "============"
+puts ""
+###########################################################
+# Problem by tolerance of the distance of Face and Vertex
+###########################################################
+
+pload XDE
+set checkvalue 2.72742879238428e-14
+
+restore [locate_data_file bug24347_face.brep] f
+vertex v 34.265509314637 0.1 0.73361964922719
+
+settolerance f 4.e-6
+distmini d1 f v
+
+regexp {([-0-9.+eE]+)$} [dump d1_val] full distvalue
+if { $distvalue != $checkvalue } {
+  puts "Error: distance is incorrect"
+} else {
+  puts "OK: distance is correct"
+}