{-# 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
, testCase "multiple classes" caseMultiClass
, testCase "attrib order" caseAttribOrder
, testCase "nothing" caseNothing
, testCase "nothing monad" caseNothingMonad
, testCase "nothing chain " caseNothingChain
, testCase "just" caseJust
, testCase "just monad" caseJustMonad
, testCase "just chain " caseJustChain
, testCase "constructor" caseConstructor
, testCase "url + params" caseUrlParams
, testCase "url + params monad" caseUrlParamsMonad
, testCase "escape" caseEscape
, testCase "empty statement list" caseEmptyStatementList
, testCase "attribute conditionals" caseAttribCond
]
data Url = Home | Sub SubUrl
data SubUrl = SubUrl
render :: Url -> String
render Home = "url"
render (Sub SubUrl) = "suburl"
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
, nothing :: Maybe HtmlContent
, mnothing :: m (Maybe HtmlContent)
, just :: Maybe HtmlContent
, mjust :: m (Maybe HtmlContent)
, urlParams :: (Url, [(String, String)])
, murlParams :: m (Url, [(String, String)])
}
theArg :: Arg IO url
theArg = Arg
{ getArg = theArg
, getArgM = return theArg
, 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 = [theArg, theArg, theArg]
, enum = fromList $ list theArg
, nothing = Nothing
, mnothing = return Nothing
, just = Just $ Unencoded $ pack "just"
, mjust = return $ Just $ Unencoded $ pack "just"
, urlParams = (Home, [("foo", "bar"), ("foo1", "bar1")])
, murlParams = return $ urlParams theArg
}
helper :: String -> Hamlet Url IO () -> Assertion
helper res h = do
x <- hamletToText render h
res @=? unpack x
caseEmpty :: Assertion
caseEmpty = helper "" [$hamlet||]
caseStatic :: Assertion
caseStatic = helper "some static content" [$hamlet|some static content|]
caseTag :: Assertion
caseTag = helper "