ProductiveTests.hs

{-# LANGUAGE QuasiQuotes #-}
module Data.Cfg.ProductiveTests (
    tests
    ) where

import Data.Cfg.Bnf(Grammar(..), bnf)
import Data.Cfg.Cfg(Cfg(..), V(..))
import Data.Cfg.FreeCfg(FreeCfg(..), toFreeCfg)
import Data.Cfg.Productive
import Data.Cfg.TestGrammars(assertEqCfg, wiki)
import qualified Data.Set as S
import Test.Framework(Test, testGroup)
import Test.Framework.Providers.HUnit(testCase)
import Test.HUnit(assertEqual)
import Text.PrettyPrint

tests :: Test
tests = testGroup "Data.Cfg.Productive" [
    wikiTest
    ]

wikiTest :: Test
wikiTest = testCase "wiki productivity test" $ do
    assertEqual "productives" (S.fromList $ grammarProductions prods')
			      (productives wiki)
    assertEqual "unproductives" (S.fromList $ grammarProductions unprods')
				(unproductives wiki)
    assertEqCfg ctxt ctxt "productivity" expected $ removeUnproductives wiki

    where
    ctxt :: V String String -> Doc
    ctxt v = text $ case v of
			NT nt -> nt
			T t -> t

    expected :: FreeCfg String String
    expected = (toFreeCfg prods') {
	terminals' = terminals wiki
	}

    prods' :: Grammar String String
    prods' = [bnf|
	s ::= b B | c C.
	b ::= b B | B.
	c ::= c C | C.
	d ::= b D | c D | D.
        |]

    unprods' :: Grammar String String
    unprods' = [bnf|
        s ::= e E.
        e ::= e E.
        |]