directory-1.3.0.0: tests/T8482.hs

{-# LANGUAGE CPP #-}
module T8482 where
#include "util.inl"

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