1 # Test for #24863: protect variable
7 if {![catch {set b aaaaa}]} {
8 puts "Error : variable was changed"
11 set check_puts [puts $b]
12 if {$check_puts != ""} {
13 puts "Error : result of command \"puts\" is wrong"
16 set check_ok [whatis b]
17 if {$is_ok != $check_ok} {
18 puts "Error : results of command \"whatis\" are different"