{-# LANGUAGE QuasiQuotes #-}
import Test.Framework (defaultMain, testGroup, Test)
import Test.Framework.Providers.HUnit
import Test.HUnit hiding (Test)
import qualified Text.Hamlet.Parse
import Text.Hamlet
import Text.Hamlet.Monad (hamletToText)
import Data.Text (pack)
import Data.Text.Lazy (unpack)
main :: IO ()
main = defaultMain
[ Text.Hamlet.Parse.testSuite
, testSuite
]
testSuite :: Test
testSuite = testGroup "Text.Hamlet"
[ testCase "empty" caseEmpty
, testCase "static" caseStatic
, testCase "tag" caseTag
, testCase "var" caseVar
, testCase "var monad" caseVarMonad
, testCase "var chain " caseVarChain
, testCase "url" caseUrl
, testCase "url monad" caseUrlMonad
, testCase "url chain " caseUrlChain
, testCase "embed" caseEmbed
, testCase "embed monad" caseEmbedMonad
, testCase "embed chain " caseEmbedChain
, testCase "if" caseIf
, testCase "if monad" caseIfMonad
, testCase "if chain " caseIfChain
, testCase "else" caseElse
, testCase "else monad" caseElseMonad
, testCase "else chain " caseElseChain
, testCase "elseif" caseElseIf
, testCase "elseif monad" caseElseIfMonad
, testCase "elseif chain " caseElseIfChain
, testCase "list" caseList
, testCase "enum" caseEnum
, testCase "list chain" caseListChain
, testCase "enum chain" caseEnumChain
, testCase "script not empty" caseScriptNotEmpty
, testCase "meta empty" caseMetaEmpty
, testCase "input empty" caseInputEmpty
]
data Url = Home
render :: Url -> String
render Home = "url"
data Arg m url = Arg
{ getArg :: Arg m url
, getArgM :: m (Arg m url)
, var :: HtmlContent
, mvar :: m HtmlContent
, url :: Url
, murl :: m Url
, embed :: Hamlet url m ()
, membed :: m (Hamlet url m ())
, true :: Bool
, mtrue :: m Bool
, false :: Bool
, mfalse :: m Bool
, list :: [Arg m url]
, enum :: Enumerator (Arg m url) m
}
arg :: Monad m => Arg m url
arg = Arg
{ getArg = arg
, getArgM = return arg
, var = Unencoded $ pack ""
, mvar = return $ Unencoded $ pack ""
, url = Home
, murl = return Home
, embed = [$hamlet|embed|] ()
, membed = return $ [$hamlet|embed|] ()
, true = True
, mtrue = return True
, false = False
, mfalse = return False
, list = [arg, arg, arg]
, enum = fromList $ list arg
}
helper :: String -> (Arg IO Url -> Hamlet Url IO ()) -> Assertion
helper res h = do
x <- hamletToText render $ h arg
res @=? unpack x
caseEmpty :: Assertion
caseEmpty = helper "" [$hamlet||]
caseStatic :: Assertion
caseStatic = helper "some static content" [$hamlet|some static content|]
caseTag :: Assertion
caseTag = helper "