diff options
author | stanton <stanton> | 1998-11-11 04:08:12 (GMT) |
---|---|---|
committer | stanton <stanton> | 1998-11-11 04:08:12 (GMT) |
commit | 131c68d85079ca5a553b28fef489cf29b79f1176 (patch) | |
tree | 7e89676f31bb688b2686f508446e3282e7148a05 /tests/cmdIL.test | |
parent | 0a41c61107c36da0a8e4ca0fc259149e3bc1956d (diff) | |
download | tcl-131c68d85079ca5a553b28fef489cf29b79f1176.zip tcl-131c68d85079ca5a553b28fef489cf29b79f1176.tar.gz tcl-131c68d85079ca5a553b28fef489cf29b79f1176.tar.bz2 |
merged 8.0.4 into 8.1
Diffstat (limited to 'tests/cmdIL.test')
-rw-r--r-- | tests/cmdIL.test | 26 |
1 files changed, 15 insertions, 11 deletions
diff --git a/tests/cmdIL.test b/tests/cmdIL.test index 58b83d4..3b38f84 100644 --- a/tests/cmdIL.test +++ b/tests/cmdIL.test @@ -3,11 +3,12 @@ # generates output for errors. No output means no errors were found. # # Copyright (c) 1997 Sun Microsystems, Inc. +# Copyright (c) 1998 by Scriptics Corporation. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: cmdIL.test,v 1.1.2.2 1998/09/24 23:59:21 stanton Exp $ +# RCS: @(#) $Id: cmdIL.test,v 1.1.2.3 1998/11/11 04:08:28 stanton Exp $ if {[string compare test [info procs test]] == 1} then {source defs} @@ -38,34 +39,37 @@ test cmdIL-1.7 {Tcl_LsortObjCmd procedure, -decreasing option} { test cmdIL-1.8 {Tcl_LsortObjCmd procedure, -dictionary option} { lsort -dictionary {d e c b a d35 d300} } {a b c d d35 d300 e} -test cmdIL-1.9 {Tcl_LsortObjCmd procedure, -increasing option} { +test cmdIL-1.9 {Tcl_LsortObjCmd procedure, -dictionary option} { + lsort -dictionary {1k 0k 10k} +} {0k 1k 10k} +test cmdIL-1.10 {Tcl_LsortObjCmd procedure, -increasing option} { lsort -decreasing -increasing {d e c b a d35 d300} } {a b c d d300 d35 e} -test cmdIL-1.10 {Tcl_LsortObjCmd procedure, -index option} { +test cmdIL-1.11 {Tcl_LsortObjCmd procedure, -index option} { list [catch {lsort -index {1 3 2 5}} msg] $msg } {1 {"-index" option must be followed by list index}} -test cmdIL-1.11 {Tcl_LsortObjCmd procedure, -index option} { +test cmdIL-1.12 {Tcl_LsortObjCmd procedure, -index option} { list [catch {lsort -index foo {1 3 2 5}} msg] $msg } {1 {bad index "foo": must be integer or "end"}} -test cmdIL-1.12 {Tcl_LsortObjCmd procedure, -index option} { +test cmdIL-1.13 {Tcl_LsortObjCmd procedure, -index option} { lsort -index end -integer {{2 25} {10 20 50 100} {3 16 42} 1} } {1 {2 25} {3 16 42} {10 20 50 100}} -test cmdIL-1.13 {Tcl_LsortObjCmd procedure, -index option} { +test cmdIL-1.14 {Tcl_LsortObjCmd procedure, -index option} { lsort -index 1 -integer {{1 25 100} {3 16 42} {10 20 50}} } {{3 16 42} {10 20 50} {1 25 100}} -test cmdIL-1.14 {Tcl_LsortObjCmd procedure, -integer option} { +test cmdIL-1.15 {Tcl_LsortObjCmd procedure, -integer option} { lsort -integer {24 6 300 18} } {6 18 24 300} -test cmdIL-1.15 {Tcl_LsortObjCmd procedure, -integer option} { +test cmdIL-1.16 {Tcl_LsortObjCmd procedure, -integer option} { list [catch {lsort -integer {1 3 2.4}} msg] $msg } {1 {expected integer but got "2.4"}} -test cmdIL-1.16 {Tcl_LsortObjCmd procedure, -real option} { +test cmdIL-1.17 {Tcl_LsortObjCmd procedure, -real option} { lsort -real {24.2 6e3 150e-1} } {150e-1 24.2 6e3} -test cmdIL-1.17 {Tcl_LsortObjCmd procedure, bogus list} { +test cmdIL-1.18 {Tcl_LsortObjCmd procedure, bogus list} { list [catch {lsort "1 2 3 \{ 4"} msg] $msg } {1 {unmatched open brace in list}} -test cmdIL-1.18 {Tcl_LsortObjCmd procedure, empty list} { +test cmdIL-1.19 {Tcl_LsortObjCmd procedure, empty list} { lsort {} } {} |