1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
{-# LANGUAGE CPP #-}
module FileTime where
#include "util.inl"
import Data.Time.Clock (addUTCTime, getCurrentTime)
main :: TestEnv -> IO ()
main _t = do
now <- getCurrentTime
let someTimeAgo = addUTCTime (-3600) now
someTimeAgo' = addUTCTime (-7200) now
T(expectIOErrorType) () isDoesNotExistError $
getAccessTime "nonexistent-file"
T(expectIOErrorType) () isDoesNotExistError $
setAccessTime "nonexistent-file" someTimeAgo
T(expectIOErrorType) () isDoesNotExistError $
getModificationTime "nonexistent-file"
T(expectIOErrorType) () isDoesNotExistError $
setModificationTime "nonexistent-file" someTimeAgo
writeFile "foo" ""
for_ [ "foo", ".", "" ] $ \ file -> do
let mtime = someTimeAgo
atime = someTimeAgo'
atime1 <- getAccessTime file
setModificationTime file mtime
atime2 <- getAccessTime file
mtime2 <- getModificationTime file
-- modification time should be set with at worst 1 sec resolution
T(expectNearTime) file mtime mtime2 1
-- access time should not change, although it may lose some precision
-- on POSIX systems without 'utimensat'
T(expectNearTime) file atime1 atime2 1
setAccessTime file atime
atime3 <- getAccessTime file
mtime3 <- getModificationTime file
when setAtime $ do
-- access time should be set with at worst 1 sec resolution
T(expectNearTime) file atime atime3 1
-- modification time should not change, although it may lose some precision
-- on POSIX systems without 'utimensat'
T(expectNearTime) file mtime2 mtime3 1
where
testname = "FileTime"
setAtime = T.readArg _t testname "set-atime" True
|
