{-# LANGUAGE DeriveAnyClass, DeriveGeneric, TypeFamilies, QuasiQuotes , DataKinds, ScopedTypeVariables, OverloadedStrings, TypeSynonymInstances , FlexibleInstances, UndecidableInstances, FlexibleContexts, TemplateHaskell , DeriveDataTypeable #-} module Main where import Language.ANTLR4 import System.IO.Unsafe (unsafePerformIO) import Data.Monoid import Test.Framework import Test.Framework.Providers.HUnit import Test.Framework.Providers.QuickCheck2 import Test.HUnit import Test.QuickCheck (Property, quickCheck, (==>)) import qualified Test.QuickCheck.Monadic as TQM import Language.Haskell.TH.Syntax (lift) import qualified Text.ANTLR.LR as LR import Star0 import Star1 import DupTerms main :: IO () main = defaultMainWithOpts [ testCase "test_star0" test_star0 , testCase "test_star1" test_star1 , testCase "duplicate_terminals" test_dup_terms ] mempty