diff options
| author | dgp <dgp@users.sourceforge.net> | 2019-11-03 02:17:02 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2019-11-03 02:17:02 (GMT) |
| commit | 0db44b051693cc2e28ad179970f04fd317259e90 (patch) | |
| tree | 9be62f2ed5223f06e47aeb350d338f65edc8e319 | |
| parent | 8bc7833ed365e1fb5aca245e10ad0287b7d9551a (diff) | |
| download | tcl-0db44b051693cc2e28ad179970f04fd317259e90.zip tcl-0db44b051693cc2e28ad179970f04fd317259e90.tar.gz tcl-0db44b051693cc2e28ad179970f04fd317259e90.tar.bz2 | |
Fix test failures with -singleproc 1 testing
| -rw-r--r-- | tests/fileSystemEncoding.test | 3 | ||||
| -rw-r--r-- | tests/tcltests.tcl | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/tests/fileSystemEncoding.test b/tests/fileSystemEncoding.test index 3679652..da301ce 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} diff --git a/tests/tcltests.tcl b/tests/tcltests.tcl index 35b7005..a1fdb3d 100644 --- a/tests/tcltests.tcl +++ b/tests/tcltests.tcl @@ -24,7 +24,7 @@ namespace eval ::tcltests { proc tempdir_alternate {} { - file tempfile tempfile + close [file tempfile tempfile] set tmpdir [file dirname $tempfile] set execname [info nameofexecutable] regsub -all {[^[:alpha:][:digit:]]} $execname _ execname |