gemoire-1.0.0: test/Main.hs

module Main (main) where

import Control.Monad (when)
import System.Exit (exitFailure)
import Test.HUnit (Test (..), failures, runTestTT)

import Case.Converter (converter)
import Case.Gemlog (gemlog)
import Case.Template (templates)

-- | Query the test cases.
main :: IO ()
main = do
    count <-
        runTestTT . TestList $
            templates
                <> gemlog
                <> converter
    when (failures count > 0) exitFailure