diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-01 10:33:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-01 10:33:33 (GMT) |
| commit | d99566171273e05f659f3f4f364b9d1948ec8565 (patch) | |
| tree | c4a99a3ac584ca9f6609ca8575261cf7b3d419a0 /tests/safe-zipfs.test | |
| parent | d52b3eef8055623bab469007083629a4e134955b (diff) | |
| parent | 724de352e37dd0fe795024353378cd662593b4a6 (diff) | |
| download | tcl-d99566171273e05f659f3f4f364b9d1948ec8565.zip tcl-d99566171273e05f659f3f4f364b9d1948ec8565.tar.gz tcl-d99566171273e05f659f3f4f364b9d1948ec8565.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'tests/safe-zipfs.test')
| -rw-r--r-- | tests/safe-zipfs.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/safe-zipfs.test b/tests/safe-zipfs.test index 7e8dded..70f822a 100644 --- a/tests/safe-zipfs.test +++ b/tests/safe-zipfs.test @@ -179,7 +179,7 @@ test safe-zipfs-7.1 {tests that everything works at high level; zipfs} -setup { } -body { # no error shall occur: # (because the default access_path shall include 1st level sub dirs so - # package require in a slave works like in the parent) + # package require in a child works like in the parent) set v [interp eval $i {package require SafeTestPackage1}] # no error shall occur: interp eval $i {HeresPackage1} @@ -458,7 +458,7 @@ test safe-zipfs-9.20 {check module loading; zipfs} -setup { {TCLLIB ZIPDIR/auto0/modules ZIPDIR/auto0/modules/mod1\ ZIPDIR/auto0/modules/mod2} -- res0 res1 res2} # - The command safe::InterpSetConfig adds the parent's [tcl::tm::list] in -# tokenized form to the slave's access path, and then adds all the +# tokenized form to the child's access path, and then adds all the # descendants, discovered recursively by using glob. # - The order of the directories in the list returned by glob is system-dependent, # and therefore this is true also for (a) the order of token assignment to |