directory-1.3.0.0: tests/WithCurrentDirectory.hs

{-# LANGUAGE CPP #-}
module WithCurrentDirectory where
#include "util.inl"
import System.FilePath ((</>))
import qualified Data.List as List

main :: TestEnv -> IO ()
main _t = do
  createDirectory dir
  -- Make sure we're starting empty
  T(expectEq) () [] . List.sort =<< listDirectory dir
  cwd <- getCurrentDirectory
  withCurrentDirectory dir (writeFile testfile contents)
  -- Are we still in original directory?
  T(expectEq) () cwd =<< getCurrentDirectory
  -- Did the test file get created?
  T(expectEq) () [testfile] . List.sort =<< listDirectory dir
  -- Does the file contain what we expected to write?
  T(expectEq) () contents =<< readFile (dir </> testfile)
  where
    testfile = "testfile"
    contents = "some data\n"
    dir = "dir"