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

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

diff --git a/tests/getDirContents001.hs b/tests/getDirContents001.hs
new file mode 100644 (file)
index 0000000..1c0e3f8
--- /dev/null
+++ b/tests/getDirContents001.hs
@@ -0,0 +1,13 @@
+import Directory (getDirectoryContents)
+import List (sort, isPrefixOf, isSuffixOf)
+
+main = do
+    names <- getDirectoryContents "."
+    putStrLn (unlines (sort (filter ok names)))
+
+ok name = "getDirContents" `isPrefixOf` name 
+         && not ("bak" `isSuffixOf` name)
+         && not ("prof" `isSuffixOf` name)
+         && not ("hp" `isSuffixOf` name)
+          && not ("ps" `isSuffixOf` name)
+          && not ("aux" `isSuffixOf` name)