tests/bugs/demo/bug25344_1

   1 puts "========"
   2 puts "OCC25344"
   3 puts "========"
   4 puts ""
   5 #######################################################
   6 # Draw variables do not follow the scope of TCL level
   7 #######################################################
   8
   9 proc setproc {} {
  10   dset local_var 1.1
  11   puts "in setproc scope: local_var=[dval local_var]"
  12 }
  13
  14 setproc
  15 puts "in global scope: local_var=[dval local_var]"
  16
  17 if {[dval local_var] != 0} {
  18   puts "ERROR: local_var is set, but must not"
  19   if {[lsearch [directory] local_var] == -1} {
  20     puts "ERROR: as it is absent among TCL variables"
  21   }
  22 }