test for renameFile

[haskell-directory.git] / tests / renameFile001.hs

diff --git a/tests/renameFile001.hs b/tests/renameFile001.hs
new file mode 100644 (file)
index 0000000..2bbdb8c
--- /dev/null
+++ b/tests/renameFile001.hs
@@ -0,0 +1,13 @@
+import System.Directory\r
+\r
+tmp1 = "renameFile001.tmp1"\r
+tmp2 = "renameFile001.tmp2"\r
+\r
+main = do\r
+  writeFile tmp1 "test"\r
+  renameFile tmp1 tmp2\r
+  readFile tmp2 >>= print\r
+  writeFile tmp1 "test2"\r
+  renameFile tmp2 tmp1  \r
+  readFile tmp1 >>= print\r
+  \r