From a010f50664b14824476e4904c89c83dede9a98a7 Mon Sep 17 00:00:00 2001 From: Csaba Hruska Date: Wed, 20 Jan 2016 11:08:44 +0100 Subject: filter WIP tests --- test/runTests.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'test') diff --git a/test/runTests.hs b/test/runTests.hs index d8676be3..f2f977e2 100644 --- a/test/runTests.hs +++ b/test/runTests.hs @@ -80,6 +80,9 @@ main = do filterTestSet ext = map dropExtension . filter (\n -> ext == takeExtensions n) $ testSet testToAccept = filterTestSet ".lc" testToReject = filterTestSet ".reject.lc" + -- work in progress test + testToAcceptWIP = filterTestSet ".wip.lc" + testToRejectWIP = filterTestSet ".wip.reject.lc" ++ filterTestSet ".reject.wip.lc" when (null $ testToAccept ++ testToReject) $ do liftIO $ putStrLn $ "test files not found: " ++ show samplesToAccept exitFailure -- cgit v1.2.3