summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-10-14 17:17:46 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-10-14 17:17:46 (GMT)
commit59cc2edf669e2269457e9750eb1f0e18aa34a503 (patch)
tree867212103900f3c33e5d14af2b1d480f86078f0d
parentd41581b7b69f7837fdb13c3ab6e6be98d08506a3 (diff)
downloadtcl-59cc2edf669e2269457e9750eb1f0e18aa34a503.zip
tcl-59cc2edf669e2269457e9750eb1f0e18aa34a503.tar.gz
tcl-59cc2edf669e2269457e9750eb1f0e18aa34a503.tar.bz2
Make safe-7.2 more robust to different environments
-rw-r--r--tests/safe.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/safe.test b/tests/safe.test
index a97ea51..6368b83 100644
--- a/tests/safe.test
+++ b/tests/safe.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: safe.test,v 1.24 2008/09/25 18:06:44 dgp Exp $
+# RCS: @(#) $Id: safe.test,v 1.25 2008/10/14 17:17:46 dgp Exp $
package require Tcl 8.5
@@ -213,7 +213,7 @@ test safe-7.2 {tests specific path and interpFind/AddToAccessPath} -body {
[catch {interp eval $i {package require http 1}} msg] $msg \
[safe::interpConfigure $i]\
[safe::interpDelete $i]
-} -match glob -result "{\$p(:0:)} {\$p(:17:)} 1 {can't find package http 1} {-accessPath {[list $tcl_library * /dummy/unixlike/test/path]} -statics 0 -nested 1 -deleteHook {}} {}"
+} -match glob -result "{\$p(:0:)} {\$p(:[expr 1+[llength [tcl::tm::list]]]:)} 1 {can't find package http 1} {-accessPath {[list $tcl_library * /dummy/unixlike/test/path]} -statics 0 -nested 1 -deleteHook {}} {}"
# test source control on file name