diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-02-10 23:24:25 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-02-10 23:24:25 (GMT) |
| commit | 97ddceae2735bb515100b9880a07e2fc9defab4d (patch) | |
| tree | 66f1d15ec76a50682817b877f292a4b82395bc26 /tests | |
| parent | 828f72e7957c659ea67bfae6c63ecbcb221e1bb7 (diff) | |
| download | tcl-97ddceae2735bb515100b9880a07e2fc9defab4d.zip tcl-97ddceae2735bb515100b9880a07e2fc9defab4d.tar.gz tcl-97ddceae2735bb515100b9880a07e2fc9defab4d.tar.bz2 | |
Remove assumption of ordered results from [info procs]
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/info.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/info.test b/tests/info.test index 8b7729c..28fee2c 100644 --- a/tests/info.test +++ b/tests/info.test @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: info.test,v 1.74 2010/01/10 22:58:41 nijtmans Exp $ +# RCS: @(#) $Id: info.test,v 1.75 2010/02/10 23:24:25 dkf Exp $ if {{::tcltest} ni [namespace children]} { package require tcltest 2 @@ -491,7 +491,7 @@ test info-15.4 {info procs option} -setup { namespace eval test_ns_info2 { namespace import ::test_ns_info1::* proc r {} {} - list [info procs] [info procs p*] + list [lsort [info procs]] [info procs p*] } } -result {{p q r} p} test info-15.5 {info procs option with a proc in a namespace} -setup { |