Permalink
Browse files

Update preEscaped tests

  • Loading branch information...
1 parent baf6740 commit a0dad87e50b47deb6e67e0d8af394a53be37e3c2 @jaspervdj committed Apr 21, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 tests/Text/Blaze/Html/Tests.hs
@@ -58,12 +58,12 @@ tests = concatMap (uncurry makeTests) $ zip names
, HtmlTest "<img src=\"&amp;\">" $ img ! src "&"
-- Pre-escaping cases
- , HtmlTest "<3 Haskell" $ preEscapedText "<3 Haskell"
+ , HtmlTest "<3 Haskell" $ preEscapedToMarkup ("<3 Haskell" :: String)
- , HtmlTest "<script />" $ preEscapedString "<script />"
+ , HtmlTest "<script />" $ preEscapedToMarkup ("<script />" :: Text)
, HtmlTest "<p class=\"'&!;\">bad</p>" $
- p ! class_ (preEscapedTextValue "'&!;") $ "bad"
+ p ! class_ (preEscapedToValue ("'&!;" :: String)) $ "bad"
-- Unicode cases
, HtmlTest "<span id=\"&amp;\">\206\187</span>" $

0 comments on commit a0dad87

Please sign in to comment.