From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 26 Aug 2008 09:17:19 +0000 (+0000)
Subject: add createDirectory (already exists) test
X-Git-Tag: 6_10_branch_has_been_forked~2
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9cb3b43b84d858efaa5a21a2f737880d94d586ac;p=haskell-directory.git

add createDirectory (already exists) test
---

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.)