tests/renameFile001.hs

   1 import System.Directory\r
   2 \r
   3 tmp1 = "renameFile001.tmp1"\r
   4 tmp2 = "renameFile001.tmp2"\r
   5 \r
   6 main = do\r
   7   writeFile tmp1 "test"\r
   8   renameFile tmp1 tmp2\r
   9   readFile tmp2 >>= print\r
  10   writeFile tmp1 "test2"\r
  11   renameFile tmp2 tmp1  \r
  12   readFile tmp1 >>= print\r
  13   \r