Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: d0eb5328c1
Fetching contributors…

Cannot retrieve contributors at this time

executable file 43 lines (32 sloc) 1.05 kb
#!perl
# Copyright (C) 2004-2006, The Parrot Foundation.
# the following lines re-execute this as a tcl script
# the \ at the end of these lines makes them a comment in tcl \
use lib qw(lib); # \
use Tcl::Test; #\
__DATA__
source lib/test_more.tcl
plan 8
is [set a 2; append a] 2 {var only}
is [set a 1; append a 2] 12 {append once}
is [set a 1; append a 2 3] 123 {append twice}
#append chicken soup with rice.
is [set x ""; append x 1 2 abc "long string"] \
{12abclong string} {empty with several args}
eval_is {
catch {unset x}
append x 1 2 abc "long string"
} {12abclong string} {unset variable}
eval_is {append} \
{wrong # args: should be "append varName ?value value ...?"} \
{no args}
eval_is {
set x ""
append x(0) 44
} {can't set "x(0)": variable isn't array} {no args}
# Tcl currently throws an error for this code
# but a bug has been filed for it at http://tcl.sf.net (#1227172)
eval_is {
catch {unset x}
append x
} {can't read "x": no such variable} {append unset variable}
Jump to Line
Something went wrong with that request. Please try again.