diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-05-06 11:17:28 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-05-06 11:17:28 (GMT) |
| commit | d8b36a021654bbe21bf6bd9a907e8457fdb5b52b (patch) | |
| tree | 7733ca33aadae69a25b4233d9a1fa442f4f01ee4 /tests/winFCmd.test | |
| parent | b04c31eecbce910b26e4d57da13aeefacf27fe63 (diff) | |
| download | tcl-d8b36a021654bbe21bf6bd9a907e8457fdb5b52b.zip tcl-d8b36a021654bbe21bf6bd9a907e8457fdb5b52b.tar.gz tcl-d8b36a021654bbe21bf6bd9a907e8457fdb5b52b.tar.bz2 | |
Start working on [3389978]. Appears to work, but some clean-up needed.
Diffstat (limited to 'tests/winFCmd.test')
| -rw-r--r-- | tests/winFCmd.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/winFCmd.test b/tests/winFCmd.test index bd50328..28257c6 100644 --- a/tests/winFCmd.test +++ b/tests/winFCmd.test @@ -1385,10 +1385,10 @@ test winFCmd-19.5 {Windows extended path names} -constraints nt -setup { list [catch { set f [open $tmpfile [list WRONLY CREAT]] close $f - } res] errormsg ;#$res + } res] $res } -cleanup { catch {file delete $tmpfile} -} -result [list 1 errormsg] +} -result [list 0 {}] test winFCmd-19.6 {Windows extended path names} -constraints nt -setup { set tmpfile [file join $::env(TEMP) tcl[string repeat x 248].tmp] set tmpfile //?/[file normalize $tmpfile] |