Adjusting bugs group for current state of OCCT

[occt.git] / tests / bugs / moddata / bug538

diff --git a/tests/bugs/moddata/bug538 b/tests/bugs/moddata/bug538
new file mode 100644 (file)
index 0000000..126b5dd
--- /dev/null
+++ b/tests/bugs/moddata/bug538
@@ -0,0 +1,25 @@
+puts "TODO OCC11111 ALL: Faulty OCC132"
+
+puts "================"
+puts "OCC538"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC538.brep] Face 
+checkshape Face
+
+point p 0.2453959532714904 -1.246869357124329
+
+set res1 [b2dclassify Face p]
+set info_result [split ${res1}]
+
+set ll [llength ${info_result}]
+if {${ll} < 4} {
+    puts "Faulty OCC132"
+} else {
+    if {[regexp {IN} $info_result]} {
+       puts "OCC132 : OK"
+    } else {
+       puts "Faulty OCC132"
+    }
+}