Adding of testing cases from subgroups 937 940 and 941 of CHL group

[occt.git] / tests / bugs / modalg_3 / bug605

diff --git a/tests/bugs/modalg_3/bug605 b/tests/bugs/modalg_3/bug605
new file mode 100755 (executable)
index 0000000..d6aa6f1
--- /dev/null
+++ b/tests/bugs/modalg_3/bug605
@@ -0,0 +1,37 @@
+
+puts "========================"
+puts " OCC605"
+puts "========================"
+puts ""
+##############################
+## No any faces in result of pipe command.
+##############################
+
+restore [locate_data_file OCC605a.brep] w1 
+checkshape w1
+restore [locate_data_file OCC605b.brep] w2 
+checkshape w2
+
+if { [catch {pipe result w2 w1 } catch_result] } {
+    puts "Faulty OCC605: function PIPE works with exception."
+} else {
+    explode result f
+    set nom 0
+    set j 1
+    repeat 20 {
+       if { [regexp {FACE} [whatis result_$j]] != 1 } {
+           break
+        } else {
+           set nom [expr $nom + 1]
+        }
+       incr j
+    }
+    if { $nom == 0 } {
+       puts " Faulty OCC605: Result of PIPE operation is incorrect !!! "
+    } else {
+       puts "OCC605 OK : Result of PIPE operation is NOT empty shell!!! "
+   }
+}
+
+set square 20.6253
+set 2dviewer 0