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

0025670: Incorrect sprops/vprops/lprops check in heal drop_small_solids test cases

Browse Source 
Procedure cmpprops in tests/heal/drop_small_solids/end is modified to correctly access top-level variables
This commit is contained in:
apn 2015-04-23 12:32:53 +03:00 committed by bugmaster
parent 31024507f6
commit 806b45f2f2
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/heal/drop_small_solids/end
View File

@ -9,9 +9,10 @@ proc parseprops a {
]+([-0-9.+eE]+)[\t ]+([-0-9.+eE]+)[\t ]+([-0-9.+eE]+)} $a]
}
proc cmpprops {cmd a b} {
set aa [parseprops [$cmd $a]]
set bb [parseprops [$cmd $b]]
proc cmpprops {cmd shape1 shape2} {
upvar $shape1 a $shape2 b
set aa [parseprops [$cmd a]]
set bb [parseprops [$cmd b]]
for {set i 1} {$i < [llength $aa]} {incr i} {
if {[expr abs([lindex $aa $i] - [lindex $bb $i])] > 1e-8} {return 0}
}