Permalink
Browse files

Improve test coverage.

  • Loading branch information...
mightybyte committed Nov 7, 2011
1 parent af50097 commit 7b1a5fe43644952b8f28d52cc872a4ad05f9ffb4
Showing with 1 addition and 1 deletion.
  1. +1 −1 test/suite/Text/XmlHtml/Tests.hs
@@ -947,7 +947,7 @@ blazeTestMulti = renderHtml (selectCustom `mappend` html) == result
]
blazeTestEmpty :: Bool
-blazeTestEmpty = renderHtml mempty == HtmlDocument UTF8 Nothing []
+blazeTestEmpty = renderHtmlNodes mempty == []
selectCustom :: Html
selectCustom = H.select ! H.customAttribute "dojoType" "select" $ (mappend "foo " "bar")

0 comments on commit 7b1a5fe

Please sign in to comment.