directory-1.2.3.0: tests/CreateDirectory001.hs

{-# LANGUAGE CPP #-}
module CreateDirectory001 where
#include "util.inl"
import System.Directory
import System.IO.Error (isAlreadyExistsError)

main :: TestEnv -> IO ()
main _t = do
  createDirectory testdir
  T(expectIOErrorType) () isAlreadyExistsError (createDirectory testdir)
  where testdir = "dir"