diff options
| author | hobbs <hobbs> | 2000-04-04 08:05:18 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-04-04 08:05:18 (GMT) |
| commit | 8977ea94f9e8853776ebf09fe56d7be111450019 (patch) | |
| tree | 00ceac2b3c276f9d6db33da471db0ee5b4fce6bb /tests/foreach.test | |
| parent | 48e18ca0cc7a2edcc8320b4e33e31faaa768a64a (diff) | |
| download | tcl-8977ea94f9e8853776ebf09fe56d7be111450019.zip tcl-8977ea94f9e8853776ebf09fe56d7be111450019.tar.gz tcl-8977ea94f9e8853776ebf09fe56d7be111450019.tar.bz2 | |
* tests/foreach.test:
* tests/namespace.test:
* tests/var.test: Added lsorts to avoid random sorted return
problems. [Bug: 2682]
Diffstat (limited to 'tests/foreach.test')
| -rw-r--r-- | tests/foreach.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/foreach.test b/tests/foreach.test index 5a13035..5f122a9 100644 --- a/tests/foreach.test +++ b/tests/foreach.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: foreach.test,v 1.4 1999/06/26 03:54:14 jenn Exp $ +# RCS: @(#) $Id: foreach.test,v 1.5 2000/04/04 08:05:18 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -157,8 +157,8 @@ test foreach-3.1 {compiled foreach backward jump works correctly} { return $l } array set x {0 zero 1 one 2 two 3 three} - foo x -} {{0 zero} {1 one} {2 two} {3 three}} + lsort [foo x] +} [lsort {{0 zero} {1 one} {2 two} {3 three}}] test foreach-4.1 {noncompiled foreach and shared variable or value list objects that are converted to another type} { catch {unset x} |