1 # Test for #24863: protect variable
7 if {![catch {set b aaaaa}]} {
8 puts "Error : variable was changed"
12 puts "Error : tcl variable doesn't point to same-named draw variable"
15 set check_ok [whatis b]
16 if {$is_ok != $check_ok} {
17 puts "Error : results of command \"whatis\" are different"