diff options
Diffstat (limited to 'testsuite/tests/parser/should_run/CountParserDeps.hs')
| -rw-r--r-- | testsuite/tests/parser/should_run/CountParserDeps.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/testsuite/tests/parser/should_run/CountParserDeps.hs b/testsuite/tests/parser/should_run/CountParserDeps.hs index 5d3396f835..ae344aaf49 100644 --- a/testsuite/tests/parser/should_run/CountParserDeps.hs +++ b/testsuite/tests/parser/should_run/CountParserDeps.hs @@ -28,9 +28,12 @@ main = do [libdir] <- getArgs modules <- parserDeps libdir let num = sizeUniqSet modules --- print num --- print (map moduleNameString $ nonDetEltsUniqSet modules) - unless (num <= 201) $ exitWith (ExitFailure num) + max_num = 201 + min_num = max_num - 10 -- so that we don't forget to change the number + -- when the number of dependencies decreases + -- putStrLn $ "Found " ++ show num ++ " parser module dependencies" + -- forM_ (map moduleNameString $ nonDetEltsUniqSet modules) putStrLn + unless (num <= max_num && num >= min_num) $ exitWith (ExitFailure num) parserDeps :: FilePath -> IO (UniqSet ModuleName) parserDeps libdir = |