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