Eskil

Artifact 3aa656fdd03cb1d8ac2afb9dbc44d97b3c76efb8:

• File tests/procs.test — part of check-in [ace521ad0a] at 2009-02-12 19:11:35 on branch trunk — More 8.5 features used: lassign instead of foreach. lrepeat+lreverse Math commands for some expressions. (user: peter size: 448)

# Tests for comparing misc procedures.                      -*- tcl -*-
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------

test procs-1.1 {
    Linit
} -body {
    # Make sure argument ordering is same as lindex
    lindex [Linit x 3 4 5] 2 3 4
} -result x

test procs-1.2 {
    Linit
} -body {
    lindex [Linit x 3 4 5] 4 3 2
} -result {}