{-# LANGUAGE CPP #-}
module RenamePath where
#include "util.inl"
import System.Directory.Internal

main :: TestEnv -> IO ()
main _t = do

  createDirectory "a"
  T(expectEq) () ["a"] =<< listDirectory "."
  renamePath "a" "b"
  T(expectEq) () ["b"] =<< listDirectory "."

  writeFile tmp1 contents1
  renamePath (os tmp1) (os tmp2)
  T(expectEq) () contents1 =<< readFile tmp2
  writeFile tmp1 contents2
  renamePath (os tmp2) (os tmp1)
  T(expectEq) () contents1 =<< readFile tmp1

  where
    tmp1 = "tmp1"
    tmp2 = "tmp2"
    contents1 = "test"
    contents2 = "test2"