0025020: checkoverlapedges doesn't have the check for degenerated edges

[occt.git] / tests / bugs / demo / bug25020

diff --git a/tests/bugs/demo/bug25020 b/tests/bugs/demo/bug25020
new file mode 100755 (executable)
index 0000000..e1f51c4
--- /dev/null
+++ b/tests/bugs/demo/bug25020
@@ -0,0 +1,21 @@
+puts "============"
+puts "CR25020"
+puts "============"
+puts ""
+##########################################################################################################
+# checkoverlapedges doesn't have the check for degenerated edges
+##########################################################################################################
+
+restore [locate_data_file bug25020_b.brep] b
+explode b e
+
+dlog reset
+dlog on
+catch {checkoverlapedges b_1 b_2}
+set info [dlog get]
+
+if { [regexp "degenerated" ${info} ] == 1 } {
+    puts "OK : checkoverlapedges have the check for degenerated edges"
+} else {
+    puts "Error : checkoverlapedges doesn't have the check for degenerated edges"
+}