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 eval_is {join} {wrong # args: should be "join list ?joinString?"} \
18 eval_is {join 1 2 3} {wrong # args: should be "join list ?joinString?"} \
21 is [join [list]] {} {join nothing}
22 is [join [list a]] {a} {join one}
23 is [join [list a b c]] {a b c} {join few}
25 is [join [list a b c] X] {aXbXc} {join with string}
26 is [join [list a b c] XXXX] {aXXXXbXXXXc} {join with long string}