From a9c6c592595d1b893e10c5d682146c003f8ec1c1 Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Sun, 14 Aug 2022 23:41:18 +0100 Subject: Introduced tests --- test/Main.hs | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 test/Main.hs (limited to 'test/Main.hs') diff --git a/test/Main.hs b/test/Main.hs new file mode 100644 index 0000000..a5d03a3 --- /dev/null +++ b/test/Main.hs @@ -0,0 +1,8 @@ +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 -- cgit v1.2.3