summaryrefslogtreecommitdiffstats
path: root/tests/winFCmd.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2014-05-06 11:17:28 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2014-05-06 11:17:28 (GMT)
commitd9866626fadb0a1c94f0317d07cb7dcb5dfd7c86 (patch)
tree7733ca33aadae69a25b4233d9a1fa442f4f01ee4 /tests/winFCmd.test
parentd9f128a5af6973fa48e8c0a801ca19c34cb67784 (diff)
downloadtcl-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/winFCmd.test')
-rw-r--r--tests/winFCmd.test4
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]