summaryrefslogtreecommitdiffstats
path: root/tests/fCmd.test
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2005-10-23 18:51:30 (GMT)
committervincentdarley <vincentdarley>2005-10-23 18:51:30 (GMT)
commit85989678787c55ed31dd47768c232e88501424af (patch)
treeaee2e79b42c94fd9b2e667b5687c9c7a02855e4c /tests/fCmd.test
parent2805d0901c017d0273089012097c326967cdd90d (diff)
downloadtcl-85989678787c55ed31dd47768c232e88501424af.zip
tcl-85989678787c55ed31dd47768c232e88501424af.tar.gz
tcl-85989678787c55ed31dd47768c232e88501424af.tar.bz2
fix to glob memory leak and file stat ino/nlink on windows
Diffstat (limited to 'tests/fCmd.test')
-rw-r--r--tests/fCmd.test12
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/fCmd.test b/tests/fCmd.test
index bc7b550..64bfbd7 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: fCmd.test,v 1.47 2005/10/07 22:35:33 hobbs Exp $
+# RCS: @(#) $Id: fCmd.test,v 1.48 2005/10/23 18:51:31 vincentdarley Exp $
#
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -2181,6 +2181,16 @@ test fCmd-28.9 {file link: success with file} {linkFile} {
cd [workingDirectory]
set res
} {0 abc.file}
+test fCmd-28.9.1 {file link: success with file} {linkFile win} {
+ cd [temporaryDirectory]
+ file delete -force abc.link
+ set res {}
+ file stat abc.file arr ; lappend res $arr(nlink)
+ lappend res [catch {file link abc.link abc.file} msg] $msg
+ file stat abc.file arr ; lappend res $arr(nlink)
+ cd [workingDirectory]
+ set res
+} {1 0 abc.file 2}
cd [temporaryDirectory]
catch {file delete -force abc.link}
cd [workingDirectory]