diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-09-05 20:04:47 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-09-05 20:04:47 +0100 |
| commit | 22db8bbbd85028f19eaef5fec70c12f7706771b1 (patch) | |
| tree | f598c41c32979a633aa5b2864da12b01960b32a4 | |
| parent | a594f6f4a886c79c28c40be44caac713fc41a2e5 (diff) | |
| download | micro-lang-hs-22db8bbbd85028f19eaef5fec70c12f7706771b1.tar.gz micro-lang-hs-22db8bbbd85028f19eaef5fec70c12f7706771b1.zip | |
Much simpler
| -rw-r--r-- | test/Main.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/test/Main.hs b/test/Main.hs index a5d03a3..9198143 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -2,7 +2,5 @@ import Language (language) import System.Exit import Test.HUnit -main :: IO Counts -main = do - counts <- runTestTT $ test language - if errors counts + failures counts == 0 then exitSuccess else exitFailure +main :: IO () +main = runTestTTAndExit $ test language |