directory-1.3.0.0: tests/CurrentDirectory001.hs

{-# LANGUAGE CPP #-}
module CurrentDirectory001 where
#include "util.inl"
import qualified Data.List as List

main :: TestEnv -> IO ()
main _t = do
  prevDir <- getCurrentDirectory
  createDirectory "dir"
  setCurrentDirectory "dir"
  T(expectEq) () [".", ".."] . List.sort =<< getDirectoryContents "."
  setCurrentDirectory prevDir
  removeDirectory "dir"