diff options
| author | stwo <stwo@noemail.net> | 2010-11-02 21:42:26 (GMT) |
|---|---|---|
| committer | stwo <stwo@noemail.net> | 2010-11-02 21:42:26 (GMT) |
| commit | 572bd21b98158f3f6623e4a4fe7be3b640a7e36f (patch) | |
| tree | 372bd3e73a7fdf243c40587efcb01c61ad026030 /tests | |
| parent | ba0591046e1f8722e8c4a9cbb44490b22ac4a125 (diff) | |
| download | tcl-572bd21b98158f3f6623e4a4fe7be3b640a7e36f.zip tcl-572bd21b98158f3f6623e4a4fe7be3b640a7e36f.tar.gz tcl-572bd21b98158f3f6623e4a4fe7be3b640a7e36f.tar.bz2 | |
Improved handling of non-standard module path lists, empty path lists in particular.
FossilOrigin-Name: 2704d47a48687a7180f33a35441a5b48e4929c75
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/safe.test | 4 |
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 { |