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 | d9866626fadb0a1c94f0317d07cb7dcb5dfd7c86 (patch) | |
| tree | 7733ca33aadae69a25b4233d9a1fa442f4f01ee4 /tests | |
| parent | d9f128a5af6973fa48e8c0a801ca19c34cb67784 (diff) | |
| download | tcl-d9866626fadb0a1c94f0317d07cb7dcb5dfd7c86.zip tcl-d9866626fadb0a1c94f0317d07cb7dcb5dfd7c86.tar.gz tcl-d9866626fadb0a1c94f0317d07cb7dcb5dfd7c86.tar.bz2 | |
Start working on [3389978]. Appears to work, but some clean-up needed.
Diffstat (limited to 'tests')
| -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] |