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
|
{-# LANGUAGE CPP #-}
module MakeAbsolute where
#include "util.inl"
import System.OsPath ((</>), addTrailingPathSeparator,
dropTrailingPathSeparator, normalise)
#if defined(mingw32_HOST_OS)
import System.Directory.Internal
import System.OsPath (takeDrive, toChar, unpack)
#endif
main :: TestEnv -> IO ()
main _t = do
dot <- makeAbsolute ""
dot2 <- makeAbsolute "."
dot3 <- makeAbsolute "./."
T(expectEq) () dot (dropTrailingPathSeparator dot)
T(expectEq) () dot dot2
T(expectEq) () dot dot3
sdot <- makeAbsolute "./"
sdot2 <- makeAbsolute "././"
T(expectEq) () sdot (addTrailingPathSeparator sdot)
T(expectEq) () sdot sdot2
foo <- makeAbsolute "foo"
foo2 <- makeAbsolute "foo/."
foo3 <- makeAbsolute "./foo"
T(expectEq) () foo (normalise (dot </> "foo"))
T(expectEq) () foo foo2
T(expectEq) () foo foo3
sfoo <- makeAbsolute "foo/"
sfoo2 <- makeAbsolute "foo/./"
sfoo3 <- makeAbsolute "./foo/"
T(expectEq) () sfoo (normalise (dot </> "foo/"))
T(expectEq) () sfoo sfoo2
T(expectEq) () sfoo sfoo3
#if defined(mingw32_HOST_OS)
cwd <- getCurrentDirectory
let driveLetter = toUpper (toChar (head (unpack (takeDrive cwd))))
let driveLetter' = if driveLetter == 'Z' then 'A' else succ driveLetter
drp1 <- makeAbsolute (os (driveLetter : ":foobar"))
drp2 <- makeAbsolute (os (driveLetter' : ":foobar"))
T(expectEq) () drp1 =<< makeAbsolute "foobar"
T(expectEq) () drp2 (os (driveLetter' : ":\\foobar"))
#endif
|
