Lines Matching refs:fstat
2 # fstat.test
4 # Tests for the fstat command.
15 # $Id: fstat.test,v 1.3 2002/04/04 06:10:30 hobbs Exp $
33 test fstat-1.1 {array return} {
35 fstat $gorpFH stat stat
44 test fstat-1.2 {array return} {
46 fstat $gorpFH stat stat
56 test fstat-1.3 {array return} {
58 fstat $gorpFH stat stat
63 test fstat-2.1 {keyed list returns} {
65 set stat [fstat $gorpFH]
74 test fstat-2.2 {keyed list returns} {
75 set stat [fstat $gorpFH]
85 test fstat-2.3 {keyed list returns} {
86 set stat [fstat $gorpFH]
92 test fstat-3.1 {individual item returns} unixOnly {
93 set old [fstat $gorpFH mtime]
97 set new [fstat $gorpFH mtime]
105 test fstat-3.2 {individual item returns} {unixOnly} {
107 set oldsize [fstat $gorpFH size]
110 expr {[fstat $gorpFH size] - $oldsize}
118 test fstat-3.3 {individual item returns} {
119 set fh [open fstat.tmp w]
120 set oldsize [fstat $fh size]
123 set fh [open fstat.tmp]
124 set diff [expr {[fstat $fh size] - $oldsize}]
129 test fstat-4.1 {type return} {unixOnly} {
131 set type [fstat $fh type]
136 test fstat-4.2 {type return} {
137 fstat $gorpFH type
144 test fstat-4.3 {type return} {
148 set data [fstat $gorpFH $type]
157 test fstat-5.1 {error handling} {
158 list [catch {fstat} msg] $msg
159 } {1 {wrong # args: fstat fileId ?item?|?stat arrayVar?}}
161 test fstat-5.2 {error handling} {
162 list [catch {fstat foo} msg] $msg
165 test fstat-5.3 {error handling} {
166 list [catch {fstat $gorpFH foo} msg] $msg
169 test fstat-5.4 {error handling} {
171 list [catch {fstat $gorpFH foo foo} msg] $msg
174 test fstat-5.5 {error handling} {
176 list [catch {fstat $gorpFH stat foo baz} msg] $msg
177 } {1 {wrong # args: fstat fileId ?item?|?stat arrayVar?}}
182 TestRemove gorp.file fstat.tmp