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

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

diff --git a/ghc/tests/lib/Directory/getDirectoryContents001.hs b/ghc/tests/lib/Directory/getDirectoryContents001.hs
deleted file mode 100644 (file)
index 7c48a93..0000000
--- a/ghc/tests/lib/Directory/getDirectoryContents001.hs
+++ /dev/null
@@ -1,9 +0,0 @@
-import Directory (getDirectoryContents)
-import List (sort, isPrefixOf, isSuffixOf)
-
-main = do
-    names <- getDirectoryContents "."
-    putStrLn (unlines (sort (filter ok names)))
-
-ok name = "getDirectoryContents" `isPrefixOf` name 
-         && not ("bak" `isSuffixOf` name)