directory-1.2.3.0: tests/CanonicalizePath.hs

{-# LANGUAGE CPP #-}
module CanonicalizePath where
#include "util.inl"
import System.Directory
import System.FilePath ((</>), normalise)

main :: TestEnv -> IO ()
main _t = do
  dot <- canonicalizePath "."
  nul <- canonicalizePath ""
  T(expectEq) () dot nul

  writeFile "bar" ""
  bar <- canonicalizePath "bar"
  T(expectEq) () bar (normalise (dot </> "bar"))

  createDirectory "foo"
  foo <- canonicalizePath "foo/"
  T(expectEq) () foo (normalise (dot </> "foo/"))

  -- should not fail for non-existent paths
  fooNon <- canonicalizePath "foo/non-existent"
  T(expectEq) () fooNon (normalise (foo </> "non-existent"))