Adding testing cases from chl group

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

tests/bugs/caf/begin

@@ -1,5 +1,7 @@
 pload DCAF
 
+set subgroup caf
+
 
 
 

tests/bugs/caf/bug2932_1

@@ -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]]

tests/bugs/caf/bug2932_2

@@ -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]]

tests/bugs/demo/begin

@@ -0,0 +1,9 @@
+set subgroup demo
+
+
+
+
+
+
+
+

tests/bugs/end

@@ -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"
-

tests/bugs/fclasses/begin

@@ -0,0 +1,9 @@
+set subgroup fclasses
+
+
+
+
+
+
+
+

tests/bugs/fclasses/bug23403

@@ -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"
 }

tests/bugs/fclasses/bug6794

@@ -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}"
     }
 }
+

tests/bugs/heal/begin

@@ -1,3 +1,6 @@
 pload XSDRAW
 
+set subgroup heal
+
+
 

tests/bugs/iges/begin

@@ -1,6 +1,9 @@
 pload XDE
 pload AISV
 
+set subgroup iges
+
+
 
 
 

tests/bugs/iges/bug448

@@ -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
 
+

tests/bugs/iges/bug5027_1

@@ -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

tests/bugs/iges/end

@@ -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"
-    }
-}
-

tests/bugs/mesh/begin

@@ -27,3 +27,5 @@ if { [array get Draw_Groups "TOPOLOGY Check commands"] == "" } {
 if { [array get Draw_Groups "ZeViewer"] == "" } {
 	pload AISV
 }
+
+set subgroup mesh

tests/bugs/modalg/begin

@@ -0,0 +1,9 @@
+set subgroup modalg
+
+
+
+
+
+
+
+

tests/bugs/modalg/buc60703_1

@@ -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

tests/bugs/modalg/buc60782_2

@@ -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

tests/bugs/modalg/buc60787_1

@@ -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
 

tests/bugs/modalg/buc60789_1

@@ -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

tests/bugs/modalg/buc60865

@@ -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
 

tests/bugs/modalg/buc60882

@@ -7,7 +7,6 @@ puts ""
 #######################################################################
 
 pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
 
 restore [locate_data_file BUC60882_samepar.brep] result
 

tests/bugs/modalg/buc60898

@@ -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

tests/bugs/modalg/buc60899_2

@@ -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 ]

tests/bugs/modalg/bug1665

@@ -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
     }
 }

tests/bugs/modalg/bug21

@@ -7,7 +7,6 @@ puts ""
 #==============================#
 
 pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
 
 restore [locate_data_file OCC21.brep] sh 
 checkshape sh

tests/bugs/modalg/bug23470

@@ -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
 

tests/bugs/modalg/bug238_1

@@ -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

tests/bugs/modalg/bug238_2

@@ -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

tests/bugs/modalg/bug239_1

@@ -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
  

tests/bugs/modalg/bug239_2

@@ -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
  

tests/bugs/modalg/bug240_1

@@ -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
  

tests/bugs/modalg/bug240_2

@@ -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
  

tests/bugs/modalg/bug241_1

@@ -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
  

tests/bugs/modalg/bug241_2

@@ -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
  

tests/bugs/modalg/bug242_1

@@ -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
  

tests/bugs/modalg/bug242_2

@@ -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
  

tests/bugs/modalg/bug243_1

@@ -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
  

tests/bugs/modalg/bug243_2

@@ -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
  

tests/bugs/modalg/bug244

@@ -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
  

tests/bugs/modalg/bug245_1

@@ -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
  

tests/bugs/modalg/bug245_2

@@ -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
  

tests/bugs/modalg/bug246

@@ -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
- 
+puts [bop a b]
+puts [bopcommon result]
+
+set nb_v_good 5
+set nb_e_good 2
+set length 0
+set 2dviewer 0

tests/bugs/modalg/bug248_1

@@ -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
  

tests/bugs/modalg/bug248_2

@@ -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
  

tests/bugs/modalg/bug249_1

@@ -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
  

tests/bugs/modalg/bug249_2

@@ -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
  
  

tests/bugs/modalg/bug249_3

@@ -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
  

tests/bugs/modalg/bug249_4

@@ -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
  

tests/bugs/modalg/bug250_1

@@ -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
  

tests/bugs/modalg/bug250_2

@@ -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
  

tests/bugs/modalg/bug250_3

@@ -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
  

tests/bugs/modalg/bug250_4

@@ -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

tests/bugs/modalg/bug398

@@ -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

tests/bugs/modalg/bug4717_1

@@ -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

tests/bugs/modalg/bug4717_2

@@ -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

tests/bugs/modalg/bug4717_3

@@ -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

tests/bugs/modalg/bug4717_4

@@ -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

tests/bugs/modalg/bug4717_5

@@ -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

tests/bugs/modalg/bug4717_6

@@ -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

tests/bugs/modalg/bug4717_7

@@ -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

tests/bugs/modalg/bug4717_8

@@ -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

tests/bugs/modalg/bug472_3

@@ -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
 

tests/bugs/modalg/bug476_1

@@ -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

tests/bugs/modalg/bug476_2

@@ -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

tests/bugs/modalg/bug476_3

@@ -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

tests/bugs/modalg/bug476_4

@@ -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

tests/bugs/modalg/bug476_5

@@ -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

tests/bugs/modalg/bug476_6

@@ -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

tests/bugs/modalg/bug476_7

@@ -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

tests/bugs/modalg/bug476_8

@@ -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

tests/bugs/modalg/bug497_3

@@ -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

tests/bugs/modalg/bug4993_1

@@ -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

tests/bugs/modalg/bug4993_2

@@ -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

tests/bugs/modalg/bug526

@@ -8,7 +8,6 @@ puts ""
 ################################################
 
 pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
 
 restore [locate_data_file OCC592.brep] a 
 

tests/bugs/modalg/bug535

@@ -9,7 +9,6 @@ puts ""
 #############################################################
 
 pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
 
 restore [locate_data_file OCC535.brep] a 
 

tests/bugs/modalg/bug539_1

@@ -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

tests/bugs/modalg/bug539_2

@@ -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
 

tests/bugs/modalg/bug548

@@ -9,7 +9,6 @@ puts ""
 ##################################################################
 
 pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
 
 restore [locate_data_file CTO908_topo103-t.brep] a 
 

tests/bugs/modalg/bug673

@@ -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
+
+

tests/bugs/modalg/bug726_3

@@ -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

tests/bugs/modalg/bug745_12

@@ -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
-

tests/bugs/modalg/bug829_1

@@ -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  
-

tests/bugs/modalg/bug910

@@ -8,7 +8,6 @@ puts ""
 #####################################################
 
 pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
 
 restore [locate_data_file OCC910.rle] a 
 

tests/bugs/modalg/end

@@ -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."
-}

tests/bugs/moddata/begin

@@ -0,0 +1,9 @@
+set subgroup moddata
+
+
+
+
+
+
+
+

tests/bugs/moddata/buc60637

@@ -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

tests/bugs/moddata/buc60652_1

@@ -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

tests/bugs/moddata/buc60652_2

@@ -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
 

tests/bugs/moddata/buc60652_3

@@ -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

tests/bugs/moddata/buc60652_4

@@ -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

tests/bugs/moddata/buc60755

@@ -14,7 +14,6 @@ checkshape a
 tcopy a result
 checkshape result
 
-set check_square 1
 set square 623.832
 set 2dviewer 0
 

tests/bugs/moddata/buc60895

@@ -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
 

tests/bugs/moddata/buc60911

@@ -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

tests/bugs/moddata/buc60955

@@ -9,7 +9,6 @@ checkshape result
 
 build3d result
 
-set check_square 1
 set square 8464.65
 set 2dviewer 0
 

tests/bugs/moddata/bug126

@@ -12,6 +12,5 @@ checkshape sh2
 
 compound sh1 sh2 result
 
-set check_square 1
 set square 560.774
 set 2dviewer 0

tests/bugs/moddata/bug134_1

@@ -14,6 +14,5 @@ checkshape sh
 prism result sh 100 100 100
 checkshape result
 
-set check_square 1
 set square 104057
 set 2dviewer 0

tests/bugs/moddata/bug134_2

@@ -14,7 +14,6 @@ checkshape sh
 prism result sh 100 100 100
 checkshape result
 
-set check_square 1
 set square 271859
 set 2dviewer 0
 

tests/bugs/moddata/bug135

@@ -10,7 +10,6 @@ checkshape sh
 sewing result 1 sh
 checkshape result
 
-set check_square 1
 set square 273837
 set 2dviewer 0
 

tests/bugs/moddata/bug150_1

@@ -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

tests/bugs/moddata/bug150_2

@@ -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