Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Update preEscaped tests

  • Loading branch information...
commit a0dad87e50b47deb6e67e0d8af394a53be37e3c2 1 parent baf6740
@jaspervdj authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 tests/Text/Blaze/Html/Tests.hs
View
6 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>" $
Please sign in to comment.
Something went wrong with that request. Please try again.