diff options
| author | sergey.brester <sergey.brester> | 2019-11-27 13:43:36 (GMT) |
|---|---|---|
| committer | sergey.brester <sergey.brester> | 2019-11-27 13:43:36 (GMT) |
| commit | 87934d6db33216188379da24c1e7efdc81c911dc (patch) | |
| tree | 2223355786512cee259689f5bd814afd18eb0b28 /tests/fileSystemEncoding.test | |
| parent | dd334ec3d0d3921423e9614bb88b50d4b4aa0343 (diff) | |
| parent | 94206b30ffe6cbdb341a8f5a97cdb7fb25c9b818 (diff) | |
| download | tcl-87934d6db33216188379da24c1e7efdc81c911dc.zip tcl-87934d6db33216188379da24c1e7efdc81c911dc.tar.gz tcl-87934d6db33216188379da24c1e7efdc81c911dc.tar.bz2 | |
merge digit-bit-60
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} |