You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
178 lines
11 KiB
Haskell
178 lines
11 KiB
Haskell
module MdToHtmlTest where
|
|
|
|
import MdToHTML
|
|
import Test.HUnit
|
|
|
|
check_equal :: String -> String -> String -> Test
|
|
check_equal desc expected actual = TestCase (assertEqual desc expected actual)
|
|
|
|
convert :: String -> String
|
|
convert md = show $ leftmostLongestParse parseDocument md
|
|
|
|
headerTests =
|
|
TestList
|
|
[ check_equal "Should convert H1 heading" "<h1>Hello</h1>" (convert "# Hello"),
|
|
check_equal "Should convert H2 heading" "<h2>Hello</h2>" (convert "## Hello"),
|
|
check_equal "Should convert H3 heading" "<h3>Hello</h3>" (convert "### Hello"),
|
|
check_equal "Should convert H4 heading" "<h4>Hello</h4>" (convert "#### Hello"),
|
|
check_equal "Should convert H5 heading" "<h5>Hello</h5>" (convert "##### Hello"),
|
|
check_equal "Should convert H6 heading" "<h6>Hello</h6>" (convert "###### Hello")
|
|
]
|
|
|
|
boldTests =
|
|
TestList
|
|
[ check_equal "Should convert bold" "<p><b>Hello</b></p>" (convert "__Hello__"),
|
|
check_equal "Should convert italic" "<p><i>Hello</i></p>" (convert "_Hello_"),
|
|
check_equal "Should convert bold and italic in a sentence" "<p>It <i>is</i> a <b>wonderful</b> day</p>" (convert "It _is_ a __wonderful__ day"),
|
|
check_equal "Should convert nested bold and italic" "<p><b>Bold then <i>Italic</i></b></p>" (convert "**Bold then _Italic_**"),
|
|
check_equal "Should convert nested bold and italic" "<p><i>Italic then <b>Bold</b></i></p>" (convert "*Italic then __Bold__*")
|
|
]
|
|
|
|
strikethroughTests =
|
|
TestList
|
|
[ check_equal "Should convert strikethrough" "<p><s>Hello</s></p>" (convert "~~Hello~~"),
|
|
check_equal "Should convert long sentence with tilde" "<p><s>The universe is ~7 days old</s>. The universe is 13 billion years old.</p>" (convert "~~The universe is ~7 days old~~. The universe is 13 billion years old.")
|
|
]
|
|
|
|
linkTests =
|
|
TestList
|
|
[ check_equal "Should convert normal link" "<p><a href=\"https://example.com\">This is an example link.</a></p>" (convert "[This is an example link.](https://example.com)"),
|
|
check_equal "Should convert styled link" "<p><a href=\"https://example.com\"><b>Fancy</b>!!!</a></p>" (convert "[__Fancy__!!!](https://example.com)")
|
|
]
|
|
|
|
escapedCharTests =
|
|
TestList
|
|
[ check_equal "Should print literal underscore" "<p>This is an underscore - _</p>" (convert "This is an underscore - \\_"),
|
|
check_equal "Should print literal asterisk" "<p>This is an asterisk - *</p>" (convert "This is an asterisk - \\*"),
|
|
check_equal "Should print literal asterisk in bold" "<p>This is a bolded asterisk - <b>*</b></p>" (convert "This is a bolded asterisk - **\\***")
|
|
]
|
|
|
|
blockquoteTests =
|
|
TestList
|
|
[ check_equal "Should wrap para in blockquote" "<blockquote><p>What a <b>truly</b> <i>lovely</i> day!!!</p></blockquote>" (convert "> What a __truly__ _lovely_ day!!!"),
|
|
check_equal "Simple nested blockquotes" "<blockquote><p>Hello</p><blockquote><p>World</p></blockquote></blockquote>" (convert "> Hello\n>\n>> World"),
|
|
check_equal
|
|
"Nested blockquotes"
|
|
"<blockquote><p>Dorothy followed her through many \
|
|
\of the beautiful rooms in her castle.</p><blockquote><p>The Witch \
|
|
\bade her clean the pots and kettles and sweep the floor and keep the fire \
|
|
\fed with wood.</p></blockquote></blockquote>"
|
|
( convert
|
|
"> Dorothy followed her through many of the \
|
|
\beautiful rooms in her castle.\n> \n>> The Witch bade her \
|
|
\clean the pots and kettles and sweep the floor and keep the fire fed with wood."
|
|
)
|
|
]
|
|
|
|
unorderedListTests =
|
|
TestList
|
|
[ check_equal "Basic unordered list" "<ul><li>Item 1</li><li>Item 2</li><li>Item 3</li></ul>" (convert "* Item 1\n* Item 2\n* Item 3"),
|
|
check_equal "Mixing list indicators" "<ul><li>Item 1</li><li>Item 2</li><li>Item 3</li></ul>" (convert "* Item 1\n+ Item 2\n- Item 3"),
|
|
check_equal "Formatted lists" "<ul><li><b>Item 1</b></li><li><i>Item 2</i></li><li><b><i>Item 3</i></b></li></ul>" (convert "* __Item 1__\n+ _Item 2_\n- ***Item 3***"),
|
|
check_equal "Nested list" "<ul><li>Item 1</li><li>Item 2</li><li>Item 3<ul><li>Subitem 1</li><li>Subitem 2</li></ul></li></ul>" (convert "* Item 1\n* Item 2\n* Item 3\n * Subitem 1\n * Subitem 2"),
|
|
check_equal "Paragraph in list" "<ul><li>Item 1</li><li><p>Item 2</p><p>More stuff</p></li><li>Item 3</li></ul>" (convert "- Item 1\n- Item 2\n\n More stuff\n\n- Item 3"),
|
|
check_equal "Paragraph before list" "<p>This is a list</p><ul><li>Item 1</li><li>Item 2</li></ul>" (convert "This is a list\n\n* Item 1\n* Item 2"),
|
|
check_equal "Paragraph before list" "<h3>This is a list</h3><ul><li>Item 1</li><li>Item 2</li></ul>" (convert "### This is a list\n\n* Item 1\n* Item 2"),
|
|
check_equal "Nested list then back" "<ul><li>Item 1</li><li>Item 2<ul><li>Item 3</li><li>Item 4</li></ul></li><li>Item 5</li></ul>" (convert "- Item 1\n- Item 2\n - Item 3\n - Item 4\n- Item 5"),
|
|
check_equal "Blockquote in list" "<ul><li>Item 1</li><li><p>Item 2</p><blockquote><p>Quote</p></blockquote></li><li>Item 3</li></ul>" (convert "- Item 1\n- Item 2\n\n > Quote\n\n- Item 3"),
|
|
check_equal "Ordered list in unordered list" "<ul><li>Item 1</li><li>Item 2<ol><li>Item 1</li><li>Item 2</li></ol></li><li>Item 3</li></ul>" (convert "- Item 1\n- Item 2\n 1. Item 1\n 2. Item 2\n- Item 3")
|
|
]
|
|
|
|
orderedListTests =
|
|
TestList
|
|
[ check_equal "Basic ordered list" "<ol><li>Item 1</li><li>Item 2</li><li>Item 3</li></ol>" (convert "1. Item 1\n2. Item 2\n3. Item 3"),
|
|
check_equal "Mixing list numbering" "<ol><li>Item 1</li><li>Item 2</li><li>Item 3</li></ol>" (convert "1. Item 1\n3. Item 2\n2. Item 3"),
|
|
check_equal "Should not convert list without number 1" "<p>2. Item 1 1. Item 2</p>" (convert "2. Item 1\n1. Item 2"),
|
|
check_equal "Formatted lists" "<ol><li><b>Item 1</b></li><li><i>Item 2</i></li><li><b><i>Item 3</i></b></li></ol>" (convert "1. __Item 1__\n2. _Item 2_\n3. ***Item 3***"),
|
|
check_equal "Nested list" "<ol><li>Item 1</li><li>Item 2</li><li>Item 3<ol><li>Subitem 1</li><li>Subitem 2</li></ol></li></ol>" (convert "1. Item 1\n2. Item 2\n3. Item 3\n 1. Subitem 1\n 2. Subitem 2"),
|
|
check_equal "Paragraph in list" "<ol><li>Item 1</li><li><p>Item 2</p><p>More stuff</p></li><li>Item 3</li></ol>" (convert "1. Item 1\n2. Item 2\n\n More stuff\n\n1. Item 3"),
|
|
check_equal "Paragraph before list" "<p>This is a list</p><ol><li>Item 1</li><li>Item 2</li></ol>" (convert "This is a list\n\n1. Item 1\n1. Item 2"),
|
|
check_equal "Paragraph before list" "<h3>This is a list</h3><ol><li>Item 1</li><li>Item 2</li></ol>" (convert "### This is a list\n\n1. Item 1\n200. Item 2"),
|
|
check_equal "Nested list then back" "<ol><li>Item 1</li><li>Item 2<ol><li>Item 3</li><li>Item 4</li></ol></li><li>Item 5</li></ol>" (convert "1. Item 1\n2. Item 2\n 1. Item 3\n 3. Item 4\n5. Item 5"),
|
|
check_equal "Blockquote in list" "<ol><li>Item 1</li><li><p>Item 2</p><blockquote><p>Quote</p></blockquote></li><li>Item 3</li></ol>" (convert "1. Item 1\n2. Item 2\n\n > Quote\n\n3. Item 3"),
|
|
check_equal "Unordered list in ordered list" "<ol><li>Item 1</li><li>Item 2<ul><li>Item 1</li><li>Item 2</li></ul></li><li>Item 3</li></ol>" (convert "1. Item 1\n2. Item 2\n - Item 1\n * Item 2\n4. Item 3"),
|
|
check_equal "List with just 1 item" "<ol><li>Item 1</li></ol>" (convert "1. Item 1")
|
|
]
|
|
|
|
htmlTests =
|
|
TestList
|
|
[check_equal "Convert HTML element" "<p><center>a</center></p>" (convert "<center>a</center>")]
|
|
|
|
codeTests =
|
|
TestList
|
|
[ check_equal "Code by itself" "<p><code>Hello world!</code></p>" (convert "`Hello world!`"),
|
|
check_equal "Code in a paragraph" "<p>The following <code>text</code> is code</p>" (convert "The following `text` is code"),
|
|
check_equal "Code across paragraphs (shouldn't work)" "<p>`Incomplete</p><p>Code`</p>" (convert "`Incomplete\n\nCode`") -- At the moment, this is just treated as a syntax error, so nothing is rendered.
|
|
]
|
|
|
|
imageTests =
|
|
TestList
|
|
[ check_equal "Image with text" "<p>This is an image <img src=\"img.png\" alt=\"Image 1\"/></p>" (convert "This is an image "),
|
|
check_equal "Image with classes" "<p>This is an image <img src=\"img.png\" alt=\"Image 1\" class=\"new-img\"/></p>" (convert "This is an image {.new-img}")
|
|
]
|
|
|
|
figureTests =
|
|
TestList
|
|
[ check_equal "Image by itself" "<figure><img src=\"img.png\" alt=\"Image 1\"/><figcaption aria-hidden=\"true\">Image 1</figcaption></figure>" (convert "")
|
|
]
|
|
|
|
horizontalRuleTests =
|
|
TestList
|
|
[check_equal "Horizontal Rule" "<p>a</p><hr><p>b</p>" (convert "a\n\n---\n\nb")]
|
|
|
|
tableTests =
|
|
TestList
|
|
[ check_equal
|
|
"Basic table"
|
|
"<table>\
|
|
\<thead><tr><th>Col 1</th><th>Col 2</th><th>Col 3</th></tr></thead>\
|
|
\<tbody><tr><td>Data 1</td><td>Data 2</td><td>Data 3</td></tr>\
|
|
\<tr><td>More Data 1</td><td>More Data 2</td><td>More Data 3</td></tr></tbody></table>"
|
|
(convert "| Col 1 | Col 2 | Col 3 |\n|---|---|---|\n| Data 1 | Data 2 | Data 3 |\n| More Data 1 | More Data 2 | More Data 3 |")
|
|
]
|
|
|
|
integrationTests =
|
|
TestList
|
|
[ check_equal "Integration 1" "<h1>Sample Markdown</h1><p>This is some basic, sample markdown.</p><h2><b>Second</b> <i>Heading</i></h2>" (convert "# Sample Markdown\n\n This is some basic, sample markdown.\n\n ## __Second__ _Heading_"),
|
|
check_equal "Integration 2" "<p><b>Hello</b> <i>World</i></p>" (convert "__Hello__\n_World_"),
|
|
check_equal "Integration 3" "<h1>Hello</h1><p>World</p>" (convert "# Hello\nWorld"),
|
|
check_equal "Integration 4" "<p>a b</p>" (convert "a\nb"),
|
|
check_equal "Integration 5" "<h1>Hello</h1>" (convert "# Hello\n"),
|
|
check_equal "Integration 6" "<p>First line<br />Second line</p>" (convert "First line \nSecond line"),
|
|
check_equal
|
|
"Integration 7"
|
|
"<h1>Sample Markdown</h1><p>This is some basic, sample markdown.</p><h2>Second \
|
|
\Heading</h2><ul><li>Unordered lists, and:<ol><li>One</li><li>Two</li><li>\
|
|
\Three</li></ol></li><li>More</li></ul><blockquote><p>Blockquote</p>\
|
|
\</blockquote><p>And <b>bold</b>, <i>italics</i>, and even <i>italics \
|
|
\and later <b>bold</b></i>. Even <s>strikethrough</s>. \
|
|
\<a href=\"https://markdowntohtml.com\">A link</a> to somewhere.</p>"
|
|
( convert
|
|
"# 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."
|
|
)
|
|
]
|
|
|
|
tests =
|
|
TestList
|
|
[ headerTests,
|
|
boldTests,
|
|
strikethroughTests,
|
|
linkTests,
|
|
escapedCharTests,
|
|
blockquoteTests,
|
|
unorderedListTests,
|
|
orderedListTests,
|
|
imageTests,
|
|
htmlTests,
|
|
figureTests,
|
|
codeTests,
|
|
horizontalRuleTests,
|
|
tableTests,
|
|
integrationTests
|
|
]
|
|
|
|
runTests = runTestTT tests
|