diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-23 07:44:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-23 07:44:27 (GMT) |
| commit | a1c17947a68b03c30749dc651fe7fa0d1712ada8 (patch) | |
| tree | 2dd69c7f6f16be8244ccb442b5d528c3a66cffb0 /tests/safe.test | |
| parent | da2d3610f9a00aff0dce0a6bc7037d9df4253124 (diff) | |
| download | tcl-a1c17947a68b03c30749dc651fe7fa0d1712ada8.zip tcl-a1c17947a68b03c30749dc651fe7fa0d1712ada8.tar.gz tcl-a1c17947a68b03c30749dc651fe7fa0d1712ada8.tar.bz2 | |
(cherry-pick): Repair flaws exposed by debugging test run.
Diffstat (limited to 'tests/safe.test')
| -rw-r--r-- | tests/safe.test | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/safe.test b/tests/safe.test index 1c27c1e..e4c3442 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -174,6 +174,8 @@ test safe-4.6 {safe::interpDelete, indirectly} -setup { # A replacement test using example files is "safe-9.8". # Tests 5.* test the example files before using them to test safe interpreters. +unset -nocomplain path + test safe-5.1 {example tclIndex commands, test in parent interpreter} -setup { set tmpAutoPath $::auto_path lappend ::auto_path [file join $TestsDir auto0 auto1] [file join $TestsDir auto0 auto2] @@ -1659,6 +1661,7 @@ test safe-16.8 {Bug 3529949: defang ~user in paths used by AliasGlob (2)} -setup # cleanup set ::auto_path $SaveAutoPath unset SaveAutoPath TestsDir PathMapp +unset -nocomplain path rename mapList {} rename mapAndSortList {} ::tcltest::cleanupTests |