mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
191082ac71
Use NCollection_Map instead of instantiation of TCollection_Map Test-cases for issue #25344 Correct error in test script: the shape variable assigned by the command 'restore' must not be referred by '$'.
18 lines
367 B
Plaintext
18 lines
367 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"
|
|
}
|
|
|
|
if {$b != "b"} {
|
|
puts "Error : tcl variable doesn't point to same-named draw variable"
|
|
}
|
|
|
|
set check_ok [whatis b]
|
|
if {$is_ok != $check_ok} {
|
|
puts "Error : results of command \"whatis\" are different"
|
|
} |