mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
1951a27c98
Warning was fixed. Remarks were applied. - class VMap in Draw was removed - NCollection_DataMap is used to store objects - name of object is used to associate Tcl variable with the object - creation and changing of objects are correclty handled Redundant casts were removed. Initial value is restored if variable is protected. Tests for bug #24863 were added. Some test cases and tcl command "save" were improved. Useless using of upvar was removed.
19 lines
381 B
Plaintext
19 lines
381 B
Plaintext
# Test for #24863: protect variable
|
|
|
|
box b 10 10 10
|
|
set is_ok [whatis b]
|
|
protect b
|
|
|
|
if {![catch {set b aaaaa}]} {
|
|
puts "Error : variable was changed"
|
|
}
|
|
|
|
set check_puts [puts $b]
|
|
if {$check_puts != ""} {
|
|
puts "Error : result of command \"puts\" is wrong"
|
|
}
|
|
|
|
set check_ok [whatis b]
|
|
if {$is_ok != $check_ok} {
|
|
puts "Error : results of command \"whatis\" are different"
|
|
} |