Skip to content
Browse files

Fix tests re: newline

  • Loading branch information...
1 parent 025b94a commit f57da7a692f51820d82264be8784cfbfd68fd22c @gregorycollins gregorycollins committed
Showing with 4 additions and 4 deletions.
  1. +4 −4 test/suite/Text/XmlHtml/Tests.hs
View
8 test/suite/Text/XmlHtml/Tests.hs
@@ -562,14 +562,14 @@ singleQuoteInSysID =
toByteString (render (XmlDocument UTF8
(Just (DocType "html" (System "test\'ing") NoInternalSubset))
[]))
- == utf8Decl `B.append` "<!DOCTYPE html SYSTEM \"test\'ing\">"
+ == utf8Decl `B.append` "<!DOCTYPE html SYSTEM \"test\'ing\">\n"
doubleQuoteInSysID :: Bool
doubleQuoteInSysID =
toByteString (render (XmlDocument UTF8
(Just (DocType "html" (System "test\"ing") NoInternalSubset))
[]))
- == utf8Decl `B.append` "<!DOCTYPE html SYSTEM \'test\"ing\'>"
+ == utf8Decl `B.append` "<!DOCTYPE html SYSTEM \'test\"ing\'>\n"
bothQuotesInSysID :: Bool
bothQuotesInSysID = isBottom $
@@ -653,14 +653,14 @@ hSingleQuoteInSysID =
toByteString (render (HtmlDocument UTF8
(Just (DocType "html" (System "test\'ing") NoInternalSubset))
[]))
- == "<!DOCTYPE html SYSTEM \"test\'ing\">"
+ == "<!DOCTYPE html SYSTEM \"test\'ing\">\n"
hDoubleQuoteInSysID :: Bool
hDoubleQuoteInSysID =
toByteString (render (HtmlDocument UTF8
(Just (DocType "html" (System "test\"ing") NoInternalSubset))
[]))
- == "<!DOCTYPE html SYSTEM \'test\"ing\'>"
+ == "<!DOCTYPE html SYSTEM \'test\"ing\'>\n"
hBothQuotesInSysID :: Bool
hBothQuotesInSysID = isBottom $

0 comments on commit f57da7a

Please sign in to comment.
Something went wrong with that request. Please try again.