add createDirectory (already exists) test

diff --git a/tests/all.T b/tests/all.T
index 8fd3847..217eeb3 100644 (file)
--- 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 (file)
index 0000000..9c718da
--- /dev/null
+++ b/tests/createDirectory001.hs
@@ -0,0 +1,12 @@
+import System.Directory\r
+import Control.Exception\r
+\r
+testdir = "createDirectory001.dir"\r
+\r
+main = do\r
+  try (removeDirectory testdir) :: IO (Either IOException ())\r
+  createDirectory testdir\r
+  r <- try $ createDirectory testdir\r
+  print (r :: Either IOException ()) -- already exists\r
+  removeDirectory testdir\r
+\r

diff --git a/tests/createDirectory001.stdout b/tests/createDirectory001.stdout
new file mode 100644 (file)
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.)