From: mkv <mkv@opencascade.com>
Date: Thu, 30 Apr 2015 15:03:47 +0000 (+0300)
Subject: 0025844: Command checkshape does not detect error for case when degenerated edge... 
X-Git-Tag: V6_9_0~28
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=63073e35ce67f9d52865a96e05b555bae6413764;p=occt-copy.git

0025844: Command checkshape does not detect error for case when degenerated edge does not contain geometric representation.
---

diff --git a/tests/bugs/modalg_6/bug25844 b/tests/bugs/modalg_6/bug25844
new file mode 100644
index 0000000000..74846f65df
--- /dev/null
+++ b/tests/bugs/modalg_6/bug25844
@@ -0,0 +1,24 @@
+puts "================"
+puts "OCC25844"
+puts "================"
+puts ""
+#######################################################################
+# Command "checkshape" does not detect error for case when degenerated edge does not contain geometric representation.
+#######################################################################
+
+restore [locate_data_file bug25843_onewire.brep] b
+
+dlog reset
+dlog on
+
+checkshape b f
+
+set info [dlog get]
+dlog reset
+dlog off
+
+if { [regexp "checkshape failure" ${info}] != 1  } {
+   puts "Error : Command \"checkshape\" does not detect error for case when degenerated edge does not contain geometric representation."
+} else {
+   puts "OK : Command \"checkshape\" work good"
+}