diff options
| author | david.waern <david.waern@gmail.com> | 2010-02-25 23:30:59 +0000 |
|---|---|---|
| committer | david.waern <david.waern@gmail.com> | 2010-02-25 23:30:59 +0000 |
| commit | 22c194807b7644fb75a45a115ac4deea901b22f3 (patch) | |
| tree | 4204df1af6c4ac34f0249868865aadd4e88bc8d8 /tests/runtests.hs | |
| parent | 6a3417e8b39e2c32d8a7bb459251fa911e0a9ef2 (diff) | |
Make it possible to run a single test
Diffstat (limited to 'tests/runtests.hs')
| -rw-r--r-- | tests/runtests.hs | 7 |
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 "" |