willow-0.1.0.0: test/Test/Willow/Html5Lib.hs

{-|
Description:    

Copyright:      (c) 2020 Samuel May
License:        MPL-2.0
Maintainer:     ag.eitilt@gmail.com

Stability:      experimental
Portability:    portable
-}
module Main where


import qualified Control.Monad as M
import qualified System.Exit as E
import qualified Test.HUnit as U

import qualified Test.Willow.Html5Lib.Encoding.Sniffer as Sniffer


main :: IO ()
main = do
    sniffer <- Sniffer.tests
    results <- U.runTestTT $ U.TestList
        [ sniffer
        ]
    
    M.unless (U.errors results == 0 && U.failures results == 0) E.exitFailure