3 # Copyright (C) 2004-2006, The Perl Foundation.
6 # the following lines re-execute this as a tcl script
7 # the \ at the end of these lines makes them a comment in tcl \
8 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \
12 source lib/test_more.tcl
22 } ok {missing unreferenced global}
31 } {can't read "q": no such variable} {missing global}
53 } {1 2 3} {few globals}
74 } {4 6} {changing value}
83 } {can't read "a": no such variable} {nonvivifying global}