Strip newlines when comparing in test

src/MdToHtmlTest.hs

@@ -4,7 +4,7 @@ import MdToHTML
 import Test.HUnit
 
 check_equal :: String -> String -> String -> Test
-check_equal desc expected actual = TestCase (assertEqual desc expected actual)
+check_equal desc expected actual = TestCase (assertEqual desc expected (filter (/= '\n') actual))
 
 convert :: String -> String
 convert md = show $ leftmostLongestParse parseDocument md
@@ -138,7 +138,7 @@ integrationTests =
             "# Sample Markdown\n\nThis is some basic, sample markdown.\n\n## Second \
             \Heading\n\n- Unordered lists, and:\n    1. One\n    2. Two\n    3. Three\n\
             \- More\n\n> Blockquote\n\nAnd **bold**, *italics*, and even *italics and \
-            \later **bold***. Even ~~strikethrough~~. [A link](https://markdowntohtml.com) to somewhere."
+            \later __bold__*. Even ~~strikethrough~~. [A link](https://markdowntohtml.com) to somewhere."
         )
     ]