From 97ddceae2735bb515100b9880a07e2fc9defab4d Mon Sep 17 00:00:00 2001 From: dkf Date: Wed, 10 Feb 2010 23:24:25 +0000 Subject: Remove assumption of ordered results from [info procs] --- tests/info.test | 4 ++-- 1 file 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 { -- cgit v0.12