aboutsummaryrefslogtreecommitdiff
path: root/tests/runtests.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/runtests.hs')
-rw-r--r--tests/runtests.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/runtests.hs b/tests/runtests.hs
index 2f2e96c6..2303e3d0 100644
--- a/tests/runtests.hs
+++ b/tests/runtests.hs
@@ -61,7 +61,12 @@ check modules strict = do
test = do
contents <- getDirectoryContents "tests"
args <- getArgs
- let mods = filter ((==) ".hs" . takeExtension) contents
+
+ let mods =
+ case args of
+ x:_ | x /= "all" -> [x ++ ".hs"]
+ _ -> filter ((==) ".hs" . takeExtension) contents
+
let outdir = "output"
let mods' = map ("tests" </>) mods
putStrLn ""