diff --git a/yesod-core/test/YesodCoreTest/Widget.hs b/yesod-core/test/YesodCoreTest/Widget.hs index 5d6fce9e..f3c0717e 100644 --- a/yesod-core/test/YesodCoreTest/Widget.hs +++ b/yesod-core/test/YesodCoreTest/Widget.hs @@ -46,19 +46,6 @@ instance RenderMessage Y Msg where renderMessage a (_:xs) y = renderMessage a xs y renderMessage a [] y = renderMessage a ["en"] y -getTowidgetR :: Handler Html -getTowidgetR = defaultLayout $ do - toWidget [julius|foo|] :: Widget - toWidgetHead [julius|foo|] - toWidgetBody [julius|foo|] - - toWidget [lucius|foo{bar:baz}|] - toWidgetHead [lucius|foo{bar:baz}|] - - toWidget [hamlet||] - toWidgetHead [hamlet||] - toWidgetBody [hamlet||] - getWhamletR :: Handler Html getWhamletR = defaultLayout [whamlet| $newline never @@ -85,13 +72,31 @@ $newline never getJSHeadR :: Handler Html getJSHeadR = defaultLayout $ toWidgetHead [julius|alert("hello");|] +getTowidgetR :: Handler Html +getTowidgetR = defaultLayout $ do + toWidget [julius|toWidget|] :: Widget + toWidgetHead [julius|toHead|] + toWidgetBody [julius|toBody|] + + toWidget [lucius|toWidget{bar:baz}|] + toWidgetHead [lucius|toHead{bar:baz}|] + + toWidget [hamlet|

toWidget|] + toWidgetHead [hamlet||] + toWidgetBody [hamlet|

toBody|] + widgetTest :: Spec widgetTest = describe "Test.Widget" $ do - it "addJuliusBody" case_addJuliusBody - it "whamlet" case_whamlet - it "two letter lang codes" case_two_letter_lang - it "automatically applies toWidget" case_auto - it "toWidgetHead puts JS in head" case_jshead + it "addJuliusBody" case_addJuliusBody + it "whamlet" case_whamlet + it "two letter lang codes" case_two_letter_lang + it "automatically applies toWidget" case_auto + it "toWidgetHead puts JS in head" case_jshead + it "toWidget" $ runner $ do + res <- request defaultRequest + { pathInfo = ["towidget"] + } + assertBody "\n\n

toWidget

\n

toBody

\n" res runner :: Session () -> IO () runner f = toWaiApp Y >>= runSession f