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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
{-# LANGUAGE CPP #-}
module RemovePathForcibly where
#include "util.inl"
import System.Directory.Internal
import System.OsPath ((</>), normalise)
import qualified Data.List as List
import TestUtils (hardLinkOrCopy, modifyPermissions, symlinkOrCopy)
main :: TestEnv -> IO ()
main _t = do
------------------------------------------------------------
-- clean up junk from previous invocations
modifyPermissions (tmp "c") (\ p -> p { writable = True })
`catchIOError` \ _ -> return ()
removePathForcibly tmpD
`catchIOError` \ _ -> return ()
------------------------------------------------------------
-- set up
createDirectoryIfMissing True (tmp "a/x/w")
createDirectoryIfMissing True (tmp "a/y")
createDirectoryIfMissing True (tmp "a/z")
createDirectoryIfMissing True (tmp "b")
createDirectoryIfMissing True (tmp "c")
createDirectoryIfMissing True (tmp "f")
writeFile (so (tmp "a/x/w/u")) "foo"
writeFile (so (tmp "a/t")) "bar"
writeFile (so (tmp "f/s")) "qux"
symlinkOrCopy (normalise "../a") (tmp "b/g")
symlinkOrCopy (normalise "../b") (tmp "c/h")
symlinkOrCopy (normalise "a") (tmp "d")
setPermissions (tmp "f/s") emptyPermissions
setPermissions (tmp "f") emptyPermissions
------------------------------------------------------------
-- tests
removePathForcibly (tmp "f")
removePathForcibly (tmp "e") -- intentionally non-existent
T(expectEq) () [".", "..", "a", "b", "c", "d"] . List.sort =<<
getDirectoryContents tmpD
T(expectEq) () [".", "..", "t", "x", "y", "z"] . List.sort =<<
getDirectoryContents (tmp "a")
T(expectEq) () [".", "..", "g"] . List.sort =<<
getDirectoryContents (tmp "b")
T(expectEq) () [".", "..", "h"] . List.sort =<<
getDirectoryContents (tmp "c")
T(expectEq) () [".", "..", "t", "x", "y", "z"] . List.sort =<<
getDirectoryContents (tmp "d")
removePathForcibly (tmp "d")
T(expectEq) () [".", "..", "a", "b", "c"] . List.sort =<<
getDirectoryContents tmpD
T(expectEq) () [".", "..", "t", "x", "y", "z"] . List.sort =<<
getDirectoryContents (tmp "a")
T(expectEq) () [".", "..", "g"] . List.sort =<<
getDirectoryContents (tmp "b")
T(expectEq) () [".", "..", "h"] . List.sort =<<
getDirectoryContents (tmp "c")
removePathForcibly (tmp "c")
T(expectEq) () [".", "..", "a", "b"] . List.sort =<<
getDirectoryContents tmpD
T(expectEq) () [".", "..", "t", "x", "y", "z"] . List.sort =<<
getDirectoryContents (tmp "a")
T(expectEq) () [".", "..", "g"] . List.sort =<<
getDirectoryContents (tmp "b")
removePathForcibly (tmp "b")
T(expectEq) () [".", "..", "a"] . List.sort =<<
getDirectoryContents tmpD
T(expectEq) () [".", "..", "t", "x", "y", "z"] . List.sort =<<
getDirectoryContents (tmp "a")
removePathForcibly (tmp "a")
T(expectEq) () [".", ".."] . List.sort =<<
getDirectoryContents tmpD
----------------------------------------------------------------------
-- regression test for https://github.com/haskell/directory/issues/135
writeFile "hl1" "hardlinked"
setPermissions "hl1" emptyPermissions
origPermissions <- getPermissions "hl1"
hardLinkOrCopy "hl1" "hl2"
removePathForcibly "hl2"
T(expectEq) () origPermissions =<< getPermissions "hl1"
where testName = "removePathForcibly"
tmpD = testName <> ".tmp"
tmp s = tmpD </> normalise s
|
