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
16 {wrong # args: should be "eval arg ?arg ...?"} \
30 } 2 {multiple args, verify side effects}
32 eval_is {eval "set a \{"} {missing close-brace} {close brace}
33 eval_is {eval "set a \["} {missing close-bracket} {close bracket}
34 eval_is {eval {set a "}} {missing "} {close quote}
36 eval_is {eval {set a "
38 bar} {keep whitespace inside quotes}