module Main where import Prelude import Test.QuickCheck.Instances import Test.Tasty import Test.Tasty.Runners import Test.Tasty.HUnit import Test.Tasty.QuickCheck import qualified HTMLTokenizer.Data as A import qualified HTMLTokenizer.Parsing as B import qualified Data.Attoparsec.Text as C import qualified Data.Vector as D main = defaultMain $ testGroup "All tests" $ [ testTokenParsing "Opening tag" (Right (A.OpeningTagToken (A.UnprefixedName "script") (D.fromList []) False)) "