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

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

diff --git a/tests/currentDirectory001.hs b/tests/currentDirectory001.hs
new file mode 100644 (file)
index 0000000..bcf9b96
--- /dev/null
+++ b/tests/currentDirectory001.hs
@@ -0,0 +1,20 @@
+import Directory (getCurrentDirectory, setCurrentDirectory, 
+                     createDirectory, removeDirectory, getDirectoryContents)
+
+main = do
+    oldpwd <- getCurrentDirectory
+    createDirectory "foo"
+    setCurrentDirectory "foo"
+    ~[n1, n2] <- getDirectoryContents "."
+    if dot n1 && dot n2 
+     then do
+        setCurrentDirectory oldpwd
+        removeDirectory "foo"
+        putStr "Okay\n"
+      else
+        ioError (userError "Oops")
+
+dot :: String -> Bool
+dot "." = True
+dot ".." = True
+dot _ = False