From 22c194807b7644fb75a45a115ac4deea901b22f3 Mon Sep 17 00:00:00 2001
From: "david.waern" <david.waern@gmail.com>
Date: Thu, 25 Feb 2010 23:30:59 +0000
Subject: Make it possible to run a single test

---
 tests/runtests.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'tests')

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 ""
-- 
cgit v1.2.3