From: aml <aml@opencascade.com>
Date: Fri, 20 May 2016 11:04:14 +0000 (+0300)
Subject: 0027524: Incorrect result of "checkshape" command
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=da1e60063e75b508799ec1703e24af7d429b22b6;p=occt-copy.git

0027524: Incorrect result of "checkshape" command

Test script is added.
---

diff --git a/tests/bugs/modalg_6/bug27524 b/tests/bugs/modalg_6/bug27524
new file mode 100644
index 0000000000..a6bd427083
--- /dev/null
+++ b/tests/bugs/modalg_6/bug27524
@@ -0,0 +1,24 @@
+puts "TODO 0027524 ALL: Error: pcurve deviation is greater than shape tolerance" 
+puts "========="
+puts "CR27524"
+puts "========="
+puts ""
+###############################
+## Incorrect result of "checkshape" command
+###############################
+
+set aTol 1.0e-7
+set aShapeToler 0.0069791772900578497
+
+restore [locate_data_file bug27524.brep] aS
+
+checkshape aS
+
+explode aS E
+explode aS F
+set log [xdistef aS_3 aS_1]
+regexp {Max Distance = +([-0-9.+eE]+);} ${log} full aDist
+
+if { $aDist > $aShapeToler + $aTol } {
+  puts "Error: pcurve deviation is greater than shape tolerance"
+}