[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / lib / Directory / currentDirectory001.hs

diff --git a/ghc/tests/lib/Directory/currentDirectory001.hs b/ghc/tests/lib/Directory/currentDirectory001.hs
deleted file mode 100644 (file)
index bcf9b96..0000000
--- a/ghc/tests/lib/Directory/currentDirectory001.hs
+++ /dev/null
@@ -1,20 +0,0 @@
-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