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
pload DCAF
+set subgroup caf
+
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]]
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]]
--- /dev/null
+set subgroup demo
+
+
+
+
+
+
+
+
+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
}
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"
-
--- /dev/null
+set subgroup fclasses
+
+
+
+
+
+
+
+
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
} 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}"
}
}
+
pload XSDRAW
+set subgroup heal
+
+
pload XDE
pload AISV
+set subgroup iges
+
+
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 !!!!!!!
set 2dviewer 0
+
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
+++ /dev/null
-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"
- }
-}
-
if { [array get Draw_Groups "ZeViewer"] == "" } {
pload AISV
}
+
+set subgroup mesh
--- /dev/null
+set subgroup modalg
+
+
+
+
+
+
+
+
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"
puts "BUC60703 OK"
}
# maxtolerance res
+ set square 0
+ set 2dviewer 0
}
-set square 0
-set 2dviewer 0
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"
puts "OK BUC60782: offset is created"
tpcompound result
}
+ set square 0
+ set 2dviewer 0
}
-set square 0
-set 2dviewer 0
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
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
mkface f pl
bsection result sh f
-
set nb_info [nbshapes result]
regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
#######################################################################
pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
restore [locate_data_file BUC60882_samepar.brep] result
puts "TODO OCC12345 ALL: Faulty BUC60898: here is reading problem"
-puts "TODO OCC12345 ALL: Error : The command can not be build."
puts "==========="
puts " BUC60898"
puts ""
pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
if [catch { igesbrep [locate_data_file $filedir/buc60898.igs] a *} result] {
## rename to BUC60898.igs
} 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
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 ]
if {[catch {mkface result a} message]} {
puts "OCC1665 FAULTY : mkface"
} else {
- set nb_info [nbshapes result]
set nb_e_good 3
}
}
#==============================#
pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
restore [locate_data_file OCC21.brep] sh
checkshape sh
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
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
puts " Result shape is COMPLITE"
}
+set nb_v_good 14
+set nb_e_good 7
set length 0
set 2dviewer 0
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
puts " Result shape is COMPLITE"
}
+set nb_v_good 14
+set nb_e_good 7
set length 0
set 2dviewer 0
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
#############################################################
pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
restore [locate_data_file OCC398.brep] a
#statsh a
#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
bopfuse result
set square 680565
-set nb_info [nbshapes result]
set nb_v_good 11
set nb_e_good 16
bopfuse result
set square 680565
-set nb_info [nbshapes result]
set nb_v_good 11
set nb_e_good 16
bopcut result
set square 181937
-set nb_info [nbshapes result]
set nb_v_good 3
set nb_e_good 4
bopcut result
set square 680565
-set nb_info [nbshapes result]
set nb_v_good 11
set nb_e_good 16
boptuc result
set square 680565
-set nb_info [nbshapes result]
set nb_v_good 11
set nb_e_good 16
boptuc result
set square 181937
-set nb_info [nbshapes result]
set nb_v_good 3
set nb_e_good 4
bopcommon result
set square 181937
-set nb_info [nbshapes result]
set nb_v_good 3
set nb_e_good 4
bopcommon result
set square 181937
-set nb_info [nbshapes result]
set nb_v_good 3
set nb_e_good 4
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
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
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
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
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
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
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
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
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
-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 "
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
bopfuse result
set square 4854.51
-set nb_info [nbshapes result]
set nb_v_good 40
set nb_e_good 64
bopfuse result
set square 4854.51
-set nb_info [nbshapes result]
set nb_v_good 40
set nb_e_good 64
################################################
pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
restore [locate_data_file OCC592.brep] a
#############################################################
pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
restore [locate_data_file OCC535.brep] a
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
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
##################################################################
pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
restore [locate_data_file CTO908_topo103-t.brep] a
-puts "TODO OCC12345 ALL: Error : The command can not be build"
puts "TODO OCC12345 ALL: Faulty OCC673: function SPLITSHAPE works wrongly"
puts "================"
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
+
+
--- /dev/null
+puts "TODO OCC12345 ALL: Tcl Exception: result is not a topological shape!!!"
+puts "TODO OCC12345 ALL: TEST INCOMPLETE"
+
+puts "========"
+puts "OCC726"
+puts "SAM1594"
+puts "========"
+puts ""
+######################################
+## Boolean operations are impossible on the attachment.
+######################################
+
+restore [locate_data_file OCC726.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bcut result a_2 a_1
+
+set square 10
+set 2dviewer 0
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"
}
}
}
+ set length 0
+ set 2dviewer 0
}
-
-set length 0
-set 2dviewer 0
-
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"
}
}
}
+ set length 0
+ set 2dviewer 0
}
-
-set length 0
-set 2dviewer 0
-
#####################################################
pload XDE
-catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
restore [locate_data_file OCC910.rle] a
+++ /dev/null
-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."
-}
--- /dev/null
+set subgroup moddata
+
+
+
+
+
+
+
+
restore [locate_data_file buc60637a.brep] result
fsameparameter result
-set check_square 1
set square 144.866
set 2dviewer 0
checkshape result
BUC60652 result
-set check_square 1
set square 19614.8
set 2dviewer 0
checkshape result
BUC60652 result
-set check_square 1
set square 29961
set 2dviewer 0
checkshape result
BUC60652 result
-set check_square 1
set square 77815.1
set 2dviewer 0
checkshape result
BUC60652 result
-set check_square 1
set square 119134
set 2dviewer 0
tcopy a result
checkshape result
-set check_square 1
set square 623.832
set 2dviewer 0
fsameparameter result
checkshape result
-set check_square 1
set length 12.6012
set 2dviewer 0
restore [locate_data_file BUC60911.brep] result
invert result
-set check_square 1
set square 16353.8
set 2dviewer 0
build3d result
-set check_square 1
set square 8464.65
set 2dviewer 0
compound sh1 sh2 result
-set check_square 1
set square 560.774
set 2dviewer 0
prism result sh 100 100 100
checkshape result
-set check_square 1
set square 104057
set 2dviewer 0
prism result sh 100 100 100
checkshape result
-set check_square 1
set square 271859
set 2dviewer 0
sewing result 1 sh
checkshape result
-set check_square 1
set square 273837
set 2dviewer 0
bfuse result sh_1 sh_2
checkshape result
-set check_square 1
set square 700
set 2dviewer 0
bfuse result sh_2 sh_1
checkshape result
-set check_square 1
set square 700
set 2dviewer 0
bfuse result sh1 sh2
checkshape result
-set check_square 1
set square 11400
set 2dviewer 0
bfuse result sh2 sh1
checkshape result
-set check_square 1
set square 11400
set 2dviewer 0
bcut result sh_1 sh_2
checkshape result
-set check_square 1
set square 276424
set 2dviewer 0
bcut result sh_2 sh_1
checkshape result
-set check_square 1
set square 34894.3
set 2dviewer 0
puts "Error : the resulting shape is unclosed!!!"
}
-set check_square 1
set square 94067.7
set 2dviewer 0
puts "Error : the resulting shape is unclosed!!!"
}
-set check_square 1
set square 94067.7
set 2dviewer 0
puts "Error : the resulting shape is unclosed!!!"
}
-set check_square 1
set square 328116
set 2dviewer 0
puts "Error : the resulting shape is unclosed!!!"
}
-set check_square 1
set square 328116
set 2dviewer 0
puts "Error : the resulting shape is unclosed!!!"
}
-set check_square 1
set square 48129.6
set 2dviewer 0
puts "Error : the resulting shape is unclosed!!!"
}
-set check_square 1
set square 247636
set 2dviewer 0
bfuse result sh1 sh2
checkshape result
-set check_square 1
set square 344595
set 2dviewer 0
bfuse result sh2 sh1
checkshape result
-set check_square 1
set square 344595
set 2dviewer 0
puts "Error : Command mirror does NOT work properly. "
}
-set check_square 1
set square 13091.3
set 2dviewer 0
bcommon result b1 b2
checkshape result
-set check_square 1
set square 315.159
set 2dviewer 0
bfuse result b1 b2
checkshape result
-set check_square 1
set square 942.478
set 2dviewer 0
bcut result b1 b2
checkshape result
-set check_square 1
set square 863.938
set 2dviewer 0
bcommon result b1 b2
checkshape result
-set check_square 1
set square 392.699
set 2dviewer 0
bcommon result b1 b2
checkshape result
-set check_square 1
set square 198.863
set 2dviewer 0
bopfuse result a b
checkshape -top result
-set check_square 1
set square 0.0892544
set 2dviewer 0
bcommon result a_1 a_2
checkshape result
-set check_square 1
set square 3739.26
set 2dviewer 0
bcut result a_1 a_2
checkshape result
-set check_square 1
set square 669659
set 2dviewer 0
blend result a 10 a_24
checkshape result
-set check_square 1
set square 1.34399e+06
set 2dviewer 0
blend result a 10 a_4
checkshape result
-set check_square 1
set square 1.34399e+06
set 2dviewer 0
bfuse result s b
checkshape result
-set check_square 1
set square 618.85
set 2dviewer 0
bfuse result a b
checkshape result
-set check_square 1
set square 1583.92
set 2dviewer 0
bfuse result b a
checkshape result
-set check_square 1
set square 1583.92
set 2dviewer 0
bcommon result a_1 a_2
-set check_square 1
set square 66231.3
set 2dviewer 0
common result shape1 shape3
checkshape result
-set check_square 1
set length 1231.07
set 2dviewer 0
bfuse result b2 b1
checkshape -top result
-set check_square 1
set square 18.8496
set 2dviewer 0
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
restore [locate_data_file OCC268.brep] result
checkshape result
-set check_square 1
set length 56.6039
set 2dviewer 0
bfuse result a_1 a_2
-set check_square 1
set square 44819.9
-
set 2dviewer 0
bfuse result a_2 a_1
-set check_square 1
set square 44819.8
-
set 2dviewer 0
mkplane result a
checkshape result
-set check_square 1
set square 2914.99
set 2dviewer 0
mkplane result a
checkshape result
-set check_square 1
set square 22740
set 2dviewer 0
puts "Error (case 3) : Checkshape command works wrongly"
}
-set check_square 1
set square 43.3075
set 2dviewer 0
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
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
bfuse result a_1 a_2
checkshape result
-set check_square 1
set square 483935
set 2dviewer 0
bfuse result a_2 a_1
checkshape result
-set check_square 1
set square 483935
set 2dviewer 0
chamf result res2 res2_4_1 res2_4 7 7
checkshape result
-set check_square 1
set square 107634
set 2dviewer 0
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_
blend result a 2 a_18
checkshape result
-set check_square 1
set square 593.527
set 2dviewer 0
chamf result a a_5_6 a_5 A 2 45
checkshape result
-set check_square 1
set square 589.268
set 2dviewer 0
mkface result su1
-set check_square 1
set square 7960.45
set 2dviewer 0
mkface result su2
-set check_square 1
set square 7181.83
set 2dviewer 0
mkface result s
-set check_square 1
set square 1256.64
set 2dviewer 0
bfuse result sh_1 sh_2
checkshape result
-set check_square 1
set square 665013
set 2dviewer 0
bfuse result sh_2 sh_1
checkshape result
-set check_square 1
set square 665013
set 2dviewer 0
bcommon result a b
-set check_square 1
set square 21.154
set 2dviewer 0
bcommon result b a
-set check_square 1
set square 21.154
set 2dviewer 0
bfuse result a b
checkshape result
-set check_square 1
set square 11400
set 2dviewer 0
bfuse result b a
checkshape result
-set check_square 1
set square 11400
set 2dviewer 0
fillet result sh 15 sh_14
checkshape result
-set square 1
+set square 177328
set 2dviewer 0
nurbsconvert result res
-set check_square 1
set square 693.577
set 2dviewer 0
bfuse result a_1 a_2
checkshape result
-set check_square 1
set square 10
set 2dviewer 0
bfuse result a_1 a_2
-set check_square 1
set square 4949.79
set 2dviewer 0
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
puts "OCC601 OK: function BLEND works without exception"
checkshape result
- set check_square 1
set square 10
set 2dviewer 0
}
bfuse result a_1 a_2
checkshape result
-set check_square 1
set square 531.197
set 2dviewer 0
bopfuse result
checkshape result
-set check_square 1
set square 531.197
set 2dviewer 0
bfuse result a_2 a_1
checkshape result
-set check_square 1
set square 531.197
set 2dviewer 0
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"
checkshape result
-set check_square 1
-set volume 10
+set square 1.0134e+06
set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Tcl Exception: result is not a topological shape!!!"
-puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-
-puts "========"
-puts "OCC726"
-puts "SAM1594"
-puts "========"
-puts ""
-######################################
-## Boolean operations are impossible on the attachment.
-######################################
-
-restore [locate_data_file OCC726.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bcut result a_2 a_1
-
-checkshape result
-
-set check_square 1
-set square 10
-set 2dviewer 0
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"
+++ /dev/null
-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"
- }
-}
-
bcut result shape tool
-set check_square 1
set square 3166.93
set 2dviewer 0
bcut result shape tool
-set check_square 1
set square 2369.43
set 2dviewer 0
pload XDE
+set subgroup step
+
+
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
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
+++ /dev/null
-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"
- }
-}
-
pload QAcommands
+set subgroup vis
+
+
+
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
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
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}} {
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
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
pload XDE
+set subgroup xde
+
proc GetPercent {Value GoodValue} {
set Percent 0.
if {${GoodValue} != 0.} {
} 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
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
projects / occt-copy.git / commitdiff