# Test Script: append command.

test append-1.1 {append command} {
    list [append x 1 2 abc "long string"] $x
} -ok {{12abclong string} {12abclong string}}

test append-1.2 {append command} {
    list [append x first] [append x second] [append x third] $x
} -ok {first firstsecond firstsecondthird firstsecondthird}

test append-1.3 {append command} {
    set x "abcd"
    append x
} -ok abcd

test append-1.4 {append command} {
    # In standard TCL, this would be an error.
    append x
} -ok {}

# Need for loop
test append-2.1 {long appends} {
    for {set i 0} {$i < 1000} {set i [expr $i+1]} {
	    append x "foobar "
    }
    set y "foobar"
    set y "$y $y $y $y $y $y $y $y $y $y"
    set y "$y $y $y $y $y $y $y $y $y $y"
    set y "$y $y $y $y $y $y $y $y $y $y "
    expr {$x eq $y}
} -ok 1

test append-3.1 {append errors} {
   append
} -error {wrong # args: should be "append varName ?value value ...?"}

# Need arrays
test append-3.2 {append errors} {
    set x ""
    list [catch {append x(0) 44} msg] $msg
} -ok {1 {can't set "x(0)": variable isn't array}}