diff options
author | kjnash <k.j.nash@usa.net> | 2020-07-25 13:13:14 (GMT) |
---|---|---|
committer | kjnash <k.j.nash@usa.net> | 2020-07-25 13:13:14 (GMT) |
commit | 06feee532810f27a6f6dcf9aefdc795b29060aa1 (patch) | |
tree | 2cdfcdaf0909b7791b9c16788f22c196ee2ea94f /tests/safe-stock87.test | |
parent | 0d094ff62aa60c15d6afecdc694e910646c813cf (diff) | |
parent | 1b7f4189f054796e18cbc8211d7eed39495ffa9c (diff) | |
download | tcl-06feee532810f27a6f6dcf9aefdc795b29060aa1.zip tcl-06feee532810f27a6f6dcf9aefdc795b29060aa1.tar.gz tcl-06feee532810f27a6f6dcf9aefdc795b29060aa1.tar.bz2 |
Merge tip-579-8-6. All tests now pass.
Diffstat (limited to 'tests/safe-stock87.test')
-rw-r--r-- | tests/safe-stock87.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/safe-stock87.test b/tests/safe-stock87.test index c36792c..1ca2020 100644 --- a/tests/safe-stock87.test +++ b/tests/safe-stock87.test @@ -353,6 +353,7 @@ test safe-stock87-18.2 {cf. safe-stock87-7.2opt - tests specific path and interp } -body { set i [safe::interpCreate -nostat -nested 1 -accessPath [list [info library]]] set auto1 [interp eval $i {set ::auto_path}] + # This will differ from the value -autoPath {} interp eval $i {set ::auto_path [list {$p(:0:)}]} # should not add anything (p0) set token1 [safe::interpAddToAccessPath $i [info library]] @@ -370,7 +371,7 @@ test safe-stock87-18.2 {cf. safe-stock87-7.2opt - tests specific path and interp } } -match glob -result "{} {\$p(:0:)} {\$p(:*:)} 1 {$pkgOptErrMsg}\ {-accessPath {[list $tcl_library */dummy/unixlike/test/path]}\ - -statics 0 -nested 1 -deleteHook {} -autoPath [list $tcl_library]} {}" + -statics 0 -nested 1 -deleteHook {} -autoPath {}} {}" test safe-stock87-18.4 {cf. safe-stock87-7.4opt - tests specific path and positive search and auto_path without conventional AutoPathSync, use pkg opt} -constraints AutoSyncDefined -setup { set SyncExists [expr {[info commands ::safe::setSyncMode] ne {}}] if {$SyncExists} { @@ -385,6 +386,7 @@ test safe-stock87-18.4 {cf. safe-stock87-7.4opt - tests specific path and positi # should not have been set by Safe Base: set auto1 [interp eval $i {set ::auto_path}] + # This will differ from the value -autoPath {} interp eval $i {set ::auto_path [list {$p(:0:)}]} # should not add anything (p0) @@ -407,7 +409,7 @@ test safe-stock87-18.4 {cf. safe-stock87-7.4opt - tests specific path and positi } } -match glob -result "{} {{\$p(:0:)}} {\$p(:0:)} {\$p(:*:)} 0 0.4.*\ {-accessPath {[list $tcl_library *$tcl_library/$pkgOptDir]}\ - -statics 0 -nested 1 -deleteHook {} -autoPath [list $tcl_library]} {}" + -statics 0 -nested 1 -deleteHook {} -autoPath {}} {}" test safe-stock87-18.5 {cf. safe-stock87-7.5 - tests positive and negative module loading without conventional AutoPathSync} -setup { set SyncExists [expr {[info commands ::safe::setSyncMode] ne {}}] if {$SyncExists} { |