directory-1.3.8.0: tests/MakeAbsolute.hs

{-# 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