tests/bugs/fclasses/bug24863_2

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