Move tests from testsuite/tests/ghc-regress/lib/Directory

[haskell-directory.git] / tests / directory001.hs

diff --git a/tests/directory001.hs b/tests/directory001.hs
new file mode 100644 (file)
index 0000000..c04a015
--- /dev/null
+++ b/tests/directory001.hs
@@ -0,0 +1,17 @@
+import IO
+
+import Directory
+
+main = do
+    createDirectory "foo"
+    h <- openFile "foo/bar" WriteMode
+    hPutStr h "Okay\n"
+    hClose h
+    renameFile "foo/bar" "foo/baz"
+    renameDirectory "foo" "bar"
+    h <- openFile "bar/baz" ReadMode
+    stuff <- hGetContents h
+    putStr stuff
+--    hClose h  -- an error !
+    removeFile "bar/baz"
+    removeDirectory "bar"