diff options
Diffstat (limited to 'tests/fileSystemEncoding.test')
-rw-r--r-- | tests/fileSystemEncoding.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/fileSystemEncoding.test b/tests/fileSystemEncoding.test index fa67646..0f8a2a7 100644 --- a/tests/fileSystemEncoding.test +++ b/tests/fileSystemEncoding.test @@ -38,11 +38,12 @@ namespace eval ::tcl::test::fileSystemEncoding { makeFile {} $utf8name set globbed [lindex [glob -directory $dir *] 0] encoding system utf-8 - lappend res [file exists $globbed] + set res [file exists $globbed] encoding system iso8859-1 lappend res [file exists $globbed] return $res } -cleanup { + removeFile $utf8name file delete -force $dir encoding system $saved } -result {0 1} |