Rockingcool/md-to-html
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Strip newlines when comparing in test

Browse Source
This commit is contained in:
Aadhavan Srinivasan
2025-06-03 15:37:27 -04:00
parent bb08b40512
commit b8ba27f240
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/MdToHtmlTest.hs
View File

@@ -4,7 +4,7 @@ import MdToHTML
import Test.HUnit import Test.HUnit
check_equal :: String -> String -> String -> Test 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 :: String -> String
convert md = show $ leftmostLongestParse parseDocument md convert md = show $ leftmostLongestParse parseDocument md