summaryrefslogtreecommitdiffstats
path: root/tests/safe.test
diff options
context:
space:
mode:
authorstwo <stwo>2010-11-02 21:42:27 (GMT)
committerstwo <stwo>2010-11-02 21:42:27 (GMT)
commit03556d3d486b03faccfd612eaaecce57f204a66e (patch)
tree372bd3e73a7fdf243c40587efcb01c61ad026030 /tests/safe.test
parentc3ea6a8d7531afa93834d9b212450b10f9ac6474 (diff)
downloadtcl-03556d3d486b03faccfd612eaaecce57f204a66e.zip
tcl-03556d3d486b03faccfd612eaaecce57f204a66e.tar.gz
tcl-03556d3d486b03faccfd612eaaecce57f204a66e.tar.bz2
Improved handling of non-standard module path lists, empty path lists in particular.
Diffstat (limited to 'tests/safe.test')
-rw-r--r--tests/safe.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/safe.test b/tests/safe.test
index c22cf6e..14cd021 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.34 2010/08/18 13:31:55 dkf Exp $
+# RCS: @(#) $Id: safe.test,v 1.35 2010/11/02 21:42:28 stwo Exp $
package require Tcl 8.5
@@ -205,7 +205,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(:[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 {}} {}"
+} -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
test safe-8.1 {safe source control on file} -setup {