diff options
| author | kjnash <k.j.nash@usa.net> | 2020-07-09 17:37:34 (GMT) |
|---|---|---|
| committer | kjnash <k.j.nash@usa.net> | 2020-07-09 17:37:34 (GMT) |
| commit | 541671a2f136159742365818e09d29f6be51f96b (patch) | |
| tree | 8d0a159e8b5d70c26fbb15aead09f71163396dc8 /tests/safe.test | |
| parent | a52e71f534a53b923ecdd96be5dec47ca9875544 (diff) | |
| download | tcl-541671a2f136159742365818e09d29f6be51f96b.zip tcl-541671a2f136159742365818e09d29f6be51f96b.tar.gz tcl-541671a2f136159742365818e09d29f6be51f96b.tar.bz2 | |
Revise tests safe-18.2 and safe-18.4 to allow for -autoPath in interpConfigure output.
Diffstat (limited to 'tests/safe.test')
| -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 2a910fd..ce70bf9 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -1026,7 +1026,7 @@ test safe-18.2 {cf. safe-7.2 - tests specific path and interpFind/AddToAccessPat if {$SyncExists} { safe::setAutoPathSync $SyncVal_TMP } -} -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 {}} {}" +} -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 {} -autoPath [list $tcl_library]} {}" test safe-18.3 {Check that default auto_path is the same as in the master interpreter without conventional AutoPathSync} -constraints AutoSyncDefined -setup { # All ::safe commands are loaded at start of file. @@ -1093,7 +1093,7 @@ test safe-18.4 {cf. safe-7.4 - tests specific path and positive search and auto_ if {$SyncExists} { safe::setAutoPathSync $SyncVal_TMP } -} -match glob -result "{} {{\$p(:0:)}} {\$p(:0:)} {\$p(:*:)} 0 1.0 {-accessPath {[list $tcl_library *$tcl_library/http1.0]} -statics 0 -nested 1 -deleteHook {}} {}" +} -match glob -result "{} {{\$p(:0:)}} {\$p(:0:)} {\$p(:*:)} 0 1.0 {-accessPath {[list $tcl_library *$tcl_library/http1.0]} -statics 0 -nested 1 -deleteHook {} -autoPath [list $tcl_library]} {}" test safe-18.5 {cf. safe-7.5 - tests positive and negative module loading without conventional AutoPathSync} -setup { # All ::safe commands are loaded at start of file. |