1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-24 13:50:49 +03:00

0028204: TopoTools_ShapeSet::Dump() does not show flag Locked

Corrected command dump to show flag Locked for shapes in DRAW.
Test case for issue CR28204
Updated test case.
This commit is contained in:
ski
2016-12-22 12:40:55 +03:00
committed by apn
parent 4b3d6eb1d2
commit 1ef277c369
3 changed files with 23 additions and 26 deletions

View File

@@ -24,36 +24,15 @@ if {[llength ${DumpList}] < 40} {
puts $x
puts $y
puts $z
set percent_max 0.1
set x [lindex ${DumpList} 37]
set y [lindex ${DumpList} 38]
set z [lindex ${DumpList} 39]
set x [string range ${x} 0 end-1]
set y [string range ${y} 0 end-1]
set good_x -32.3042674857046
set good_y 20.0000000000001
set good_z 0.
set Percent_x [expr abs(${x} - ${good_x}) / abs(${good_x}) * 100.]
set Percent_y [expr abs(${y} - ${good_y}) / abs(${good_y}) * 100.]
if {${z} == 0.} {
set Percent_z 0.
} else {
set Percent_z [expr abs(${good_z} - ${z}) / abs(${z}) * 100.]
}
if {${Percent_x} > ${percent_max}} {
puts "Faulty ${BugNumber}: bad value of x = ${x}"
}
if {${Percent_y} > ${percent_max}} {
puts "Faulty ${BugNumber}: bad value of y = ${y}"
}
if {${Percent_z} > ${percent_max}} {
puts "Faulty ${BugNumber}: bad value of z = ${z}"
checkreal "x" ${x} ${good_x} 0 0.001
checkreal "y" ${y} ${good_y} 0 0.001
if { ${z} != 0. } {
checkreal "z" ${z} ${good_z} 0 0.001
}
}