diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-12-15 22:05:09 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-12-15 22:05:09 (GMT) |
commit | 319ab9635ed6687cd536c1cd0d4dcbd18b3c08d6 (patch) | |
tree | 8306a80bdcce9e76a8c54a4058e1b527e0bf4750 /tests/fileSystem.test | |
parent | fb9a422a5141fc6c23ea086354d697f5e2e2c864 (diff) | |
download | tcl-319ab9635ed6687cd536c1cd0d4dcbd18b3c08d6.zip tcl-319ab9635ed6687cd536c1cd0d4dcbd18b3c08d6.tar.gz tcl-319ab9635ed6687cd536c1cd0d4dcbd18b3c08d6.tar.bz2 |
(cherry-pick) test suite debugging
Diffstat (limited to 'tests/fileSystem.test')
-rw-r--r-- | tests/fileSystem.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test index f825e2b..4c406a1 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -282,7 +282,7 @@ test filesystem-1.30.3 {file normalization should distinguish between ~ and ~use set olduserhome [file normalize ~$::tcl_platform(user)] set ::env(HOME) [file join $oldhome temp] } -cleanup { - set env(HOME) $oldhome + set ::env(HOME) $oldhome } -body { list [string equal [file normalize ~] $::env(HOME)] \ [string equal $olduserhome [file normalize ~$::tcl_platform(user)]] |