mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
1ef277c369
Corrected command dump to show flag Locked for shapes in DRAW. Test case for issue CR28204 Updated test case.
18 lines
466 B
Plaintext
18 lines
466 B
Plaintext
puts "============"
|
|
puts "CR28204"
|
|
puts "==========="
|
|
puts ""
|
|
###############################################################################
|
|
# TopoTools_ShapeSet::Dump() does not show flag Locked
|
|
###############################################################################
|
|
|
|
vertex v 0 0 0
|
|
setflags v locked
|
|
set info [dump v]
|
|
|
|
if { [regexp {Locked} ${info}] == 1 } {
|
|
puts "OK: Dump show flag Locked"
|
|
} else {
|
|
puts "Error: Dump does not show flag Locked"
|
|
}
|