Eskil

Diff
Login

Differences From Artifact [3aa656fdd0]:

To Artifact [edce5ac478]:


1
2
3

4
5
6
7
8
9
10
# 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
<
|
<
>








1

2
3
4
5
6
7
8
9

#------------------------------------------------------------*- 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