OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
Code Packages Releases Activity

Adjusting new testing cases

Browse Source
This commit is contained in:
bugmaster 2014-12-05 14:39:29 +03:00
parent 558e68ea11
commit c0bd0de183
3 changed files with 11 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
tests/bugs/modalg_5/bug24472
View File

@ -6,23 +6,6 @@ puts ""
## Wrong section curves
###############################
proc checkList {List Tolerance D_good} {
set L1 [llength ${List}]
set L2 10
set L3 5
set N [expr (${L1} - ${L2})/${L3} + 1]
for {set i 1} {${i} <= ${N}} {incr i} {
set j1 [expr ${L2} + (${i}-1)*${L3}]
set j2 [expr ${j1} + 2]
set T [lindex ${List} ${j1}]
set D [lindex ${List} ${j2}]
#puts "i=${i} j1=${j1} j2=${j2} T=${T} D=${D}"
if { [expr abs(${D} - ${D_good})] > ${Tolerance} } {
puts "Error: i=${i} T=${T} D=${D}"
}
}
}
restore [locate_data_file bug24472_Pipe_1.brep] b1
explode b1 f
@ -48,7 +31,8 @@ set Log1 [dlog get]
set List1 [split ${Log1} {TD= \t\n}]
set Tolerance 1.0e-7
set D_good 0.
checkList ${List1} ${Tolerance} ${D_good}
set Limit_Tol 1.0e-7
checkList ${List1} ${Tolerance} ${D_good} ${Limit_Tol}
puts ""
puts "Second test"
@ -69,7 +53,8 @@ set Log2 [dlog get]
set List2 [split ${Log2} {TD= \t\n}]
set Tolerance 1.0e-12
set D_good 0.
checkList ${List2} ${Tolerance} ${D_good}
set Limit_Tol 1.0e-7
checkList ${List2} ${Tolerance} ${D_good} ${Limit_Tol}
puts ""
puts "Third test"
@ -86,7 +71,8 @@ set Log3 [dlog get]
set List3 [split ${Log3} {TD= \t\n}]
set Tolerance 1.0e-6
set D_good 0.
checkList ${List3} ${Tolerance} ${D_good}
set Limit_Tol 1.0e-7
checkList ${List3} ${Tolerance} ${D_good} ${Limit_Tol}
puts ""
puts "Fourth test"
@ -107,4 +93,5 @@ set Log4 [dlog get]
set List4 [split ${Log4} {TD= \t\n}]
set Tolerance 1.0e-12
set D_good 0.
checkList ${List4} ${Tolerance} ${D_good}
set Limit_Tol 1.0e-7
checkList ${List4} ${Tolerance} ${D_good} ${Limit_Tol}

22
tests/bugs/modalg_5/bug24915
View File

@ -6,28 +6,6 @@ puts ""
## Wrong intersection curves between two cylinders
###############################
proc checkList {List Tolerance D_good Limit_Tol} {
set L1 [llength ${List}]
set L2 10
set L3 5
set N [expr (${L1} - ${L2})/${L3} + 1]
for {set i 1} {${i} <= ${N}} {incr i} {
set j1 [expr ${L2} + (${i}-1)*${L3}]
set j2 [expr ${j1} + 2]
set T [lindex ${List} ${j1}]
set D [lindex ${List} ${j2}]
#puts "i=${i} j1=${j1} j2=${j2} T=${T} D=${D}"
if { [expr abs(${D} - ${D_good})] > ${Tolerance} } {
puts "Error : T=${T} D=${D}"
}
if { [expr abs(${D} - ${D_good})] > ${Limit_Tol}
&& [expr abs(${D} - ${D_good})] <= ${Tolerance} } {
puts "Attention (critical value of tolerance) : T=${T} D=${D}"
}
}
}
puts "##############################"
puts "#!!!Searh \"Attention\" keyword on this web-page for additinal checking!!!"
puts "##############################"

5
tests/bugs/modalg_5/bug25488
View File

@ -8,6 +8,7 @@ puts ""
set Tolerance 3.0e-7
set D_good 0.
set Limit_Tol 1.0e-7
restore [locate_data_file OCC25488_sb1_1t.draw] sb1
restore [locate_data_file OCC25488_sb2_1t.draw] sb2
@ -22,12 +23,12 @@ while {$i != [llength $bug_info]} {
xdistcs ${res_i} sb1 0 1 10
set BugLog [dlog get]
set BugList [split ${BugLog} {TD= \t\n}]
checkList ${BugList} ${Tolerance} ${D_good}
checkList ${BugList} ${Tolerance} ${D_good} ${Limit_Tol}
dlog reset
dlog on
xdistcs ${res_i} sb2 0 1 10
set BugLog [dlog get]
set BugList [split ${BugLog} {TD= \t\n}]
checkList ${BugList} ${Tolerance} ${D_good}
checkList ${BugList} ${Tolerance} ${D_good} ${Limit_Tol}
set i [expr {$i + 1}]
}