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

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

diff --git a/tests/bugs/moddata/bug139 b/tests/bugs/moddata/bug139
deleted file mode 100755 (executable)
index 0595134..0000000
--- a/tests/bugs/moddata/bug139
+++ /dev/null
@@ -1,25 +0,0 @@
-puts "================"
-puts "OCC139"
-puts "================"
-puts ""
-#######################################
-## The intersection must be closed . So the curve is wrong.
-#######################################
-
-restore [locate_data_file OCC139-1.draw] sh1 
-restore [locate_data_file OCC139-2.draw] sh2
-
-if { ![catch {intersect result sh1 sh2} catch_result] } {
-    puts "OCC139 OK : intersection found"
-    regexp { nb alone Vertices : +([-0-9.+eE]+)} [checksection result] full num
-    if { $num != 0 } {
-       puts "Faulty OCC139: Intersection was made WRONGLY. The curve must be closed ."
-    } else {
-       puts "OCC139 OK : Intersection command works properly. The curve is closed"
-    }
-} else {
-    puts "Faulty OCC139 : NO intersection found"
-}
-
-set 2dviewer 0
-