filter WIP tests

1 files changed, 3 insertions, 0 deletions

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