test('renameFile001', extra_clean(['renameFile001.tmp1','renameFile001.tmp2']),
compile_and_run, [''])
+test('createDirectory001', normal, compile_and_run, [''])
--- /dev/null
+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