diff options
| author | dgp@users.sourceforge.net <dgp> | 2008-10-14 17:17:46 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2008-10-14 17:17:46 (GMT) |
| commit | e678683e8cf6d4c5c5faa3ba6aa227b24037dc5d (patch) | |
| tree | 867212103900f3c33e5d14af2b1d480f86078f0d | |
| parent | 9837c019bac433efac74d676f889edcf22ab9bc8 (diff) | |
| download | tcl-e678683e8cf6d4c5c5faa3ba6aa227b24037dc5d.zip tcl-e678683e8cf6d4c5c5faa3ba6aa227b24037dc5d.tar.gz tcl-e678683e8cf6d4c5c5faa3ba6aa227b24037dc5d.tar.bz2 | |
Make safe-7.2 more robust to different environments
| -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 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 |