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
|
{-# LANGUAGE CPP #-}
module FileTime where
#include "util.inl"
import System.Directory
import System.IO.Error (isDoesNotExistError)
import Data.Foldable (for_)
import qualified Data.Time.Clock as Time
main :: TestEnv -> IO ()
main _t = do
now <- Time.getCurrentTime
let someTimeAgo = Time.addUTCTime (-3600) now
someTimeAgo' = Time.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
-- 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
|
