diff options
Diffstat (limited to 'src/Test.lhs')
| -rw-r--r-- | src/Test.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Test.lhs b/src/Test.lhs index 852c700..68f1831 100644 --- a/src/Test.lhs +++ b/src/Test.lhs @@ -4,6 +4,7 @@ Running tests .. class:: nodoc > import Test.HUnit +> import System.Exit (exitFailure, exitSuccess) > import Codec.Pesto.Parse (test) > import Codec.Pesto.Lint (test) > import Codec.Pesto.Graph (test) @@ -11,7 +12,7 @@ Running tests The testcases can be run with ``cabal run pesto-test``. This runs *all* testcases from all modules and prints a summary. -> main = runTestTT tests +> main = runTestTT tests >>= \c -> if errors c + failures c > 0 then exitFailure else exitSuccess > tests = TestList [ > "parse" ~: Codec.Pesto.Parse.test |