diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2009-12-28 12:55:48 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2009-12-28 12:55:48 (GMT) |
| commit | 000afb3098ed8c8148056fb2638e664b7e2cb3f2 (patch) | |
| tree | bd4dc4243a573408e161da4ffd15e03e13792cd4 /tests/cmdAH.test | |
| parent | f9c66cfc9c6e599c938a2873b832c7a9c5b7efaf (diff) | |
| download | tcl-000afb3098ed8c8148056fb2638e664b7e2cb3f2.zip tcl-000afb3098ed8c8148056fb2638e664b7e2cb3f2.tar.gz tcl-000afb3098ed8c8148056fb2638e664b7e2cb3f2.tar.bz2 | |
[Bug 942170]: Detect the st_blocks field of 'struct stat' correctly.
Diffstat (limited to 'tests/cmdAH.test')
| -rw-r--r-- | tests/cmdAH.test | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index c179eb6..182d43b 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.66 2009/01/08 16:41:34 dkf Exp $ +# RCS: @(#) $Id: cmdAH.test,v 1.67 2009/12/28 12:55:48 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 @@ -1295,8 +1295,10 @@ test cmdAH-28.2 {Tcl_FileObjCmd: stat} -returnCodes error -body { } -result {wrong # args: should be "file stat name varName"} test cmdAH-28.3 {Tcl_FileObjCmd: stat} -setup { catch {unset stat} + set stat(blocks) [set stat(blksize) {}] } -body { file stat $gorpfile stat + unset stat(blocks) stat(blksize); # Ignore these fields; not always set lsort [array names stat] } -result {atime ctime dev gid ino mode mtime nlink size type uid} test cmdAH-28.4 {Tcl_FileObjCmd: stat} -setup { |