3 # Copyright (C) 2006-2008, 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 set TODO {TODO {not implemented yet}}
19 {can't interpret "foo" as a lambda expression} \
20 {bad lambda expression}
22 eval_is {apply {foo bar baz bit}} \
23 {can't interpret "foo bar baz bit" as a lambda expression} \
24 {bad lamdba expression}
26 eval_is {apply {foo bar baz}} \
27 {namespace "::baz" not found} \
28 {namespace doesn't exist} \
32 {wrong # args: should be "apply lambdaExpr ?arg1 arg2 ...?"} \
35 eval_is {apply {{foo {bar 2} {baz 3}} bar}} \
36 {wrong # args: should be "apply {{foo {bar 2} {baz 3}} bar} foo ?bar? ?baz?"} \
40 eval_is {apply {{} bar} foo} \
41 {wrong # args: should be "apply {{} bar}"} \
45 eval_is {apply {{n} {expr {$n*$n}}} {5}} 25 \
50 unset -nocomplain x func
56 apply [list {var {i 1}} $func] x