tests/bugs/fclasses/bug24863_3

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