0028567: Get rid of the unused DRAW commands based on old Boolean Operations (BRepAlgo)
[occt.git] / tests / bugs / modalg_1 / buc60744
index b855b45..64df1ca 100755 (executable)
@@ -1,5 +1,3 @@
-pload QAcommands
-
 puts "========================"
 puts "BUC60744"
 puts "========================"
@@ -8,42 +6,14 @@ puts ""
 restore [locate_data_file buc60744a.brep] a 
 restore [locate_data_file buc60744b.brep] b
 
-set che [checkshape a]
-if { [regexp {Faulty} $che ] == 1 } {
-    puts "Faulty BUC60744 (shape 1): Source shape is invalid. It was detected by Checkshape command"
-    puts "Body of the script was NOT executed"
-    renamevar a result
-} else {
-    puts "BUC60744 OK (shape 1): Source shape is valid"
-
-    set        che [checkshape b]
-    if { [regexp {Faulty} $che ] == 1 } {
-        puts "Faulty BUC60744 (shape 2): Source shape is invalid. It was detected by Checkshape command"
-       puts "Body of the script was NOT executed"
-        renamevar b result
-    } else {
-       puts "BUC60744 OK (shape 2): Source shape is valid"
-
-       ksection result a b 1000 0.0001 0.00001 0
-
-       set ne [llength [explode result e]]
-       set nv [llength [explode result v]]
-
-       if {$ne >= $nv} {
-           puts [format "Faulty : the number of edges is %s, but the number of vertexes is %s." $ne $nv]
-       }
-    }
-}
 bsection result a b
 
-set ne [llength [explode result e]]
-set nv [llength [explode result v]]
+checkshape result
 
-if {$ne >= $nv} {
-    puts [format "Faulty : the number of edges is %s, but the number of vertexes is %s." $ne $nv]
+if {[lindex [checksection result] 4] != 2} {
+  puts "Error: section is incomplete"
 }
 
-checkprops result -l 228.386 
-checkshape result
-checksection result
+checkprops result -l 228.386
+
 checkview -display result -2d -path ${imagedir}/${test_image}.png