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
|
{-# LANGUAGE CPP #-}
module PathIsSymbolicLink where
#include "util.inl"
import TestUtils
main :: TestEnv -> IO ()
main _t = do
supportsSymbolicLinks <- supportsSymlinks
when supportsSymbolicLinks $ do
createFileLink "x" "y"
createDirectoryLink "a" "b"
T(expect) () =<< pathIsSymbolicLink "y"
T(expect) () =<< pathIsSymbolicLink "b"
T(expectEq) () "x" =<< getSymbolicLinkTarget "y"
T(expectEq) () "a" =<< getSymbolicLinkTarget "b"
T(expectEq) () False =<< doesFileExist "y"
T(expectEq) () False =<< doesDirectoryExist "b"
writeFile "x" ""
createDirectory "a"
T(expect) () =<< doesFileExist "y"
T(expect) () =<< doesDirectoryExist "b"
removeFile "y"
removeDirectoryLink "b"
T(expectIOErrorType) () isDoesNotExistError (pathIsSymbolicLink "y")
T(expectIOErrorType) () isDoesNotExistError (pathIsSymbolicLink "b")
T(expectEq) () False =<< doesFileExist "y"
T(expectEq) () False =<< doesDirectoryExist "b"
|
