mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +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 '$'.
17 lines
316 B
Plaintext
17 lines
316 B
Plaintext
# Test for #24863: creation of variables
|
|
|
|
box b 10 10 10
|
|
set is_ok [whatis b]
|
|
|
|
set b aaaa
|
|
|
|
box b 10 10 10
|
|
|
|
set check_ok [whatis b]
|
|
if {$is_ok != $check_ok} {
|
|
puts "Error : results of command \"whatis\" are different"
|
|
}
|
|
|
|
if {$b != "b"} {
|
|
puts "Error : tcl variable doesn't point to same-named draw variable"
|
|
} |