{-# LANGUAGE TemplateHaskell, QuasiQuotes, TypeFamilies, OverloadedStrings #-} module EmbedProductionTest where -- Tests the production mode of the embedded static subsite by -- using a custom generator testGen. Also tests that the widget -- content is embedded properly. import Data.Maybe (isJust) import EmbedTestGenerator import Network.Wai.Test (SResponse(simpleHeaders)) import Test.HUnit (assertFailure, assertBool) import Test.Hspec (Spec) import Yesod.Core import Yesod.EmbeddedStatic import Yesod.Test import qualified Data.ByteString as B import qualified Data.ByteString.Lazy as BL import qualified Data.Text.Lazy as TL import qualified Data.Text.Lazy.Encoding as TL mkEmbeddedStatic False "eProduction" [testGen] data MyApp = MyApp { getStatic :: EmbeddedStatic } mkYesod "MyApp" [parseRoutes| / HomeR GET /static StaticR EmbeddedStatic getStatic |] getHomeR :: Handler Html getHomeR = defaultLayout $ do toWidget [julius|console.log("Hello World");|] [whamlet|