From bda341ad6638fb718fdf3d8749e5ef50351a9712 Mon Sep 17 00:00:00 2001 From: Ulya Trofimovich Date: Wed, 25 Apr 2018 22:49:15 +0100 Subject: [PATCH] Improved error reporting in fuzz-testing script. --- re2c/fuzz/regex_tdfa/check.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/re2c/fuzz/regex_tdfa/check.hs b/re2c/fuzz/regex_tdfa/check.hs index cde049e6..ce3a06cd 100644 --- a/re2c/fuzz/regex_tdfa/check.hs +++ b/re2c/fuzz/regex_tdfa/check.hs @@ -160,6 +160,8 @@ prop_test_re2c r1 = QM.monadicIO $ do ++ " --posix-captures -Werror-undefined-control-flow -ST a.re -o a.c 2>>re2c_last_warning" ++ " || exit 42 && gcc a.c -o a && ./a" QM.assert $ ok0 `elem` [SE.ExitSuccess, SE.ExitFailure 42] + when (ok0 == SE.ExitFailure 42) $ do + QM.run $ print re_posix when (ok0 == SE.ExitSuccess) $ do ss <- QM.run $ parse_input ncaps mapM_ (\(s, ns, xs, ar) -> do -- 2.40.0