From 9cb3b43b84d858efaa5a21a2f737880d94d586ac Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 26 Aug 2008 09:17:19 +0000 Subject: [PATCH] add createDirectory (already exists) test --- tests/all.T | 1 + tests/createDirectory001.hs | 12 ++++++++++++ tests/createDirectory001.stdout | 1 + 3 files changed, 14 insertions(+) create mode 100644 tests/createDirectory001.hs create mode 100644 tests/createDirectory001.stdout diff --git a/tests/all.T b/tests/all.T index 8fd3847..217eeb3 100644 --- a/tests/all.T +++ b/tests/all.T @@ -14,3 +14,4 @@ test('copyFile002', normal, compile_and_run, ['']) test('renameFile001', extra_clean(['renameFile001.tmp1','renameFile001.tmp2']), compile_and_run, ['']) +test('createDirectory001', normal, compile_and_run, ['']) diff --git a/tests/createDirectory001.hs b/tests/createDirectory001.hs new file mode 100644 index 0000000..9c718da --- /dev/null +++ b/tests/createDirectory001.hs @@ -0,0 +1,12 @@ +import System.Directory +import Control.Exception + +testdir = "createDirectory001.dir" + +main = do + try (removeDirectory testdir) :: IO (Either IOException ()) + createDirectory testdir + r <- try $ createDirectory testdir + print (r :: Either IOException ()) -- already exists + removeDirectory testdir + diff --git a/tests/createDirectory001.stdout b/tests/createDirectory001.stdout new file mode 100644 index 0000000..d3a37b8 --- /dev/null +++ b/tests/createDirectory001.stdout @@ -0,0 +1 @@ +Left CreateDirectory: already exists (Cannot create a file when that file already exists.) -- 1.7.10.4