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
|