From 412be50e0c8c0afae0ff5348aeb462a36b29c66e Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 18 Aug 2008 15:50:59 +0000 Subject: [PATCH] test for renameFile --- tests/all.T | 4 ++++ tests/renameFile001.hs | 13 +++++++++++++ tests/renameFile001.stdout | 2 ++ 3 files changed, 19 insertions(+) create mode 100644 tests/renameFile001.hs create mode 100644 tests/renameFile001.stdout 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" -- 1.7.10.4