Eskil

Artifact edce5ac47857075bf182e449ea28396ab203bd64:

• File tests/procs.test — part of check-in [1125c540c5] at 2016-07-29 10:38:41 on branch trunk — Tidying tests (user: peter size: 402) [more...]

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

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 {}