Adding testing cases from chl group
authorapn <apn@opencascade.com>
Fri, 28 Dec 2012 14:50:48 +0000 (18:50 +0400)
committerapn <apn@opencascade.com>
Fri, 28 Dec 2012 14:50:48 +0000 (18:50 +0400)
Modified END file of all group bugs. Command nbshape moved to END file. Add begin with variable subgroup
Small correction in END file
Replaced test case bug726_3 from moddata to modalg

179 files changed:
tests/bugs/caf/begin
tests/bugs/caf/bug2932_1
tests/bugs/caf/bug2932_2
tests/bugs/demo/begin [new file with mode: 0755]
tests/bugs/end
tests/bugs/fclasses/begin [new file with mode: 0755]
tests/bugs/fclasses/bug23403
tests/bugs/fclasses/bug6794
tests/bugs/heal/begin
tests/bugs/iges/begin
tests/bugs/iges/bug448
tests/bugs/iges/bug5027_1
tests/bugs/iges/end [deleted file]
tests/bugs/mesh/begin
tests/bugs/modalg/begin [new file with mode: 0755]
tests/bugs/modalg/buc60703_1
tests/bugs/modalg/buc60782_2
tests/bugs/modalg/buc60787_1
tests/bugs/modalg/buc60789_1
tests/bugs/modalg/buc60865
tests/bugs/modalg/buc60882
tests/bugs/modalg/buc60898
tests/bugs/modalg/buc60899_2
tests/bugs/modalg/bug1665
tests/bugs/modalg/bug21
tests/bugs/modalg/bug23470
tests/bugs/modalg/bug238_1
tests/bugs/modalg/bug238_2
tests/bugs/modalg/bug239_1
tests/bugs/modalg/bug239_2
tests/bugs/modalg/bug240_1
tests/bugs/modalg/bug240_2
tests/bugs/modalg/bug241_1
tests/bugs/modalg/bug241_2
tests/bugs/modalg/bug242_1
tests/bugs/modalg/bug242_2
tests/bugs/modalg/bug243_1
tests/bugs/modalg/bug243_2
tests/bugs/modalg/bug244
tests/bugs/modalg/bug245_1
tests/bugs/modalg/bug245_2
tests/bugs/modalg/bug246
tests/bugs/modalg/bug248_1
tests/bugs/modalg/bug248_2
tests/bugs/modalg/bug249_1
tests/bugs/modalg/bug249_2
tests/bugs/modalg/bug249_3
tests/bugs/modalg/bug249_4
tests/bugs/modalg/bug250_1
tests/bugs/modalg/bug250_2
tests/bugs/modalg/bug250_3
tests/bugs/modalg/bug250_4
tests/bugs/modalg/bug398
tests/bugs/modalg/bug4717_1
tests/bugs/modalg/bug4717_2
tests/bugs/modalg/bug4717_3
tests/bugs/modalg/bug4717_4
tests/bugs/modalg/bug4717_5
tests/bugs/modalg/bug4717_6
tests/bugs/modalg/bug4717_7
tests/bugs/modalg/bug4717_8
tests/bugs/modalg/bug472_3
tests/bugs/modalg/bug476_1
tests/bugs/modalg/bug476_2
tests/bugs/modalg/bug476_3
tests/bugs/modalg/bug476_4
tests/bugs/modalg/bug476_5
tests/bugs/modalg/bug476_6
tests/bugs/modalg/bug476_7
tests/bugs/modalg/bug476_8
tests/bugs/modalg/bug497_3
tests/bugs/modalg/bug4993_1
tests/bugs/modalg/bug4993_2
tests/bugs/modalg/bug526
tests/bugs/modalg/bug535
tests/bugs/modalg/bug539_1
tests/bugs/modalg/bug539_2
tests/bugs/modalg/bug548
tests/bugs/modalg/bug673
tests/bugs/modalg/bug726_3 [moved from tests/bugs/moddata/bug726_3 with 92% similarity]
tests/bugs/modalg/bug745_12
tests/bugs/modalg/bug829_1
tests/bugs/modalg/bug910
tests/bugs/modalg/end [deleted file]
tests/bugs/moddata/begin [new file with mode: 0755]
tests/bugs/moddata/buc60637
tests/bugs/moddata/buc60652_1
tests/bugs/moddata/buc60652_2
tests/bugs/moddata/buc60652_3
tests/bugs/moddata/buc60652_4
tests/bugs/moddata/buc60755
tests/bugs/moddata/buc60895
tests/bugs/moddata/buc60911
tests/bugs/moddata/buc60955
tests/bugs/moddata/bug126
tests/bugs/moddata/bug134_1
tests/bugs/moddata/bug134_2
tests/bugs/moddata/bug135
tests/bugs/moddata/bug150_1
tests/bugs/moddata/bug150_2
tests/bugs/moddata/bug151_1
tests/bugs/moddata/bug151_2
tests/bugs/moddata/bug152_1
tests/bugs/moddata/bug152_2
tests/bugs/moddata/bug160_1
tests/bugs/moddata/bug160_2
tests/bugs/moddata/bug160_3
tests/bugs/moddata/bug160_4
tests/bugs/moddata/bug160_5
tests/bugs/moddata/bug160_6
tests/bugs/moddata/bug164_1
tests/bugs/moddata/bug164_2
tests/bugs/moddata/bug175
tests/bugs/moddata/bug183_1
tests/bugs/moddata/bug183_2
tests/bugs/moddata/bug183_3
tests/bugs/moddata/bug183_4
tests/bugs/moddata/bug183_5
tests/bugs/moddata/bug183_6
tests/bugs/moddata/bug188
tests/bugs/moddata/bug188_1
tests/bugs/moddata/bug211_1
tests/bugs/moddata/bug211_2
tests/bugs/moddata/bug217
tests/bugs/moddata/bug227_1
tests/bugs/moddata/bug227_2
tests/bugs/moddata/bug228
tests/bugs/moddata/bug254
tests/bugs/moddata/bug259
tests/bugs/moddata/bug266
tests/bugs/moddata/bug268
tests/bugs/moddata/bug26_1
tests/bugs/moddata/bug26_2
tests/bugs/moddata/bug278_1
tests/bugs/moddata/bug278_2
tests/bugs/moddata/bug278_3
tests/bugs/moddata/bug27_1
tests/bugs/moddata/bug27_2
tests/bugs/moddata/bug28_1
tests/bugs/moddata/bug28_2
tests/bugs/moddata/bug31
tests/bugs/moddata/bug332
tests/bugs/moddata/bug354_1
tests/bugs/moddata/bug354_2
tests/bugs/moddata/bug374_1
tests/bugs/moddata/bug374_2
tests/bugs/moddata/bug376
tests/bugs/moddata/bug37_1
tests/bugs/moddata/bug37_2
tests/bugs/moddata/bug380_1
tests/bugs/moddata/bug380_2
tests/bugs/moddata/bug3_1
tests/bugs/moddata/bug3_2
tests/bugs/moddata/bug4
tests/bugs/moddata/bug466
tests/bugs/moddata/bug469
tests/bugs/moddata/bug496
tests/bugs/moddata/bug50
tests/bugs/moddata/bug601
tests/bugs/moddata/bug611_1
tests/bugs/moddata/bug611_2
tests/bugs/moddata/bug611_3
tests/bugs/moddata/bug65
tests/bugs/moddata/bug766
tests/bugs/moddata/end [deleted file]
tests/bugs/moddata/pro19422_1
tests/bugs/moddata/pro19422_2
tests/bugs/step/begin
tests/bugs/step/bug3397
tests/bugs/step/bug5027_2
tests/bugs/step/end [deleted file]
tests/bugs/vis/begin
tests/bugs/vis/bug138_1
tests/bugs/vis/bug138_2
tests/bugs/vis/bug319
tests/bugs/vis/bug672_1
tests/bugs/vis/bug672_4
tests/bugs/xde/begin
tests/bugs/xde/bug4648

index 04f004b..ce171e2 100755 (executable)
@@ -1,5 +1,7 @@
 pload DCAF
 
+set subgroup caf
+
 
 
 
index a606183..eeb7c53 100755 (executable)
@@ -53,12 +53,12 @@ NewCommand D
 set list [DumpCommand D]
 
 # Checking
-set length [llength ${list}]
+set ll [llength ${list}]
 set good_length 17
-puts "length = ${length}"
+puts "length = ${ll}"
 puts "good_length = ${good_length}"
 
-if { ${length} != ${good_length} } {
+if { ${ll} != ${good_length} } {
   puts "OCC2932 Error (case 1)"
 } else {
   set name_attribute [lindex ${list} [expr ${good_length} - 1]]
index 0e07b52..b114321 100755 (executable)
@@ -53,12 +53,12 @@ NewCommand D
 set list [DumpCommand D]
 
 # Checking
-set length [llength ${list}]
+set ll [llength ${list}]
 set good_length 17
-puts "length = ${length}"
+puts "length = ${ll}"
 puts "good_length = ${good_length}"
 
-if { ${length} != ${good_length} } {
+if { ${ll} != ${good_length} } {
   puts "OCC2932 Error (case 1)"
 } else {
   set name_attribute [lindex ${list} [expr ${good_length} - 1]]
diff --git a/tests/bugs/demo/begin b/tests/bugs/demo/begin
new file mode 100755 (executable)
index 0000000..c8bfd1d
--- /dev/null
@@ -0,0 +1,9 @@
+set subgroup demo
+
+
+
+
+
+
+
+
index 9178db6..af27a99 100755 (executable)
@@ -1,3 +1,132 @@
+if { [info exists square] } {
+    set prop "square"
+    set mass $square
+    if { [info exists tol_square] } {
+       regexp {Mass +: +([-0-9.+eE]+)} [sprops result $tol_square] full m
+    } else {
+       regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
+    }
+}
+if { [info exists length] } {
+    set prop "length"
+    set mass $length
+    regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full m      
+
+    puts "checksection"
+    puts [checksection result]
+}
+
+#if mass (length or square) is empty in test case then result should be an empty shape.
+if { [info exists mass] } {
+    if { [string compare $subgroup "moddata"] != 0 } {
+       puts "checkshape"
+       checkshape result
+    }
+      
+    if { [string compare "$mass" "empty"] != 0 } {
+       if { $m == 0 } {
+                   puts "Error : The command is not valid. The $prop is 0."
+       }
+       if { $mass > 0 } {
+                   puts "The expected $prop is $mass"
+       }
+       #check of change of square is < 1%
+       if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
+           puts "Error : The $prop of result shape is $m"
+       }
+    } else {
+       if { $m != 0 } {
+                   puts "Error : The command is not valid. The $prop is $m"
+       }
+    }
+}
+
+set glob_inf [info global nb_*_good]
+if { [regexp "nb_.*_good" $glob_inf] == 1 } {
+    set nb_info [nbshapes result]
+}
+
+if { [info exists nb_v_good] } {
+    regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_v
+    if { ${nb_v} != ${nb_v_good} } {
+        puts "Error : Result shape is WRONG because it must contains ${nb_v_good} vertexes instead of ${nb_v}"
+    } else {
+        puts "Result shape contains ${nb_v} vertexes"
+    }
+}
+
+if { [info exists nb_e_good] } {
+    regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_e
+    if { ${nb_e} != ${nb_e_good} } {
+        puts "Error : Result shape is WRONG because it must contains ${nb_e_good} edges instead of ${nb_e}"
+    } else {
+        puts "Result shape contains ${nb_e} edges"
+    }
+}
+
+if { [info exists nb_w_good] } {
+    regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full nb_w
+    if { ${nb_w} != ${nb_w_good} } {
+        puts "Error : Result shape is WRONG because it must contains ${nb_w_good} wires instead of ${nb_w}"
+    } else {
+        puts "Result shape contains ${nb_w} wires"
+    }
+}
+
+if { [info exists nb_f_good] } {
+    regexp {FACE +: +([-0-9.+eE]+)} $nb_info full nb_f
+    if { ${nb_f} != ${nb_f_good} } {
+        puts "Error : Result shape is WRONG because it must contains ${nb_f_good} faces instead of ${nb_f}"
+    } else {
+        puts "Result shape contains ${nb_f} faces"
+    }
+}
+
+if { [info exists nb_sh_good] } {
+    regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full nb_sh
+    if { ${nb_sh} != ${nb_sh_good} } {
+        puts "Error : Result shape is WRONG because it must contains ${nb_sh_good} shells instead of ${nb_sh}"
+    } else {
+        puts "Result shape contains ${nb_sh} shells"
+    }
+}
+
+if { [info exists nb_sol_good] } {
+    regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full nb_sol
+    if { ${nb_sol} != ${nb_sol_good} } {
+        puts "Error : Result shape is WRONG because it must contains ${nb_sol_good} solids instead of ${nb_sol}"
+    } else {
+        puts "Result shape contains ${nb_sol} solids"
+    }
+}
+
+if { [info exists nb_compsol_good] } {
+    regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full nb_compsol
+    if { ${nb_compsol} != ${nb_compsol_good} } {
+        puts "Error : Result shape is WRONG because it must contains ${nb_compsol_good} compsolids instead of ${nb_compsol}"
+    } else {
+        puts "Result shape contains ${nb_compsol} compsolids"
+    }
+}
+
+if { [info exists nb_compound_good] } {
+    regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full nb_compound
+    if { ${nb_compound} != ${nb_compound_good} } {
+        puts "Error : Result shape is WRONG because it must contains ${nb_compound_good} compounds instead of ${nb_compound}"
+    } else {
+        puts "Result shape contains ${nb_compound} compounds"
+    }
+}
+
+if { [info exists nb_shape_good] } {
+    regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full nb_shape
+    if { ${nb_shape} != ${nb_shape_good} } {
+        puts "Error : Result shape is WRONG because it must contains ${nb_shape_good} shapes instead of ${nb_shape}"
+    } else {
+        puts "Result shape contains ${nb_shape} shapes"
+    }
+}
+
 if { [isdraw result] } {
     if { [info exists 2dviewer] } {
        clear
@@ -18,13 +147,12 @@ if { [isdraw result] } {
 }
 
 if { [info exist only_screen] } {
-    vdump $imagedir/${test_image}.png
+   vdump $imagedir/${test_image}.png
 }
 
 if { [info exist only_screen2d] } {
-    v2ddump $imagedir/${test_image}.png
+   v2ddump $imagedir/${test_image}.png
 }
 
 # to end a test script
 puts "TEST COMPLETED"
-
diff --git a/tests/bugs/fclasses/begin b/tests/bugs/fclasses/begin
new file mode 100755 (executable)
index 0000000..5fee6fb
--- /dev/null
@@ -0,0 +1,9 @@
+set subgroup fclasses
+
+
+
+
+
+
+
+
index b3b65a6..ac4dbc2 100755 (executable)
@@ -4,9 +4,9 @@
 pload QAcommands
 
 set result [CR23403 \t]
-set length [llength ${result}]
+set ll [llength ${result}]
 
 puts ""
-if { ${length} != 0 } {
+if { ${ll} != 0 } {
   puts "Error : parsing is incorrect"
 }
\ No newline at end of file
index 4537966..4aaf90f 100755 (executable)
@@ -18,9 +18,10 @@ if { ${OPT} != 0 } {
 } else {
     set result [OCC6794 ${nb}]
     regexp {Use nb += +([-0-9.+eE]+)} $result full use_nb
-    regexp {aLength += +([-0-9.+eE]+)} $result full length
+    regexp {aLength += +([-0-9.+eE]+)} $result full ll
     
-    if { ${use_nb} != ${nb} || ${length} != ${nb} } {
+    if { ${use_nb} != ${nb} || ${ll} != ${nb} } {
         puts "Faulty ${BugNumber}"
     }
 }
+
index a4b98f1..58d19fe 100755 (executable)
@@ -1,3 +1,6 @@
 pload XSDRAW
 
+set subgroup heal
+
+
 
index 437191e..a2e8811 100755 (executable)
@@ -1,6 +1,9 @@
 pload XDE
 pload AISV
 
+set subgroup iges
+
+
 
 
 
index fcca327..618d30f 100755 (executable)
@@ -12,8 +12,8 @@ if [catch { set list [igesbrep [locate_data_file Amino_172448-65210.igs] a * ] }
     puts "Faulty OCC448: here is reading problem"
 } else {
     tpcompound result
-    set length [llength $list]
-    set NbShapes [lindex $list [expr $length - 1]]
+    set ll [llength $list]
+    set NbShapes [lindex $list [expr $ll - 1]]
 
   #
   # ATANTION!!!!!!! FOR TESTING !!!!!!!
@@ -28,3 +28,4 @@ if [catch { set list [igesbrep [locate_data_file Amino_172448-65210.igs] a * ] }
 
 set 2dviewer 0
 
+
index e4f9629..b42b845 100755 (executable)
@@ -12,9 +12,7 @@ if [catch { igesread [locate_data_file OCC5027.igs] a * } res] {
     puts "Warning ${BugNumber} : here is reading problem"
 } else {
     tpcompound result
-    set nb_info [nbshapes result]
     
-    set check_square 1
     set square 159588
     set nb_v_good 140
     set nb_e_good 144
diff --git a/tests/bugs/iges/end b/tests/bugs/iges/end
deleted file mode 100755 (executable)
index 48b054a..0000000
+++ /dev/null
@@ -1,120 +0,0 @@
-if { [info exist check_square] } {
-    if { [info exists square] } {
-       set prop "square"
-       set mass $square
-       regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m      
-    }
-    
-    if { [info exists volume] } {
-       set prop "volume"
-       set mass $volume
-       regexp {Mass +: +([-0-9.+eE]+)} [vprops result] full m      
-    }
-    
-    if { [info exists length] } {
-       set prop "length"
-        set mass $length
-        regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full m
-        puts "checksection"
-        puts [checksection result]
-    }
-
-   #if mass (length or square) is empty in test case then result should be an empty shape.
-   if { [string compare "$mass" "empty"] != 0 } {
-      if { $m == 0 } {
-                puts "Error : The command is not valid. The $prop is 0."
-      }
-      if { $mass > 0 } {
-        puts "The expected $prop is $mass"
-      }
-      #check of change of square is < 1%
-      if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
-        puts "Error : The $prop of result shape is $m"
-      }
-    } else {
-      if { $m != 0 } {
-                puts "Error : The command is not valid. The $prop is $m"
-      }
-    }
-}
-if { [info exists nb_v_good] } {
-    regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_v
-    if { ${nb_v} != ${nb_v_good} } {
-       puts "Error : Result shape is WRONG because it must contains ${nb_v_good} vertexes instead of ${nb_v}"
-    } else {
-       puts "Result shape contains ${nb_v} vertexes"
-    }
-}
-
-if { [info exists nb_e_good] } {
-    regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_e
-    if { ${nb_e} != ${nb_e_good} } {
-        puts "Error : Result shape is WRONG because it must contains ${nb_e_good} edges instead of ${nb_e}"
-    } else {
-       puts "Result shape contains ${nb_e} edges"
-    }
-}
-
-if { [info exists nb_w_good] } {
-    regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full nb_w
-    if { ${nb_w} != ${nb_w_good} } {
-        puts "Error : Result shape is WRONG because it must contains ${nb_w_good} wires instead of ${nb_w}"
-    } else {
-       puts "Result shape contains ${nb_w} wires"
-    }
-}
-
-if { [info exists nb_f_good] } {
-    regexp {FACE +: +([-0-9.+eE]+)} $nb_info full nb_f
-    if { ${nb_f} != ${nb_f_good} } {
-        puts "Error : Result shape is WRONG because it must contains ${nb_f_good} faces instead of ${nb_f}"
-    } else {
-        puts "Result shape contains ${nb_f} faces"
-    }
-}
-
-if { [info exists nb_sh_good] } {
-    regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full nb_sh
-    if { ${nb_sh} != ${nb_sh_good} } {
-       puts "Error : Result shape is WRONG because it must contains ${nb_sh_good} shells instead of ${nb_sh}"
-    } else {
-       puts "Result shape contains ${nb_sh} shells"
-    }
-}
-
-if { [info exists nb_sol_good] } {
-    regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full nb_sol
-    if { ${nb_sol} != ${nb_sol_good} } {
-       puts "Error : Result shape is WRONG because it must contains ${nb_sol_good} solids instead of ${nb_sol}"
-    } else {
-        puts "Result shape contains ${nb_sol} solids"
-    }
-}
-
-if { [info exists nb_compsol_good] } {
-    regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full nb_compsol
-    if { ${nb_compsol} != ${nb_compsol_good} } {
-        puts "Error : Result shape is WRONG because it must contains ${nb_compsol_good} compsolids instead of ${nb_compsol}"
-    } else {
-        puts "Result shape contains ${nb_compsol} compsolids"
-    }
-}
-
-if { [info exists nb_compound_good] } {
-    regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full nb_compound
-    if { ${nb_compound} != ${nb_compound_good} } {
-        puts "Error : Result shape is WRONG because it must contains ${nb_compound_good} compounds instead of ${nb_compound}"
-    } else {
-        puts "Result shape contains ${nb_compound} compounds"
-    }
-}
-
-if { [info exists nb_shape_good] } {
-    regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full nb_shape
-    if { ${nb_shape} != ${nb_shape_good} } {
-        puts "Error : Result shape is WRONG because it must contains ${nb_shape_good} shapes instead of ${nb_shape}"
-    } else {
-        puts "Result shape contains ${nb_shape} shapes"
-    }
-}
-
index 5d6a7d4..ba457e1 100755 (executable)
@@ -27,3 +27,5 @@ if { [array get Draw_Groups "TOPOLOGY Check commands"] == "" } {
 if { [array get Draw_Groups "ZeViewer"] == "" } {
        pload AISV
 }
+
+set subgroup mesh
diff --git a/tests/bugs/modalg/begin b/tests/bugs/modalg/begin
new file mode 100755 (executable)
index 0000000..3490337
--- /dev/null
@@ -0,0 +1,9 @@
+set subgroup modalg
+
+
+
+
+
+
+
+
index d213ff1..1226c03 100755 (executable)
@@ -1,7 +1,6 @@
 puts "TODO OCC12345 ALL: An exception was caught"
 puts "TODO OCC12345 ALL: Exception"
 puts "TODO OCC12345 ALL: Faulty  BUC60703: here is problem with FUSE operation"
-puts "TODO OCC12345 ALL: Error : The command can not be build."
 
 puts "========================"
 puts "BUC60703"
@@ -32,7 +31,7 @@ if [catch {bfuse result a b } catch_result] {
        puts "BUC60703  OK"
     }
     #  maxtolerance res
+    set square 0
+    set 2dviewer 0
 }
 
-set square 0
-set 2dviewer 0
index d5526a8..7d042a1 100755 (executable)
@@ -1,7 +1,6 @@
 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_2"
 puts "TODO OCC12345 ALL: Faulty : mistakes are found in SOURCE  shape by checkshape command"
 puts "TODO OCC12345 ALL: Faulty BUC60782"
-puts "TODO OCC12345 ALL: Error : The command can not be build."
         
 puts "========================"
 puts "BUC60782"
@@ -32,6 +31,6 @@ if { [regexp {OK} $che ] != 1} {
        puts "OK BUC60782: offset is created"
        tpcompound result
     }
+    set square 0
+    set 2dviewer 0
 }
-set square 0
-set 2dviewer 0
index 527904a..2119030 100755 (executable)
@@ -17,8 +17,6 @@ checkshape S1
 bcommon result S1 S2
 
 set nb_info [nbshapes result]
-
-
 regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full err
 regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
 
index 6cd0887..b35e264 100755 (executable)
@@ -13,7 +13,6 @@ checkshape S2
 
 bcommon result S1 S2
 
-
 set nb_info [nbshapes result]
 regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
index acdf0d8..0b3f61a 100755 (executable)
@@ -15,7 +15,6 @@ plane pl 1.1 0.99999 1 0 1 0
 mkface f pl
 bsection result sh f
 
-
 set nb_info [nbshapes result]
 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
 
index 8d81837..0d57ec2 100755 (executable)
@@ -7,7 +7,6 @@ puts ""
 #######################################################################
 
 pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
 
 restore [locate_data_file BUC60882_samepar.brep] result
 
index 460a3a1..1a252cc 100755 (executable)
@@ -1,5 +1,4 @@
 puts "TODO OCC12345 ALL: Faulty BUC60898: here is reading problem"
-puts "TODO OCC12345 ALL: Error : The command can not be build."
 
 puts "==========="
 puts "  BUC60898"
@@ -7,7 +6,6 @@ puts "==========="
 puts ""
 
 pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
 
 if [catch { igesbrep [locate_data_file $filedir/buc60898.igs] a *} result] { 
 ## rename to BUC60898.igs
@@ -21,16 +19,8 @@ if [catch { igesbrep [locate_data_file $filedir/buc60898.igs] a *} result] {
     } else {
        puts " BUC60898 OK: function SEWING works without except"
     }
+    set square 0
+    set 2dviewer 0
 }
 
-#checkshape res
-#set che [checkshape res r]
-#set err [lindex $che [expr [llength $che] - 1]]
-#if { $err != "OK"} {
-#  puts "Faulty : mistakes are found in checked shape by checkshape command"
-#} else {
-#  puts "Checking by checkshape - OK"
-#}
 
-set square 0
-set 2dviewer 0
index 4d79361..09757b8 100755 (executable)
@@ -45,7 +45,6 @@ bsection result crg cyl
 set nb_info [nbshapes result]
 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full edgeness
 
-
     #set fullness [ nbshapes res ]
     #puts "$fullness"
     #set qq [ lindex $fullness 0 ]
index f599daf..811021e 100755 (executable)
@@ -13,7 +13,6 @@ if {[catch {setvperiodic a} message]} {
     if {[catch {mkface result a} message]} {
        puts "OCC1665 FAULTY : mkface"
     } else {
-        set nb_info [nbshapes result]
        set nb_e_good 3
     }
 }
index bbf1721..f8ba733 100755 (executable)
@@ -7,7 +7,6 @@ puts ""
 #==============================#
 
 pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
 
 restore [locate_data_file OCC21.brep] sh 
 checkshape sh
index 2f3682b..1b5405b 100755 (executable)
@@ -10,13 +10,11 @@ restore [locate_data_file bug23470_qe.brep] qe
 explode qe
 bop qe_1 qe_2
 bopfuse result
-set nb_info [nbshapes result]
 
 set nb_v_good 2
 set nb_e_good 1
 set nb_w_good 1
 set nb_shape_good 5
-
 set length 48.4459
 set command bopfuse
 
index fd49fe8..cdfd9d7 100755 (executable)
@@ -13,10 +13,6 @@ puts [restore [locate_data_file case_2_edge1.brep] b]
 puts [bop a b]
 puts [bopcommon result b a]
 
-set nb_info [nbshapes result]
-set nb_v_good 14
-set nb_e_good 7
-
 explode result v
 explode a e
 distmini di result_1 a_3 
@@ -27,5 +23,7 @@ if { [expr $dis > 1.e-5] } {
     puts " Result shape is COMPLITE"
 }
 
+set nb_v_good 14
+set nb_e_good 7
 set length 0
 set 2dviewer 0
index bb1f062..e92fd4b 100755 (executable)
@@ -13,10 +13,6 @@ puts [restore [locate_data_file case_2_edge1.brep] b]
 puts [bop a b]
 puts [boptuc result b a]
 
-set nb_info [nbshapes result]
-set nb_v_good 14
-set nb_e_good 7
-
 explode result v
 explode a e
 distmini di result_2 a_3 
@@ -27,5 +23,7 @@ if { [expr $dis > 1.e-5] } {
     puts " Result shape is COMPLITE"
 }
 
+set nb_v_good 14
+set nb_e_good 7
 set length 0
 set 2dviewer 0
index 855f90f..cca3f2e 100755 (executable)
@@ -11,13 +11,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file OCC238a.brep] a
 restore [locate_data_file case_2_wire1.brep] b
- puts [bop a b]
- puts [bopcommon result]
+puts [bop a b]
+puts [bopcommon result]
  
- set nb_info [nbshapes result]
- set nb_v_good 18
- set nb_e_good 10
- set length 0
- set 2dviewer 0
+set nb_v_good 18
+set nb_e_good 10
+set length 0
+set 2dviewer 0
  
\ No newline at end of file
index 8d71b62..ddacd39 100755 (executable)
@@ -9,12 +9,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file OCC238a.brep] a
 restore [locate_data_file case_2_wire1.brep] b
- puts [bop a b]
- puts [boptuc result]
- set nb_info [nbshapes result]
- set nb_v_good 18
- set nb_e_good 11
+puts [bop a b]
+puts [boptuc result]
 
+set nb_v_good 18
+set nb_e_good 11
 set length 2481.26
 set 2dviewer 0
  
\ No newline at end of file
index 2f46893..9761aa1 100755 (executable)
@@ -11,12 +11,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file OCC240a.brep] a
 restore [locate_data_file case_2_edge2.brep] b
- puts [bop a b]
- puts [bopcommon result]
- set nb_info [nbshapes result]
- set nb_v_good 14
- set nb_e_good 6
+puts [bop a b]
+puts [bopcommon result]
 
- set length 0
- set 2dviewer 0
+set nb_v_good 14
+set nb_e_good 6
+set length 0
+set 2dviewer 0
  
\ No newline at end of file
index d6575a3..189f358 100755 (executable)
@@ -11,12 +11,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file OCC240a.brep] a
 restore [locate_data_file case_2_edge2.brep] b
- puts [bop a b]
- puts [boptuc result]
- set nb_info [nbshapes result]
- set nb_v_good 14
- set nb_e_good 7
+puts [bop a b]
+puts [boptuc result]
 
- set length 0
- set 2dviewer 0
+set nb_v_good 14
+set nb_e_good 7
+set length 0
+set 2dviewer 0
  
\ No newline at end of file
index 5b01f27..c29342a 100755 (executable)
@@ -11,12 +11,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file OCC240a.brep] a
 restore [locate_data_file case_2_edge3.brep] b
- puts [bop a b]
- puts [bopcommon result]
- set nb_info [nbshapes result]
- set nb_v_good 6
- set nb_e_good 3
+puts [bop a b]
+puts [bopcommon result]
 
- set length 0
- set 2dviewer 0
+set nb_v_good 6
+set nb_e_good 3
+set length 0
+set 2dviewer 0
  
\ No newline at end of file
index c6c1f01..0aecc6e 100755 (executable)
@@ -11,12 +11,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file OCC240a.brep] a
 restore [locate_data_file case_2_edge3.brep] b
- puts [bop a b]
- puts [boptuc result]
- set nb_info [nbshapes result]
- set nb_v_good 6
- set nb_e_good 3
- set length 0
- set 2dviewer 0
+puts [bop a b]
+puts [boptuc result]
+
+set nb_v_good 6
+set nb_e_good 3
+set length 0
+set 2dviewer 0
  
\ No newline at end of file
index b54049b..1e6dab4 100755 (executable)
@@ -11,12 +11,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file OCC240a.brep] a
 restore [locate_data_file case_2_wire1.brep] b
- puts [bop a b]
- puts [bopcommon result]
- set nb_info [nbshapes result]
- set nb_v_good 18
- set nb_e_good 9
- set length 0
- set 2dviewer 0
+puts [bop a b]
+puts [bopcommon result]
+
+set nb_v_good 18
+set nb_e_good 9
+set length 0
+set 2dviewer 0
  
\ No newline at end of file
index b6a9e6b..1304e72 100755 (executable)
@@ -11,12 +11,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file OCC240a.brep] a
 restore [locate_data_file case_2_wire1.brep] b
- puts [bop a b]
- puts [boptuc result]
- set nb_info [nbshapes result]
- set nb_v_good 18
- set nb_e_good 13
- set length 0
- set 2dviewer 0
+puts [bop a b]
+puts [boptuc result]
+
+set nb_v_good 18
+set nb_e_good 13
+set length 0
+set 2dviewer 0
  
\ No newline at end of file
index 19a30ca..6cca505 100755 (executable)
@@ -9,12 +9,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file case_4_shell.brep] a
 restore [locate_data_file case_4_wire3.brep] b
- puts [bop a b]
- puts [bopcommon result]
- set nb_info [nbshapes result]
- set nb_v_good 15
- set nb_e_good 10
- set length 1150.78
- set 2dviewer 0
+puts [bop a b]
+puts [bopcommon result]
+
+set nb_v_good 15
+set nb_e_good 10
+set length 1150.78
+set 2dviewer 0
  
\ No newline at end of file
index ed3f1fb..d7613a9 100755 (executable)
@@ -9,12 +9,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file case_4_shell.brep] a
 restore [locate_data_file case_4_wire3.brep] b
- puts [bop a b]
- puts [boptuc result]
- set nb_info [nbshapes result]
- set nb_v_good 16
- set nb_e_good 11
+puts [bop a b]
+puts [boptuc result]
 
- set length 929.278
- set 2dviewer 1
+set nb_v_good 16
+set nb_e_good 11
+set length 929.278
+set 2dviewer 1
  
\ No newline at end of file
index d7c0cea..8b24b1e 100755 (executable)
@@ -11,10 +11,9 @@ restore [locate_data_file case_5_solid.brep] a
 restore [locate_data_file case_4_wire3.brep] b
  puts [bop a b]
  puts [bopcommon result]
- set nb_info [nbshapes result]
+
  set nb_v_good 12
  set nb_e_good 11
-
  set length 1808.02
  set 2dviewer 0
  
\ No newline at end of file
index 0c8f016..ad7f598 100755 (executable)
@@ -9,12 +9,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file case_5_shell.brep] a
 restore [locate_data_file case_4_wire3.brep] b
- puts [bop a b]
- puts [bopcommon result]
- set nb_info [nbshapes result]
- set nb_v_good 12
- set nb_e_good 11
+puts [bop a b]
+puts [bopcommon result]
 
- set length 1808.02
- set 2dviewer 0
+set nb_v_good 12
+set nb_e_good 11
+set length 1808.02
+set 2dviewer 0
  
\ No newline at end of file
index 10f19fe..ceda3cd 100755 (executable)
@@ -9,12 +9,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file case_5_shell.brep] a
 restore [locate_data_file case_4_wire3.brep] b
- puts [bop a b]
- puts [boptuc result]
- set nb_info [nbshapes result]
- set nb_v_good 3
- set nb_e_good 2
- set length 272.04
- set 2dviewer 0
+puts [bop a b]
+puts [boptuc result]
+
+set nb_v_good 3
+set nb_e_good 2
+set length 272.04
+set 2dviewer 0
  
\ No newline at end of file
index c0791bb..dd1ea1d 100755 (executable)
@@ -11,12 +11,10 @@ puts "========================"
  puts " " 
 restore [locate_data_file OCC246a.brep] a
 restore [locate_data_file case_1_wire1.brep] b
- puts [bop a b]
- puts [bopcommon result]
- set nb_info [nbshapes result]
- set nb_v_good 5
- set nb_e_good 2
- set length 0
- set 2dviewer 0
\ No newline at end of file
+puts [bop a b]
+puts [bopcommon result]
+
+set nb_v_good 5
+set nb_e_good 2
+set length 0
+set 2dviewer 0
index 2d90b98..19bd2cf 100755 (executable)
@@ -11,12 +11,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file OCC247a.brep] a
 restore [locate_data_file OCC248b.brep] b
- puts [bop a b]
- puts [bopcommon result]
- set nb_info [nbshapes result]
- set nb_v_good 1
- set nb_e_good 0
- set length 0
- set 2dviewer 0
+puts [bop a b]
+puts [bopcommon result]
+
+set nb_v_good 1
+set nb_e_good 0
+set length 0
+set 2dviewer 0
  
\ No newline at end of file
index 43e3a16..86644ae 100755 (executable)
@@ -11,12 +11,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file OCC247a.brep] a
 restore [locate_data_file OCC248b.brep] b
- puts [bop a b]
- puts [boptuc result]
- set nb_info [nbshapes result]
- set nb_v_good 8
- set nb_e_good 8
- set length 0
- set 2dviewer 0
+puts [bop a b]
+puts [boptuc result]
+
+set nb_v_good 8
+set nb_e_good 8
+set length 0
+set 2dviewer 0
  
\ No newline at end of file
index beefe7f..718f83c 100755 (executable)
@@ -11,12 +11,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file case_9_wire_a.brep] a
 restore [locate_data_file case_9_edge3.brep] b
- puts [bop a b]
- puts [bopcommon result]
- set nb_info [nbshapes result]
- set nb_v_good 2
- set nb_e_good 1
- set length 0
- set 2dviewer 0
+puts [bop a b]
+puts [bopcommon result]
+
+set nb_v_good 2
+set nb_e_good 1
+set length 0
+set 2dviewer 0
  
\ No newline at end of file
index 79a5ce8..3831479 100755 (executable)
@@ -11,13 +11,12 @@ puts "========================"
  puts " " 
 restore [locate_data_file case_9_wire_a.brep] a
 restore [locate_data_file case_9_edge3.brep] b
- puts [bop a b]
- puts [boptuc result]
- set nb_info [nbshapes result]
- set nb_v_good 4
- set nb_e_good 2
+puts [bop a b]
+puts [boptuc result]
 
- set length 0
- set 2dviewer 0
+set nb_v_good 4
+set nb_e_good 2
+set length 0
+set 2dviewer 0
  
  
\ No newline at end of file
index 6ea2f7d..eb6acc1 100755 (executable)
@@ -11,12 +11,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file case_9_wire_a.brep] a
 restore [locate_data_file case_9_edge3.brep] b
- puts [bop a b]
- puts [bopcut result]
- set nb_info [nbshapes result]
- set nb_v_good 4
- set nb_e_good 2
- set length 0
- set 2dviewer 0
+puts [bop a b]
+puts [bopcut result]
+
+set nb_v_good 4
+set nb_e_good 2
+set length 0
+set 2dviewer 0
  
\ No newline at end of file
index f7fc2ea..75e0d9c 100755 (executable)
@@ -11,12 +11,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file case_9_wire_a.brep] a
 restore [locate_data_file case_9_edge3.brep] b
- puts [bop a b]
- puts [bopfuse result]
- set nb_info [nbshapes result]
- set nb_v_good 6
- set nb_e_good 5
- set length 0
- set 2dviewer 2
+puts [bop a b]
+puts [bopfuse result]
+
+set nb_v_good 6
+set nb_e_good 5
+set length 0
+set 2dviewer 2
  
\ No newline at end of file
index a3dc6d4..f45bec6 100755 (executable)
@@ -11,12 +11,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file case_9_wire_a.brep] a
 restore [locate_data_file case_9_wire2.brep] b
- puts [bop a b]
- puts [bopcommon result]
- set nb_info [nbshapes result]
- set nb_v_good 2
- set nb_e_good 1
+puts [bop a b]
+puts [bopcommon result]
 
- set length 0
- set 2dviewer 0
+set nb_v_good 2
+set nb_e_good 1
+set length 0
+set 2dviewer 0
  
\ No newline at end of file
index 68fd5d3..4e98480 100755 (executable)
@@ -11,12 +11,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file case_9_wire_a.brep] a
 restore [locate_data_file case_9_wire2.brep] b
- puts [bop a b]
- puts [boptuc result]
- set nb_info [nbshapes result]
- set nb_v_good 7
- set nb_e_good 6
+puts [bop a b]
+puts [boptuc result]
 
- set length 0
- set 2dviewer 0
+set nb_v_good 7
+set nb_e_good 6
+set length 0
+set 2dviewer 0
  
\ No newline at end of file
index 6861784..5d94eba 100755 (executable)
@@ -11,12 +11,11 @@ puts "========================"
  puts " " 
 restore [locate_data_file case_9_wire_a.brep] a
 restore [locate_data_file case_9_wire2.brep] b
- puts [bop a b]
- puts [bopcut result]
- set nb_info [nbshapes result]
- set nb_v_good 4
- set nb_e_good 2
+puts [bop a b]
+puts [bopcut result]
 
- set length 0
- set 2dviewer 0
+set nb_v_good 4
+set nb_e_good 2
+set length 0
+set 2dviewer 0
  
\ No newline at end of file
index 8feeec1..18a0612 100755 (executable)
@@ -11,11 +11,10 @@ puts "========================"
  puts " " 
 restore [locate_data_file case_9_wire_a.brep] a
 restore [locate_data_file case_9_wire2.brep] b
- puts [bop a b]
- puts [bopfuse result]
-set nb_info [nbshapes result]
+puts [bop a b]
+puts [bopfuse result]
+
 set nb_v_good 9
 set nb_e_good 9
-
 set length 0
 set 2dviewer 0
index 0378b70..829c95c 100755 (executable)
@@ -8,7 +8,6 @@ puts ""
 #############################################################
 
 pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
 
 restore [locate_data_file OCC398.brep] a 
 #statsh a
@@ -20,18 +19,6 @@ scaleshape result a 10
 
 #statsh res
 
-
-set nb_info [nbshapes result]
 set nb_sol_good 1
-
-#if { $sol == 1 } {
-#    puts  " OCC398 : scaleshape operation was made properly"
-#} else {
-#    puts "Faulty OCC398: scaleshape operation was made wrongly"
-#}
-
-#Statshape should give 3 solids
-#Nbshape should return 1 solid (3 solids is returned if bug not fixed)
-
 set square 180000.
 set 2dviewer 0
index 1048351..77f6b34 100755 (executable)
@@ -29,7 +29,6 @@ bop s b
 bopfuse result
 
 set square 680565
-set nb_info [nbshapes result]
 
 set nb_v_good 11
 set nb_e_good 16
index e323536..edf0106 100755 (executable)
@@ -29,7 +29,6 @@ bop b s
 bopfuse result
 
 set square 680565
-set nb_info [nbshapes result]
 
 set nb_v_good 11
 set nb_e_good 16
index c1fa126..185f588 100755 (executable)
@@ -29,7 +29,6 @@ bop s b
 bopcut result
 
 set square 181937
-set nb_info [nbshapes result]
 
 set nb_v_good 3
 set nb_e_good 4
index b1fe5c2..c68768e 100755 (executable)
@@ -29,7 +29,6 @@ bop b s
 bopcut result
 
 set square 680565
-set nb_info [nbshapes result]
 
 set nb_v_good 11
 set nb_e_good 16
index cac8746..8eae8fa 100755 (executable)
@@ -29,7 +29,6 @@ bop s b
 boptuc result
 
 set square 680565
-set nb_info [nbshapes result]
 
 set nb_v_good 11
 set nb_e_good 16
index 01bafd5..dab4307 100755 (executable)
@@ -29,7 +29,6 @@ bop b s
 boptuc result
 
 set square 181937
-set nb_info [nbshapes result]
 
 set nb_v_good 3
 set nb_e_good 4
index 99d4b6a..804091e 100755 (executable)
@@ -29,7 +29,6 @@ bop s b
 bopcommon result
 
 set square 181937
-set nb_info [nbshapes result]
 
 set nb_v_good 3
 set nb_e_good 4
index 3f28f57..40fe4fa 100755 (executable)
@@ -29,7 +29,6 @@ bop b s
 bopcommon result
 
 set square 181937
-set nb_info [nbshapes result]
 
 set nb_v_good 3
 set nb_e_good 4
index 305485f..903b34f 100755 (executable)
@@ -19,10 +19,8 @@ checkshape b2
 
 bfuse result b1 b2
 
-set nb_info [nbshapes result]
 set nb_v_good 5
 set nb_e_edge 7
-
 set square 0
 set 2dviewer 0
 
index 07bf00d..e05d8c9 100755 (executable)
@@ -15,10 +15,7 @@ checkshape s2
 bop s1 s2
 bopfuse result
 
-set nb_info [nbshapes result]
-
 set square 9333.96
-
 set nb_v_good 16
 set nb_e_good 26
 set nb_w_good 11
index e6f51b1..892685e 100755 (executable)
@@ -15,10 +15,7 @@ checkshape s2
 bop s2 s1
 bopfuse result
 
-set nb_info [nbshapes result]
-
 set square 9333.96
-
 set nb_v_good 16
 set nb_e_good 26
 set nb_w_good 11
index c0440ee..ef5d6ff 100755 (executable)
@@ -15,10 +15,7 @@ checkshape s2
 bop s1 s2
 bopcut result
 
-set nb_info [nbshapes result]
-
 set square 99.5159
-
 set nb_v_good 12
 set nb_e_good 19
 set nb_w_good 9
index b540f08..55739ac 100755 (executable)
@@ -15,10 +15,7 @@ checkshape s2
 bop s2 s1
 bopcut result
 
-set nb_info [nbshapes result]
-
 set square 9340.03
-
 set nb_v_good 19
 set nb_e_good 33
 set nb_w_good 14
index 2df33eb..b7a375c 100755 (executable)
@@ -15,10 +15,7 @@ checkshape s2
 bop s1 s2
 boptuc result
 
-set nb_info [nbshapes result]
-
 set square 9340.03
-
 set nb_v_good 19
 set nb_e_good 33
 set nb_w_good 14
index 02d7aa4..a432439 100755 (executable)
@@ -15,10 +15,7 @@ checkshape s2
 bop s2 s1
 boptuc result
 
-set nb_info [nbshapes result]
-
 set square 99.5159
-
 set nb_v_good 12
 set nb_e_good 19
 set nb_w_good 9
index eee8c34..e8c9a7e 100755 (executable)
@@ -15,10 +15,7 @@ checkshape s2
 bop s1 s2
 bopcommon result
 
-set nb_info [nbshapes result]
-
 set square 105.587
-
 set nb_v_good 15
 set nb_e_good 26
 set nb_w_good 12
index 8c3559f..f519b5a 100755 (executable)
@@ -15,10 +15,7 @@ checkshape s2
 bop s2 s1
 bopcommon result
 
-set nb_info [nbshapes result]
-
 set square 105.587
-
 set nb_v_good 15
 set nb_e_good 26
 set nb_w_good 12
index b497083..b42ce3a 100755 (executable)
@@ -1,4 +1,5 @@
-puts "TODO OCC12345 ALL: Error : The command can not be build."
+puts "TODO OCC12345 ALL: result is not a topological shape!!!"
+puts "TODO OCC12345 ALL: TEST INCOMPLETE"
 
 puts "========="
 puts " OCC497 "
@@ -17,11 +18,5 @@ checkshape a_2
 
 bcut result a_1 a_2
 
-#if { [catch { bcut result a_1 a_2 } catch_result] } {
-#    puts "Faulty OCC497:function CUT works wrongly "
-#} else {
-#    puts "OCC497 : function CUT works without hangs up "
-#}
-
 set square 0
 set 2dviewer 0
index 92b8f0f..5641abf 100755 (executable)
@@ -17,7 +17,6 @@ bop s1 s2
 bopfuse result
 
 set square 4854.51
-set nb_info [nbshapes result]
 
 set nb_v_good 40
 set nb_e_good 64
index 6b46745..7c5ff16 100755 (executable)
@@ -17,7 +17,6 @@ bop s2 s1
 bopfuse result
 
 set square 4854.51
-set nb_info [nbshapes result]
 
 set nb_v_good 40
 set nb_e_good 64
index 1476e5f..44ea809 100755 (executable)
@@ -8,7 +8,6 @@ puts ""
 ################################################
 
 pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
 
 restore [locate_data_file OCC592.brep] a 
 
index b110cd7..54bc654 100755 (executable)
@@ -9,7 +9,6 @@ puts ""
 #############################################################
 
 pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
 
 restore [locate_data_file OCC535.brep] a 
 
index 17d2f24..5c34938 100755 (executable)
@@ -9,13 +9,13 @@ puts ""
  puts "  BOPCOMMON   case_4_shell.brep and case_4_wire3.brep"
  puts "==========================================="
  puts " " 
- puts [restore [locate_data_file case_4_shell.brep] a] 
- puts [restore [locate_data_file case_4_wire3.brep] b] 
- puts [bop a b]
- puts [bopcommon result]
-set nb_info [nbshapes result]
+
+restore [locate_data_file case_4_shell.brep] a
+restore [locate_data_file case_4_wire3.brep] b
+bop a b
+bopcommon result
+
 set nb_v_good 15
 set nb_e_good 10
-
 set length 1150.78
 set 2dviewer 0
index abdaf6a..dc31058 100755 (executable)
@@ -9,15 +9,14 @@ puts ""
  puts "  BOPTUC      case_4_shell.brep and case_4_wire3.brep"
  puts "============================================"
  puts " " 
- puts [restore [locate_data_file case_4_shell.brep] a] 
- puts [restore [locate_data_file case_4_wire3.brep] b] 
- puts [bop a b]
- puts [boptuc result]
 
-set nb_info [nbshapes result]
+restore [locate_data_file case_4_shell.brep] a
+restore [locate_data_file case_4_wire3.brep] b
+bop a b
+boptuc result
+
 set nb_v_good 16
 set nb_e_good 11
-
 set length 929.278
 set 2dviewer 0
 
index 963ee8f..b301f73 100755 (executable)
@@ -9,7 +9,6 @@ puts ""
 ##################################################################
 
 pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
 
 restore [locate_data_file CTO908_topo103-t.brep] a 
 
index d5fd058..8aa9494 100755 (executable)
@@ -1,4 +1,3 @@
-puts "TODO OCC12345 ALL: Error : The command can not be build"
 puts "TODO OCC12345 ALL: Faulty OCC673: function SPLITSHAPE works wrongly"
 
 puts "================"
@@ -19,7 +18,9 @@ if [catch {spliteshape result a a b} catch_result] {
     puts "Faulty OCC673: function SPLITSHAPE works wrongly"
 } else {
     puts "OCC673 OK : function SPLITSHAPE works OK"
+    set square 0
+    set 2dviewer 0
 }
 
-set square 0
-set 2dviewer 0
+
+
similarity index 92%
rename from tests/bugs/moddata/bug726_3
rename to tests/bugs/modalg/bug726_3
index 708f6d2..58dbf30 100755 (executable)
@@ -17,8 +17,5 @@ checkshape a_2
 
 bcut result a_2 a_1
 
-checkshape result
-
-set check_square 1
 set square 10
 set 2dviewer 0
index c8d52b2..99e6796 100755 (executable)
@@ -1,7 +1,6 @@
 puts "TODO OCC12345 ALL: An exception was caught"
 puts "TODO OCC12345 ALL: Exception "
 puts "TODO OCC12345 ALL: Faulty OCC745"
-puts "TODO OCC12345 ALL: Error : The command can not be build."
 
 puts "========"
 puts "OCC745"
@@ -40,8 +39,6 @@ if { [catch { mkoffset result w 1 10 } status] } {
             }
         }
     }
+    set length 0
+    set 2dviewer 0
 }
-
-set length 0
-set 2dviewer 0
-
index 606ae7f..8c4cd8c 100755 (executable)
@@ -1,6 +1,5 @@
 puts "TODO OCC12345 ALL: An exception was caught"
 puts "TODO OCC12345 ALL: Exception"
-puts "TODO OCC12345 ALL: Error : The command can not be build."
 
 puts "========"
 puts "OCC829"
@@ -42,8 +41,6 @@ if { [catch { mkoffset result a_1 1 5 } status] } {
             }
         }
     }
+    set length 0
+    set 2dviewer 0
 }
-
-set length 0
-set 2dviewer 0  
-
index 09965c8..e2798a7 100755 (executable)
@@ -8,7 +8,6 @@ puts ""
 #####################################################
 
 pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
 
 restore [locate_data_file OCC910.rle] a 
 
diff --git a/tests/bugs/modalg/end b/tests/bugs/modalg/end
deleted file mode 100755 (executable)
index 1e3fbf0..0000000
+++ /dev/null
@@ -1,123 +0,0 @@
-if { [isdraw result] } {
-   #check if result is valid
-   
-   puts "checkshape"
-   set ch [checkshape result]
-   puts $ch
-   
-   if { [info exists square] } {
-      set prop "square"
-      set mass $square
-      regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m      
-   }
-   if { [info exists length] } {
-      set prop "length"
-      set mass $length
-      regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full m      
-
-      puts "checksection"
-      puts [checksection result]
-   }
-
-   #if mass (length or square) is empty in test case then result should be an empty shape.
-   if { [string compare "$mass" "empty"] != 0 } {
-      if { $m == 0 } {
-                puts "Error : The command is not valid. The $prop is 0."
-      }
-      if { $mass > 0 } {
-        puts "The expected $prop is $mass"
-      }
-      #check of change of square is < 1%
-      if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
-        puts "Error : The $prop of result shape is $m"
-      }
-    
-    if { [info exists nb_v_good] } {
-       regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_v
-       if { ${nb_v} != ${nb_v_good} } {
-           puts "Error : Result shape is WRONG because it must contains ${nb_v_good} vertexes instead of ${nb_v}"
-       } else {
-           puts "Result shape contains ${nb_v} vertexes"
-       }
-    }
-
-    if { [info exists nb_e_good] } {
-       regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_e
-       if { ${nb_e} != ${nb_e_good} } {
-           puts "Error : Result shape is WRONG because it must contains ${nb_e_good} edges instead of ${nb_e}"
-        } else {
-           puts "Result shape contains ${nb_e} edges"
-       }
-    }
-
-    if { [info exists nb_w_good] } {
-       regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full nb_w
-       if { ${nb_w} != ${nb_w_good} } {
-           puts "Error : Result shape is WRONG because it must contains ${nb_w_good} wires instead of ${nb_w}"
-        } else {
-           puts "Result shape contains ${nb_w} wires"
-       }
-    }
-
-    if { [info exists nb_f_good] } {
-       regexp {FACE +: +([-0-9.+eE]+)} $nb_info full nb_f
-       if { ${nb_f} != ${nb_f_good} } {
-           puts "Error : Result shape is WRONG because it must contains ${nb_f_good} faces instead of ${nb_f}"
-        } else {
-           puts "Result shape contains ${nb_f} faces"
-       }
-    }
-
-    if { [info exists nb_sh_good] } {
-       regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full nb_sh
-       if { ${nb_sh} != ${nb_sh_good} } {
-           puts "Error : Result shape is WRONG because it must contains ${nb_sh_good} shells instead of ${nb_sh}"
-        } else {
-           puts "Result shape contains ${nb_sh} shells"
-       }
-    }
-
-    if { [info exists nb_sol_good] } {
-       regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full nb_sol
-       if { ${nb_sol} != ${nb_sol_good} } {
-           puts "Error : Result shape is WRONG because it must contains ${nb_sol_good} solids instead of ${nb_sol}"
-        } else {
-           puts "Result shape contains ${nb_sol} solids"
-       }
-    }
-
-    if { [info exists nb_compsol_good] } {
-       regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full nb_compsol
-       if { ${nb_compsol} != ${nb_compsol_good} } {
-           puts "Error : Result shape is WRONG because it must contains ${nb_compsol_good} compsolids instead of ${nb_compsol}"
-        } else {
-           puts "Result shape contains ${nb_compsol} compsolids"
-       }
-    }
-
-    if { [info exists nb_compound_good] } {
-       regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full nb_compound
-       if { ${nb_compound} != ${nb_compound_good} } {
-           puts "Error : Result shape is WRONG because it must contains ${nb_compound_good} compounds instead of ${nb_compound}"
-        } else {
-           puts "Result shape contains ${nb_compound} compounds"
-       }
-    }
-
-    if { [info exists nb_shape_good] } {
-       regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full nb_shape
-       if { ${nb_shape} != ${nb_shape_good} } {
-           puts "Error : Result shape is WRONG because it must contains ${nb_shape_good} shapes instead of ${nb_shape}"
-        } else {
-           puts "Result shape contains ${nb_shape} shapes"
-       }
-    }
-
-   } else {
-      if { $m != 0 } {
-                puts "Error : The command is not valid. The $prop is $m"
-      }
-   }
-} else {
-   puts "Error : The command can not be build."
-}
diff --git a/tests/bugs/moddata/begin b/tests/bugs/moddata/begin
new file mode 100755 (executable)
index 0000000..572d363
--- /dev/null
@@ -0,0 +1,9 @@
+set subgroup moddata
+
+
+
+
+
+
+
+
index 0beaab6..e7ac755 100755 (executable)
@@ -6,6 +6,5 @@ puts "========================"
 restore [locate_data_file buc60637a.brep] result
 fsameparameter result
 
-set check_square 1
 set square 144.866
 set 2dviewer 0
index 08b6e68..20d1072 100755 (executable)
@@ -10,6 +10,5 @@ restore [locate_data_file buc60652a.brep] result
 checkshape result
 BUC60652 result
 
-set check_square 1
 set square 19614.8
 set 2dviewer 0
index 677c238..fb8e4e5 100755 (executable)
@@ -10,7 +10,6 @@ restore [locate_data_file buc60652b.brep] result
 checkshape result
 BUC60652 result
 
-set check_square 1
 set square 29961
 set 2dviewer 0
 
index 150675f..bde1f93 100755 (executable)
@@ -10,6 +10,5 @@ restore [locate_data_file buc60652c.brep] result
 checkshape result
 BUC60652 result
 
-set check_square 1
 set square 77815.1
 set 2dviewer 0
index e03cc7a..04d72aa 100755 (executable)
@@ -10,6 +10,5 @@ restore [locate_data_file shading_104.brep] result
 checkshape result
 BUC60652 result
 
-set check_square 1
 set square 119134
 set 2dviewer 0
index 283cebb..46c988e 100755 (executable)
@@ -14,7 +14,6 @@ checkshape a
 tcopy a result
 checkshape result
 
-set check_square 1
 set square 623.832
 set 2dviewer 0
 
index 9eb62fc..6d93552 100755 (executable)
@@ -12,7 +12,6 @@ restore [locate_data_file BUC60895.brep] result
 fsameparameter result
 checkshape result
 
-set check_square 1
 set length 12.6012
 set 2dviewer 0
 
index 38a262f..08e2780 100755 (executable)
@@ -10,6 +10,5 @@ puts "============"
 restore [locate_data_file BUC60911.brep] result
 invert result
 
-set check_square 1
 set square 16353.8
 set 2dviewer 0
index 7910b14..6fa8f79 100755 (executable)
@@ -9,7 +9,6 @@ checkshape result
 
 build3d result
 
-set check_square 1
 set square 8464.65
 set 2dviewer 0
 
index 5a66edc..e40a6db 100755 (executable)
@@ -12,6 +12,5 @@ checkshape sh2
 
 compound sh1 sh2 result
 
-set check_square 1
 set square 560.774
 set 2dviewer 0
index b9761c8..e7c1989 100755 (executable)
@@ -14,6 +14,5 @@ checkshape sh
 prism result sh 100 100 100
 checkshape result
 
-set check_square 1
 set square 104057
 set 2dviewer 0
index 815f944..5a1622f 100755 (executable)
@@ -14,7 +14,6 @@ checkshape sh
 prism result sh 100 100 100
 checkshape result
 
-set check_square 1
 set square 271859
 set 2dviewer 0
 
index 671a68a..85247a9 100755 (executable)
@@ -10,7 +10,6 @@ checkshape sh
 sewing result 1 sh
 checkshape result
 
-set check_square 1
 set square 273837
 set 2dviewer 0
 
index 53423ad..9174f95 100755 (executable)
@@ -31,6 +31,5 @@ checkshape sh_2
 bfuse result sh_1 sh_2
 checkshape result
 
-set check_square 1
 set square 700
 set 2dviewer 0
index b55d14a..eac73fe 100755 (executable)
@@ -30,6 +30,5 @@ checkshape sh_2
 bfuse result sh_2 sh_1
 checkshape result
 
-set check_square 1
 set square 700
 set 2dviewer 0
index ba5ba13..c13709c 100755 (executable)
@@ -14,7 +14,6 @@ checkshape sh2
 bfuse result sh1 sh2
 checkshape result
 
-set check_square 1
 set square 11400
 set 2dviewer 0
 
index f57f1ed..12f3b5c 100755 (executable)
@@ -14,7 +14,6 @@ checkshape sh2
 bfuse result sh2 sh1
 checkshape result
 
-set check_square 1
 set square 11400
 set 2dviewer 0
 
index d068783..365abd7 100755 (executable)
@@ -22,7 +22,6 @@ checkshape sh_2
 bcut result sh_1 sh_2
 checkshape result
 
-set check_square 1
 set square 276424
 set 2dviewer 0
 
index e2af220..3bfef20 100755 (executable)
@@ -21,7 +21,6 @@ checkshape sh_2
 bcut result sh_2 sh_1
 checkshape result
 
-set check_square 1
 set square 34894.3
 set 2dviewer 0
 
index 9295085..6a0c7b6 100755 (executable)
@@ -18,7 +18,6 @@ if {$nf < 6} {
    puts "Error : the resulting shape is unclosed!!!"
 }
 
-set check_square 1
 set square 94067.7
 set 2dviewer 0
 
index a8a8f29..4aa1d8d 100755 (executable)
@@ -18,7 +18,6 @@ if {$nf < 6} {
    puts "Error : the resulting shape is unclosed!!!"
 }
 
-set check_square 1
 set square 94067.7
 set 2dviewer 0
 
index 7138331..08ee7f4 100755 (executable)
@@ -19,7 +19,6 @@ if {$nf < 6} {
    puts "Error : the resulting shape is unclosed!!!"
 }
 
-set check_square 1
 set square 328116
 set 2dviewer 0
 
index 8f0f12e..1b9364d 100755 (executable)
@@ -18,7 +18,6 @@ if {$nf < 6} {
    puts "Error : the resulting shape is unclosed!!!"
 }
 
-set check_square 1
 set square 328116
 set 2dviewer 0
 
index 6712ac4..fd618a9 100755 (executable)
@@ -18,7 +18,6 @@ if {$nf < 6} {
    puts "Error : the resulting shape is unclosed!!!"
 }
 
-set check_square 1
 set square 48129.6
 set 2dviewer 0
 
index 1ee510f..ff37689 100755 (executable)
@@ -19,7 +19,6 @@ if {$nf < 6} {
    puts "Error : the resulting shape is unclosed!!!"
 }
 
-set check_square 1
 set square 247636
 set 2dviewer 0
 
index 92f8e08..40162c2 100755 (executable)
@@ -13,7 +13,6 @@ checkshape sh2
 bfuse result sh1 sh2
 checkshape result
 
-set check_square 1
 set square 344595
 set 2dviewer 0
 
index 621fbef..f9fa341 100755 (executable)
@@ -13,7 +13,6 @@ checkshape sh2
 bfuse result sh2 sh1
 checkshape result
 
-set check_square 1
 set square 344595
 set 2dviewer 0
 
index a7100b6..5297a49 100755 (executable)
@@ -19,6 +19,5 @@ if { $col1 != $col2} {
    puts  "Error : Command mirror does NOT work properly. "
 }
 
-set check_square 1
 set square 13091.3
 set 2dviewer 0
index 0e4dccb..1adf74f 100755 (executable)
@@ -14,7 +14,6 @@ checkshape b2
 bcommon result b1 b2
 checkshape result
 
-set check_square 1
 set square 315.159
 set 2dviewer 0
 
index a4396aa..babea15 100755 (executable)
@@ -14,6 +14,5 @@ checkshape b2
 bfuse result b1 b2
 checkshape result
 
-set check_square 1
 set square 942.478
 set 2dviewer 0
index e8b782d..e2e4342 100755 (executable)
@@ -14,7 +14,6 @@ checkshape b2
 bcut result b1 b2
 checkshape result
 
-set check_square 1
 set square 863.938
 set 2dviewer 0
 
index 62bf145..985cf6b 100755 (executable)
@@ -14,7 +14,6 @@ checkshape b2
 bcommon result b1 b2
 checkshape result
 
-set check_square 1
 set square 392.699
 set 2dviewer 0
 
index 9e29053..b170dad 100755 (executable)
@@ -14,7 +14,6 @@ checkshape b2
 bcommon result b1 b2
 checkshape result
 
-set check_square 1
 set square 198.863
 set 2dviewer 0
 
index 12709f7..674c216 100755 (executable)
@@ -15,7 +15,6 @@ bop a b
 bopfuse result a b
 checkshape -top result
 
-set check_square 1
 set square 0.0892544
 set 2dviewer 0
 
index 72f29ef..6b840d4 100755 (executable)
@@ -13,7 +13,6 @@ checkshape a_2
 bcommon result a_1 a_2
 checkshape result
 
-set check_square 1
 set square 3739.26
 set 2dviewer 0
 
index 65a1400..a7ff6d6 100755 (executable)
@@ -12,7 +12,6 @@ checkshape a_2
 bcut result a_1 a_2
 checkshape result
 
-set check_square 1
 set square 669659
 set 2dviewer 0
 
index 769bb1a..4223a4c 100755 (executable)
@@ -14,7 +14,6 @@ explode a e
 blend result a 10 a_24
 checkshape result
 
-set check_square 1
 set square 1.34399e+06
 set 2dviewer 0
 
index c791e25..5857e5b 100755 (executable)
@@ -14,6 +14,5 @@ explode a e
 blend result a 10 a_4
 checkshape result
 
-set check_square 1
 set square 1.34399e+06
 set 2dviewer 0
index 05c39ab..301eced 100755 (executable)
@@ -13,6 +13,5 @@ psphere s 6
 bfuse result s b 
 checkshape result
 
-set check_square 1
 set square 618.85
 set 2dviewer 0
index 64cede8..fa5ae7e 100755 (executable)
@@ -21,6 +21,5 @@ checkshape b
 bfuse result a b 
 checkshape result
 
-set check_square 1
 set square 1583.92
 set 2dviewer 0
index bf387cc..0f7bfb1 100755 (executable)
@@ -21,6 +21,5 @@ checkshape b
 bfuse result b a 
 checkshape result
 
-set check_square 1
 set square 1583.92
 set 2dviewer 0
index 9bd1ce1..ea1a863 100755 (executable)
@@ -16,6 +16,5 @@ checkshape a_2
 
 bcommon result a_1 a_2
 
-set check_square 1
 set square 66231.3
 set 2dviewer 0
index cd39916..aab2e06 100755 (executable)
@@ -13,6 +13,5 @@ checkshape shape3
 common result shape1 shape3
 checkshape result
 
-set check_square 1
 set length 1231.07
 set 2dviewer 0
index a5d00c6..dc0026f 100755 (executable)
@@ -16,6 +16,5 @@ trotate b2 0 0 0 0 0 1 135
 bfuse result b2 b1
 checkshape -top result
 
-set check_square 1
 set square 18.8496
 set 2dviewer 0
index 652cc58..a45b818 100755 (executable)
@@ -16,7 +16,6 @@ explode face f
 chamf result face edge_10 face_3 A 1 45 edge_6 face_3 A 1 45 edge_11 face_3 A 1 45 edge_12 face_3 A 1 45 edge_13 face_3 A 1 45 edge_14 face_3 A 1 45 edge_8 face_3 A 1 45 edge_9 face_3 A 1 45
 checkshape result
 
-set check_square 1
 set square 48913
 set 2dviewer 0
 
index 3958a9b..971a2d7 100755 (executable)
@@ -10,7 +10,6 @@ puts ""
 restore [locate_data_file OCC268.brep] result 
 checkshape result
 
-set check_square 1
 set length 56.6039
 set 2dviewer 0
 
index 6da88a2..cccaa0b 100755 (executable)
@@ -11,9 +11,7 @@ checkshape a_2
 
 bfuse result a_1 a_2
 
-set check_square 1
 set square 44819.9
-
 set 2dviewer 0
 
 
index 8366ac0..2585427 100755 (executable)
@@ -11,7 +11,5 @@ checkshape a_2
 
 bfuse result a_2 a_1
 
-set check_square 1
 set square 44819.8
-
 set 2dviewer 0
index 2fc2822..c384545 100755 (executable)
@@ -16,6 +16,5 @@ restore [locate_data_file OCC278a.brep] a
 mkplane result a
 checkshape result
 
-set check_square 1
 set square 2914.99
 set 2dviewer 0
index 089dabd..51a833d 100755 (executable)
@@ -16,6 +16,5 @@ restore [locate_data_file OCC278b.brep] a
 mkplane result a
 checkshape result
 
-set check_square 1
 set square 22740
 set 2dviewer 0
index e6cd16f..47e7df8 100755 (executable)
@@ -22,6 +22,5 @@ if { [regexp "Faulty" $che] != 1 } {
    puts "Error (case 3) : Checkshape command works wrongly"
 }
 
-set check_square 1
 set square 43.3075
 set 2dviewer 0
index 0d2e01e..2c079cc 100755 (executable)
@@ -11,8 +11,6 @@ explode a e
 blend result a 1 a_5 1 a_6 1 a_7 1 a_8
 checkshape result
 
-set check_square 1
 set square 155.846
-
 set 2dviewer 0
 
index 9bb04b9..8a81f2a 100755 (executable)
@@ -12,8 +12,6 @@ explode a f
 chamf result a a_5 a_1 A 1 45 a_6 a_1 A 1 45 a_7 a_1 A 1 45 a_8 a_1 A 1 45
 checkshape result
 
-set check_square 1
 set square 154.145
-
 set 2dviewer 0
 
index 86bcf08..5ca2973 100755 (executable)
@@ -15,7 +15,6 @@ checkshape a_2
 bfuse result a_1 a_2
 checkshape result
 
-set check_square 1
 set square 483935
 set 2dviewer 0
 
index 487ce24..0d8eec1 100755 (executable)
@@ -15,7 +15,6 @@ checkshape a_2
 bfuse result a_2 a_1
 checkshape result
 
-set check_square 1
 set square 483935
 set 2dviewer 0
 
index 14a9782..a0b940d 100755 (executable)
@@ -29,6 +29,5 @@ explode res2_4 e
 chamf result res2 res2_4_1 res2_4 7 7
 checkshape result
 
-set check_square 1
 set square 107634
 set 2dviewer 0
index ec9a18d..f6e31f6 100755 (executable)
@@ -8,10 +8,10 @@ pload QAcommands
 set wall_thickness 10
 set dia1 30
 set dia2 50
-set length 100
+set ll 100
 set major_radius 200
 
-OCC332 ${wall_thickness} ${dia1} ${dia2} ${length} ${major_radius}
+OCC332 ${wall_thickness} ${dia1} ${dia2} ${ll} ${major_radius}
 
 checkshape wallSolid_
 checkshape gasSolid_
index 009d4ef..34b9cbb 100755 (executable)
@@ -15,6 +15,5 @@ explode a e
 blend result a 2 a_18
 checkshape result
 
-set check_square 1
 set square 593.527
 set 2dviewer 0
index bc7536c..100a457 100755 (executable)
@@ -18,6 +18,5 @@ donl a a_5_6
 chamf result a a_5_6 a_5 A 2 45
 checkshape result
 
-set check_square 1
 set square 589.268
 set 2dviewer 0
index f12b62d..e19b57e 100755 (executable)
@@ -13,6 +13,5 @@ offset su1 su 1
 
 mkface result su1
 
-set check_square 1
 set square 7960.45
 set 2dviewer 0
index 65bd53b..aee0b21 100755 (executable)
@@ -13,6 +13,5 @@ offset su2 su -1
 
 mkface result su2
 
-set check_square 1
 set square 7181.83
 set 2dviewer 0
index c5b7d80..378a381 100755 (executable)
@@ -14,7 +14,6 @@ offset r s 1
 
 mkface result s
 
-set check_square 1
 set square 1256.64
 set 2dviewer 0
 
index 142ed50..391810f 100755 (executable)
@@ -12,7 +12,6 @@ checkshape sh_2
 bfuse result sh_1 sh_2
 checkshape result
 
-set check_square 1
 set square 665013
 set 2dviewer 0
 
index 4aaf933..3811648 100755 (executable)
@@ -12,7 +12,6 @@ checkshape sh_2
 bfuse result sh_2 sh_1
 checkshape result
 
-set check_square 1
 set square 665013
 set 2dviewer 0
 
index f9f051c..c11b07d 100755 (executable)
@@ -12,7 +12,6 @@ restore [locate_data_file OCC380b.rle] b
 
 bcommon result a b
 
-set check_square 1
 set square 21.154
 set 2dviewer 0
 
index 869c814..f340025 100755 (executable)
@@ -12,6 +12,5 @@ restore [locate_data_file OCC380b.rle] b
 
 bcommon result b a
 
-set check_square 1
 set square 21.154
 set 2dviewer 0
index e5507c9..bdc5055 100755 (executable)
@@ -12,6 +12,5 @@ checkshape b
 bfuse result a b
 checkshape result
 
-set check_square 1
 set square 11400
 set 2dviewer 0
index b13213f..507896e 100755 (executable)
@@ -12,7 +12,6 @@ checkshape b
 bfuse result b a
 checkshape result
 
-set check_square 1
 set square 11400
 set 2dviewer 0
 
index c885ca0..dead6ca 100755 (executable)
@@ -12,7 +12,7 @@ explode sh e
 fillet result sh 15 sh_14
 checkshape result
 
-set square 1
+set square 177328
 set 2dviewer 0
 
 
index 054d026..2af6860 100755 (executable)
@@ -9,6 +9,5 @@ checkshape res
 
 nurbsconvert result res
 
-set check_square 1
 set square 693.577
 set 2dviewer 0
index 6e3063e..75472b6 100755 (executable)
@@ -26,6 +26,5 @@ checkshape a_2
 bfuse result a_1 a_2
 checkshape result
 
-set check_square 1
 set square 10
 set 2dviewer 0
index 5968bca..d2b2a15 100755 (executable)
@@ -14,6 +14,5 @@ checkshape a_2
 
 bfuse result a_1 a_2
 
-set check_square 1
 set square 4949.79
 set 2dviewer 0
index 5b2e296..7db5f09 100755 (executable)
@@ -16,6 +16,5 @@ explode a e
 blend result a 1 a_17 1 a_5 1 a_1 1 a_2 1 a_16 1 a_20 1 a_3 1 a_11 1 a_10 1 a_4
 checkshape result
 
-set check_square 1
 set square 7677.49
 set 2dviewer 0
index 46428f8..f1cdc4f 100755 (executable)
@@ -20,7 +20,6 @@ if [catch {blend result a 13 a_41 } res] {
     puts "OCC601 OK: function BLEND works without exception"
     checkshape result
     
-    set check_square 1
     set square 10
     set 2dviewer 0
 }
index 998f762..98f29e8 100755 (executable)
@@ -16,6 +16,5 @@ checkshape a_2
 bfuse result a_1 a_2
 checkshape result
 
-set check_square 1
 set square 531.197
 set 2dviewer 0
index 71616d4..a9efdc4 100755 (executable)
@@ -17,6 +17,5 @@ bop a_1 a_2
 bopfuse result
 checkshape result
 
-set check_square 1
 set square 531.197
 set 2dviewer 0
index 308a525..3cdd5ce 100755 (executable)
@@ -16,6 +16,5 @@ checkshape a_2
 bfuse result a_2 a_1
 checkshape result
 
-set check_square 1
 set square 531.197
 set 2dviewer 0
index af394df..91e614e 100755 (executable)
@@ -1,6 +1,4 @@
 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC12345 ALL: Error : The command is not valid. The volume is 0."
-puts "TODO OCC12345 ALL: Error : The volume of result shape is 0"
 
 puts "================"
 puts "BUC61023"
@@ -18,8 +16,7 @@ revol result sh 0 0 0 0 0 1 360
 
 checkshape result
 
-set check_square 1
-set volume 10
+set square 1.0134e+06
 set 2dviewer 0
 
 
index afdf179..7be8427 100755 (executable)
@@ -10,9 +10,9 @@ restore [locate_data_file OCC766.draw] c
 
 set result [proj c 30 3.944304526105059e-31 20.0]
 
-set length [llength $result]
+set ll [llength $result]
 
-if {$length > 0} {
+if {$ll > 0} {
   puts "OCC770 OK"
 } else {
   puts "Faulty OCC770"
diff --git a/tests/bugs/moddata/end b/tests/bugs/moddata/end
deleted file mode 100755 (executable)
index 48b054a..0000000
+++ /dev/null
@@ -1,120 +0,0 @@
-if { [info exist check_square] } {
-    if { [info exists square] } {
-       set prop "square"
-       set mass $square
-       regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m      
-    }
-    
-    if { [info exists volume] } {
-       set prop "volume"
-       set mass $volume
-       regexp {Mass +: +([-0-9.+eE]+)} [vprops result] full m      
-    }
-    
-    if { [info exists length] } {
-       set prop "length"
-        set mass $length
-        regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full m
-        puts "checksection"
-        puts [checksection result]
-    }
-
-   #if mass (length or square) is empty in test case then result should be an empty shape.
-   if { [string compare "$mass" "empty"] != 0 } {
-      if { $m == 0 } {
-                puts "Error : The command is not valid. The $prop is 0."
-      }
-      if { $mass > 0 } {
-        puts "The expected $prop is $mass"
-      }
-      #check of change of square is < 1%
-      if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
-        puts "Error : The $prop of result shape is $m"
-      }
-    } else {
-      if { $m != 0 } {
-                puts "Error : The command is not valid. The $prop is $m"
-      }
-    }
-}
-if { [info exists nb_v_good] } {
-    regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_v
-    if { ${nb_v} != ${nb_v_good} } {
-       puts "Error : Result shape is WRONG because it must contains ${nb_v_good} vertexes instead of ${nb_v}"
-    } else {
-       puts "Result shape contains ${nb_v} vertexes"
-    }
-}
-
-if { [info exists nb_e_good] } {
-    regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_e
-    if { ${nb_e} != ${nb_e_good} } {
-        puts "Error : Result shape is WRONG because it must contains ${nb_e_good} edges instead of ${nb_e}"
-    } else {
-       puts "Result shape contains ${nb_e} edges"
-    }
-}
-
-if { [info exists nb_w_good] } {
-    regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full nb_w
-    if { ${nb_w} != ${nb_w_good} } {
-        puts "Error : Result shape is WRONG because it must contains ${nb_w_good} wires instead of ${nb_w}"
-    } else {
-       puts "Result shape contains ${nb_w} wires"
-    }
-}
-
-if { [info exists nb_f_good] } {
-    regexp {FACE +: +([-0-9.+eE]+)} $nb_info full nb_f
-    if { ${nb_f} != ${nb_f_good} } {
-        puts "Error : Result shape is WRONG because it must contains ${nb_f_good} faces instead of ${nb_f}"
-    } else {
-        puts "Result shape contains ${nb_f} faces"
-    }
-}
-
-if { [info exists nb_sh_good] } {
-    regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full nb_sh
-    if { ${nb_sh} != ${nb_sh_good} } {
-       puts "Error : Result shape is WRONG because it must contains ${nb_sh_good} shells instead of ${nb_sh}"
-    } else {
-       puts "Result shape contains ${nb_sh} shells"
-    }
-}
-
-if { [info exists nb_sol_good] } {
-    regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full nb_sol
-    if { ${nb_sol} != ${nb_sol_good} } {
-       puts "Error : Result shape is WRONG because it must contains ${nb_sol_good} solids instead of ${nb_sol}"
-    } else {
-        puts "Result shape contains ${nb_sol} solids"
-    }
-}
-
-if { [info exists nb_compsol_good] } {
-    regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full nb_compsol
-    if { ${nb_compsol} != ${nb_compsol_good} } {
-        puts "Error : Result shape is WRONG because it must contains ${nb_compsol_good} compsolids instead of ${nb_compsol}"
-    } else {
-        puts "Result shape contains ${nb_compsol} compsolids"
-    }
-}
-
-if { [info exists nb_compound_good] } {
-    regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full nb_compound
-    if { ${nb_compound} != ${nb_compound_good} } {
-        puts "Error : Result shape is WRONG because it must contains ${nb_compound_good} compounds instead of ${nb_compound}"
-    } else {
-        puts "Result shape contains ${nb_compound} compounds"
-    }
-}
-
-if { [info exists nb_shape_good] } {
-    regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full nb_shape
-    if { ${nb_shape} != ${nb_shape_good} } {
-        puts "Error : Result shape is WRONG because it must contains ${nb_shape_good} shapes instead of ${nb_shape}"
-    } else {
-        puts "Result shape contains ${nb_shape} shapes"
-    }
-}
-
index 332f598..30a1644 100755 (executable)
@@ -15,7 +15,6 @@ checkshape tool
 
 bcut result shape tool
 
-set check_square 1
 set square 3166.93
 set 2dviewer 0
 
index f41f11d..01e6423 100755 (executable)
@@ -14,6 +14,5 @@ checkshape tool
 
 bcut result shape tool
 
-set check_square 1
 set square 2369.43
 set 2dviewer 0
index 548d4d3..56a8ea7 100755 (executable)
@@ -1,5 +1,8 @@
 pload XDE
 
+set subgroup step
+
+
 
 
 
index bfee743..659db06 100755 (executable)
@@ -15,9 +15,7 @@ if [catch { stepread [locate_data_file trj12_b3-tu-203.stp] a * } res] {
     puts "Faulty ${BugNumber} : here is reading problem"
 } else {
     tpcompound result
-    set nb_info [nbshapes result]
     
-    set check_square 1
     set square 1.48021e+06
     set nb_v_good 1228
     set nb_e_good 1938
index 5f4dc97..bfed1e3 100755 (executable)
@@ -12,9 +12,7 @@ if [catch { stepread [locate_data_file OCC5027.stp] a * } res] {
    puts "Warning ${BugNumber} : here is reading problem"
 } else {
     tpcompound result
-    set nb_info [nbshapes result]
     
-    set check_square 1
     set square 159588
     set nb_v_good 44
     set nb_e_good 72
diff --git a/tests/bugs/step/end b/tests/bugs/step/end
deleted file mode 100755 (executable)
index 48b054a..0000000
+++ /dev/null
@@ -1,120 +0,0 @@
-if { [info exist check_square] } {
-    if { [info exists square] } {
-       set prop "square"
-       set mass $square
-       regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m      
-    }
-    
-    if { [info exists volume] } {
-       set prop "volume"
-       set mass $volume
-       regexp {Mass +: +([-0-9.+eE]+)} [vprops result] full m      
-    }
-    
-    if { [info exists length] } {
-       set prop "length"
-        set mass $length
-        regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full m
-        puts "checksection"
-        puts [checksection result]
-    }
-
-   #if mass (length or square) is empty in test case then result should be an empty shape.
-   if { [string compare "$mass" "empty"] != 0 } {
-      if { $m == 0 } {
-                puts "Error : The command is not valid. The $prop is 0."
-      }
-      if { $mass > 0 } {
-        puts "The expected $prop is $mass"
-      }
-      #check of change of square is < 1%
-      if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
-        puts "Error : The $prop of result shape is $m"
-      }
-    } else {
-      if { $m != 0 } {
-                puts "Error : The command is not valid. The $prop is $m"
-      }
-    }
-}
-if { [info exists nb_v_good] } {
-    regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_v
-    if { ${nb_v} != ${nb_v_good} } {
-       puts "Error : Result shape is WRONG because it must contains ${nb_v_good} vertexes instead of ${nb_v}"
-    } else {
-       puts "Result shape contains ${nb_v} vertexes"
-    }
-}
-
-if { [info exists nb_e_good] } {
-    regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_e
-    if { ${nb_e} != ${nb_e_good} } {
-        puts "Error : Result shape is WRONG because it must contains ${nb_e_good} edges instead of ${nb_e}"
-    } else {
-       puts "Result shape contains ${nb_e} edges"
-    }
-}
-
-if { [info exists nb_w_good] } {
-    regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full nb_w
-    if { ${nb_w} != ${nb_w_good} } {
-        puts "Error : Result shape is WRONG because it must contains ${nb_w_good} wires instead of ${nb_w}"
-    } else {
-       puts "Result shape contains ${nb_w} wires"
-    }
-}
-
-if { [info exists nb_f_good] } {
-    regexp {FACE +: +([-0-9.+eE]+)} $nb_info full nb_f
-    if { ${nb_f} != ${nb_f_good} } {
-        puts "Error : Result shape is WRONG because it must contains ${nb_f_good} faces instead of ${nb_f}"
-    } else {
-        puts "Result shape contains ${nb_f} faces"
-    }
-}
-
-if { [info exists nb_sh_good] } {
-    regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full nb_sh
-    if { ${nb_sh} != ${nb_sh_good} } {
-       puts "Error : Result shape is WRONG because it must contains ${nb_sh_good} shells instead of ${nb_sh}"
-    } else {
-       puts "Result shape contains ${nb_sh} shells"
-    }
-}
-
-if { [info exists nb_sol_good] } {
-    regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full nb_sol
-    if { ${nb_sol} != ${nb_sol_good} } {
-       puts "Error : Result shape is WRONG because it must contains ${nb_sol_good} solids instead of ${nb_sol}"
-    } else {
-        puts "Result shape contains ${nb_sol} solids"
-    }
-}
-
-if { [info exists nb_compsol_good] } {
-    regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full nb_compsol
-    if { ${nb_compsol} != ${nb_compsol_good} } {
-        puts "Error : Result shape is WRONG because it must contains ${nb_compsol_good} compsolids instead of ${nb_compsol}"
-    } else {
-        puts "Result shape contains ${nb_compsol} compsolids"
-    }
-}
-
-if { [info exists nb_compound_good] } {
-    regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full nb_compound
-    if { ${nb_compound} != ${nb_compound_good} } {
-        puts "Error : Result shape is WRONG because it must contains ${nb_compound_good} compounds instead of ${nb_compound}"
-    } else {
-        puts "Result shape contains ${nb_compound} compounds"
-    }
-}
-
-if { [info exists nb_shape_good] } {
-    regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full nb_shape
-    if { ${nb_shape} != ${nb_shape_good} } {
-        puts "Error : Result shape is WRONG because it must contains ${nb_shape_good} shapes instead of ${nb_shape}"
-    } else {
-        puts "Result shape contains ${nb_shape} shapes"
-    }
-}
-
index d4ae0a4..18fe572 100755 (executable)
@@ -1,3 +1,7 @@
 pload QAcommands
 
+set subgroup vis
+
+
+
 
index e26ee4d..37d15fb 100755 (executable)
@@ -8,8 +8,8 @@ puts ""
 vinit
 set info [OCC138]
 
-set length [llength ${info}]
-if {${length} < 5 } {
+set ll [llength ${info}]
+if {${ll} < 5 } {
    puts "OCC138: Error (case 1)"
 } else {
   regexp {No of currents += +([-0-9.+eE]+)} $info full NbCurrents
index cae563f..feed9cb 100755 (executable)
@@ -5,8 +5,8 @@ puts "========"
 vinit
 set info [OCC138LC]
 
-set length [llength ${info}]
-if {${length} < 5 } {
+set ll [llength ${info}]
+if {${ll} < 5 } {
    puts "OCC138: Error (case 1)"
 } else {
   regexp {No of selected += +([-0-9.+eE]+)} $info full NbCurrents
index c00a072..0d2aefd 100755 (executable)
@@ -49,14 +49,14 @@ if { $tri == 0 || $nod == 0 }  {
   set IsGood 0
 }
 
-regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full square
+regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full sq
 set good_square 8623.6
-set square_percent [expr abs(${square} - ${good_square}) / double(${good_square}) * 100.]
+set square_percent [expr abs(${sq} - ${good_square}) / double(${good_square}) * 100.]
 
 set percent_max 0.1
 
 puts "good_square = ${good_square}"
-puts "square = ${square}"
+puts "square = ${sq}"
 puts "square_percent = ${square_percent}"
 
 if {${square_percent} > ${percent_max}} {
index 6ee1b16..e678516 100755 (executable)
@@ -26,14 +26,14 @@ set str "(center)"
 set scale_text 4.0
 set length_dist -21.0
 set angle 30.0
-set length 5.0
+set ll 5.0
 set txtAngle 0.
 set txtPosH 0.
 set txtPosV 3.
 
 v2dinit
 
-OCC672_Length $x1 $y1 $x2 $y2 $str $scale_text $length_dist $angle $length $x3 $y3 $x4 $y4 $txtAngle $txtPosH $txtPosV
+OCC672_Length $x1 $y1 $x2 $y2 $str $scale_text $length_dist $angle $ll $x3 $y3 $x4 $y4 $txtAngle $txtPosH $txtPosV
 
 v2dfit
 
index 1146b54..088f1fd 100755 (executable)
@@ -26,14 +26,14 @@ set str "(center)"
 set scale_text 4.
 set length_dist -10.0
 set angle 30.0
-set length 5.0
+set ll 5.0
 set txtAngle 0.
 set txtPosH 0.
 set txtPosV 3.
 
 v2dinit
 
-OCC672_ShortLength $x1 $y1 $x2 $y2 $str $scale_text $length_dist $angle $length $x3 $y3 $x4 $y4 $txtAngle $txtPosH $txtPosV
+OCC672_ShortLength $x1 $y1 $x2 $y2 $str $scale_text $length_dist $angle $ll $x3 $y3 $x4 $y4 $txtAngle $txtPosH $txtPosV
 
 v2dfit
 
index ded93e3..9ff0c1e 100755 (executable)
@@ -1,5 +1,7 @@
 pload XDE
 
+set subgroup xde
+
 proc GetPercent {Value GoodValue} {
    set Percent 0.
    if {${GoodValue} != 0.} {
index bf0274c..2305b49 100755 (executable)
@@ -35,7 +35,7 @@ if [catch { stepread ${imagedir}/annie b *} res] {
 } else {
     renamevar b_1 res
     set info1 [nbshapes res]
-    regexp {Mass +: +([-0-9.+eE]+)} [sprops res] full square
+    regexp {Mass +: +([-0-9.+eE]+)} [sprops res] full sq
     regexp {VERTEX +: +([-0-9.+eE]+)} $info1 full vertex
     regexp {EDGE +: +([-0-9.+eE]+)} $info1 full edge
     regexp {WIRE +: +([-0-9.+eE]+)} $info1 full wire
@@ -46,7 +46,7 @@ if [catch { stepread ${imagedir}/annie b *} res] {
     regexp {COMPOUND +: +([-0-9.+eE]+)} $info1 full compound
     regexp {SHAPE +: +([-0-9.+eE]+)} $info1 full shape
        
-    if { $square != $good_square
+    if { $sq != $good_square
        || $vertex != $good_vertex
        || $edge != $good_edge
        || $wire != $good_wire