diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-11-08 17:20:49 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-11-08 17:20:49 (GMT) |
| commit | ff1a9f1762b2a15086eb6422ca160377a1a4d783 (patch) | |
| tree | 00fc5d9b3d16143f8376e90a6adab76b5d92d74d /tests/safe.test | |
| parent | 551b64a3991fd50eb4173db0abe46d005cac4aa2 (diff) | |
| download | tcl-ff1a9f1762b2a15086eb6422ca160377a1a4d783.zip tcl-ff1a9f1762b2a15086eb6422ca160377a1a4d783.tar.gz tcl-ff1a9f1762b2a15086eb6422ca160377a1a4d783.tar.bz2 | |
missing constraint and too brittle result
Diffstat (limited to 'tests/safe.test')
| -rw-r--r-- | tests/safe.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/safe.test b/tests/safe.test index 4190976..2d7f476 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -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(:*:)} 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 { |