{-# LANGUAGE TypeApplications #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE TypeOperators #-} {-# LANGUAGE DataKinds #-} module Main where import Html import Data.Proxy import Test.Hspec import Test.QuickCheck import Custom main :: IO () main = hspec spec spec :: Spec spec = parallel $ do describe "render" $ do it "is id on strings without escaping" $ do property $ \x -> renderString (Raw x) === x it "handles single elements" $ do property $ \x -> renderString (Div :> Raw x) === "