directory-1.3.11.0: tests/RenameFile001.hs

module RenameFile001 where
import Prelude ()
import System.Directory.Internal.Prelude
import System.Directory.Internal
import System.Directory.OsPath
import TestUtils ()
import Util (TestEnv)
import qualified Util as T

main :: TestEnv -> IO ()
main _t = do
  writeFile tmp1 contents1
  renameFile (os tmp1) (os tmp2)
  T.expectEq _t () contents1 =<< readFile tmp2
  writeFile tmp1 contents2
  renameFile (os tmp2) (os tmp1)
  T.expectEq _t () contents1 =<< readFile tmp1
  where
    tmp1 = "tmp1"
    tmp2 = "tmp2"
    contents1 = "test"
    contents2 = "test2"