summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-12-28 13:53:40 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-12-28 13:53:40 (GMT)
commit28c061614a5610548f9c14ac2b02a06260223f3c (patch)
tree9c91a854f863f5c7082c60168418c2fc5a9410ed /tests
parent016e636e5322d845b59bb6ecd6754894b9a98aec (diff)
downloadtcl-28c061614a5610548f9c14ac2b02a06260223f3c.zip
tcl-28c061614a5610548f9c14ac2b02a06260223f3c.tar.gz
tcl-28c061614a5610548f9c14ac2b02a06260223f3c.tar.bz2
[Bug 942170]: Detect the st_blocks field of 'struct stat' correctly.
Diffstat (limited to 'tests')
-rw-r--r--tests/cmdAH.test4
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test
index 44316c5..d573bb9 100644
--- a/tests/cmdAH.test
+++ b/tests/cmdAH.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: cmdAH.test,v 1.57 2007/12/13 15:26:06 dgp Exp $
+# RCS: @(#) $Id: cmdAH.test,v 1.57.2.1 2009/12/28 13:53:40 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2.1
@@ -1321,7 +1321,9 @@ test cmdAH-28.2 {Tcl_FileObjCmd: stat} {
} {1 {wrong # args: should be "file stat name varName"} NONE}
test cmdAH-28.3 {Tcl_FileObjCmd: stat} {
catch {unset stat}
+ set stat(blocks) [set stat(blksize) {}]
file stat $gorpfile stat
+ unset stat(blocks) stat(blksize)
lsort [array names stat]
} {atime ctime dev gid ino mode mtime nlink size type uid}
test cmdAH-28.4 {Tcl_FileObjCmd: stat} {