From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 18 Aug 2008 15:50:59 +0000 (+0000)
Subject: test for renameFile
X-Git-Tag: 6_10_branch_has_been_forked~7
X-Git-Url: http://git.megacz.com/?p=haskell-directory.git;a=commitdiff_plain;h=412be50e0c8c0afae0ff5348aeb462a36b29c66e

test for renameFile
---

diff --git a/tests/all.T b/tests/all.T
index 633a8d8..8fd3847 100644
--- a/tests/all.T
+++ b/tests/all.T
@@ -10,3 +10,7 @@ test('getPermissions001', omit_ways(['ghci']), compile_and_run, ['-cpp'])
 
 test('copyFile001',  normal, compile_and_run, [''])
 test('copyFile002',  normal, compile_and_run, [''])
+
+test('renameFile001', extra_clean(['renameFile001.tmp1','renameFile001.tmp2']),
+      compile_and_run, [''])
+
diff --git a/tests/renameFile001.hs b/tests/renameFile001.hs
new file mode 100644
index 0000000..2bbdb8c
--- /dev/null
+++ b/tests/renameFile001.hs
@@ -0,0 +1,13 @@
+import System.Directory
+
+tmp1 = "renameFile001.tmp1"
+tmp2 = "renameFile001.tmp2"
+
+main = do
+  writeFile tmp1 "test"
+  renameFile tmp1 tmp2
+  readFile tmp2 >>= print
+  writeFile tmp1 "test2"
+  renameFile tmp2 tmp1  
+  readFile tmp1 >>= print
+  
diff --git a/tests/renameFile001.stdout b/tests/renameFile001.stdout
new file mode 100644
index 0000000..6449f83
--- /dev/null
+++ b/tests/renameFile001.stdout
@@ -0,0 +1,2 @@
+"test"
+"test"