diff options
| -rw-r--r-- | test/runTests.hs | 3 |
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 | |||
| 80 | filterTestSet ext = map dropExtension . filter (\n -> ext == takeExtensions n) $ testSet | 80 | filterTestSet ext = map dropExtension . filter (\n -> ext == takeExtensions n) $ testSet |
| 81 | testToAccept = filterTestSet ".lc" | 81 | testToAccept = filterTestSet ".lc" |
| 82 | testToReject = filterTestSet ".reject.lc" | 82 | testToReject = filterTestSet ".reject.lc" |
| 83 | -- work in progress test | ||
| 84 | testToAcceptWIP = filterTestSet ".wip.lc" | ||
| 85 | testToRejectWIP = filterTestSet ".wip.reject.lc" ++ filterTestSet ".reject.wip.lc" | ||
| 83 | when (null $ testToAccept ++ testToReject) $ do | 86 | when (null $ testToAccept ++ testToReject) $ do |
| 84 | liftIO $ putStrLn $ "test files not found: " ++ show samplesToAccept | 87 | liftIO $ putStrLn $ "test files not found: " ++ show samplesToAccept |
| 85 | exitFailure | 88 | exitFailure |