0027998: Self-intersection is not detected

[occt.git] / tests / bugs / modalg_6 / bug27998_3

diff --git a/tests/bugs/modalg_6/bug27998_3 b/tests/bugs/modalg_6/bug27998_3
new file mode 100644 (file)
index 0000000..a73e8d6
--- /dev/null
+++ b/tests/bugs/modalg_6/bug27998_3
@@ -0,0 +1,23 @@
+puts "============"
+puts "OCC27998"
+puts "============"
+puts ""
+######################################################
+# Self-intersection is not detected
+######################################################
+
+restore [locate_data_file bug20807_coil.brep] cc
+explode cc e
+mkcurve cc cc_1
+trim tc cc 0 6
+mkedge ee tc
+prism a ee 0 0 50
+donly a
+
+set info1 [bopcheck a 9]
+
+if { [regexp "F/F: x0 x0" $info1] != 1 } {
+    puts "Error : bopcheck a works wrong"
+} else {
+    puts "OK: bopcheck a works properly"
+}
\ No newline at end of file