directory-1.2.3.0: tests/T8482.hs

{-# LANGUAGE CPP #-}
module T8482 where
#include "util.inl"
import GHC.IO.Exception (IOErrorType(InappropriateType))
import System.Directory
import System.IO.Error (ioeGetErrorType)

tmp1 :: FilePath
tmp1 = "T8482.tmp1"

testdir :: FilePath
testdir = "T8482.dir"

main :: TestEnv -> IO ()
main _t = do
  writeFile tmp1 "hello"
  createDirectory testdir
  T(expectIOErrorType) () (is InappropriateType) (renameFile testdir tmp1)
  T(expectIOErrorType) () (is InappropriateType) (renameFile tmp1    testdir)
  T(expectIOErrorType) () (is InappropriateType) (renameFile tmp1    ".")
  where is t = (== t) . ioeGetErrorType