mmark 0.0.3.0 → 0.0.3.1
raw patch · 8 files changed
+1758/−1548 lines, 8 files
Files
- CHANGELOG.md +8/−0
- README.md +2/−1
- Text/MMark.hs +3/−3
- Text/MMark/Internal.hs +2/−2
- Text/MMark/Parser.hs +6/−2
- mmark.cabal +1/−1
- tests/Text/MMark/TestUtils.hs +1/−2
- tests/Text/MMarkSpec.hs +1735/−1537
CHANGELOG.md view
@@ -1,3 +1,11 @@+## MMark 0.0.3.1++* Fixed a couple of bugs in the parser for reference definitions.++* Now link and image titles may contain newline character as per the Common+ Mark spec. They also may contain blank lines, which is against the spec+ though.+ ## MMark 0.0.3.0 * Code can interrupt paragraphs now, as per Common Mark spec.
README.md view
@@ -32,7 +32,7 @@ MMark mostly tries to follow the Common Mark specification as given here: -https://github.com/jgm/CommonMark+http://spec.commonmark.org/0.28/ However, due to the fact that we do not allow inputs that do not make sense, and also try to guard against common mistakes (like writing `##My header`@@ -204,6 +204,7 @@ reference in not enclosed with `<` and `>`, then closing parenthesis character `)` is not considered part of URI (use `<uri>` syntax if you want a closing parenthesis as part of a URI).+* Titles in links and images can contain blank lines. * Putting links in text of another link is not allowed, i.e. no nested links is possible. * Putting images in description of other images is not allowed (similarly to
Text/MMark.hs view
@@ -19,7 +19,7 @@ -- -- MMark mostly tries to follow the Common Mark specification as given here: ----- <https://github.com/jgm/CommonMark>+-- <http://spec.commonmark.org/0.28/> -- -- However, due to the fact that we do not allow inputs that do not make -- sense, and also try to guard against common mistakes (like writing @##My@@ -66,7 +66,7 @@ -- === “Getting started” example -- -- Here is a complete example of a program that reads a markdown file named--- @\"input.md\"@ and outputs an HTML file named @\"output.md\"@:+-- @\"input.md\"@ and outputs an HTML file named @\"output.html\"@: -- -- > {-# LANGUAGE OverloadedStrings #-} -- >@@ -136,7 +136,7 @@ import Text.MMark.Parser import Text.Megaparsec (ParseError (..), parseErrorPretty_, mkPos) --- | Extract contents of optional YAML block that may have been parsed.+-- | Extract contents of an optional YAML block that may have been parsed. projectYaml :: MMark -> Maybe Value projectYaml = mmarkYaml
Text/MMark/Internal.hs view
@@ -429,8 +429,8 @@ . T.toLower . asPlainText --- | Generate a 'URI' with just fragment from its textual representation.--- Useful for getting URL from id of a header.+-- | Generate a 'URI' containing only a fragment from its textual+-- representation. Useful for getting URL from id of a header. headerFragment :: Text -> URI headerFragment fragment = URI
Text/MMark/Parser.hs view
@@ -430,7 +430,11 @@ (pos, dlabel) <- try $ pRefLabel <* char ':' sc' <* optional eol <* sc' uri <- pUri- mtitle <- optional (sc1' *> optional eol *> sc' *> pTitle)+ mtitle <- optional . try $ do+ try (sc1' *> optional eol *> sc') <|> (sc' *> eol *> sc')+ pTitle+ sc'+ eof <|> eol conflict <- registerReference dlabel (uri, mtitle) when conflict $ do setPosition pos@@ -728,7 +732,7 @@ , p '(' ')' ] where p start end = between (char start) (char end) $- let f x = x /= end && notNewline x+ let f x = x /= end in manyEscapedWith f "unescaped character" -- | Parse label of a reference link.
mmark.cabal view
@@ -1,5 +1,5 @@ name: mmark-version: 0.0.3.0+version: 0.0.3.1 cabal-version: >= 1.18 tested-with: GHC==7.10.3, GHC==8.0.2, GHC==8.2.2 license: BSD3
tests/Text/MMark/TestUtils.hs view
@@ -17,7 +17,6 @@ import Text.MMark (MMark, MMarkErr) import Text.Megaparsec import qualified Data.List.NonEmpty as NE-import qualified Data.Text as T import qualified Data.Text.Lazy as TL import qualified Lucid as L import qualified Text.MMark as MMark@@ -65,7 +64,7 @@ "but it failed with:\n" ++ MMark.parseErrorsPretty input errs' Right x -> expectationFailure $- "the parser is expected to fail, but it parsed: " ++ T.unpack (toText x)+ "the parser is expected to fail, but it parsed: " ++ show (toText x) where errs = NE.fromList errs''
tests/Text/MMarkSpec.hs view
@@ -21,1543 +21,1741 @@ import qualified Text.MMark as MMark import qualified Text.MMark.Extension as Ext -spec :: Spec-spec = parallel $ do- describe "parse and render" $ do- context "2.2 Tabs" $ do- it "CM1" $- "\tfoo\tbaz\t\tbim" ==->- "<pre><code>foo\tbaz\t\tbim\n</code></pre>\n"- it "CM2" $- " \tfoo\tbaz\t\tbim" ==->- "<pre><code>foo\tbaz\t\tbim\n</code></pre>\n"- it "CM3" $- " a\ta\n ὐ\ta" ==->- "<pre><code>a\ta\nὐ\ta\n</code></pre>\n"- it "CM4" $- " - foo\n\n\tbar" ==->- "<ul>\n<li>\n<p>foo</p>\n<p>bar</p>\n</li>\n</ul>\n"- it "CM5" $- "- foo\n\n\t\tbar" ==->- "<ul>\n<li>\n<p>foo</p>\n<pre><code> bar\n</code></pre>\n</li>\n</ul>\n"- it "CM6" $- ">\t\tfoo" ==->- "<blockquote>\n<pre><code> foo\n</code></pre>\n</blockquote>\n"- it "CM7" $- "-\t\tfoo" ==->- "<ul>\n<li>\n<pre><code> foo\n</code></pre>\n</li>\n</ul>\n"- it "CM8" $- " foo\n\tbar" ==->- "<pre><code>foo\nbar\n</code></pre>\n"- it "CM9" $- " - foo\n - bar\n\t - baz" ==->- "<ul>\n<li>\nfoo\n<ul>\n<li>\nbar\n<ul>\n<li>\nbaz\n</li>\n</ul>\n</li>\n</ul>\n</li>\n</ul>\n"- it "CM10" $- "#\tFoo" ==-> "<h1 id=\"foo\">Foo</h1>\n"- it "CM11" $- "*\t*\t*\t" ==-> "<hr>\n"- context "3.1 Precedence" $- it "CM12" $- let s = "- `one\n- two`"- in s ~~->- [ err (posN 6 s) (ueib <> etok '`' <> elabel "code span content")- , err (posN 13 s) (ueib <> etok '`' <> elabel "code span content") ]- context "4.1 Thematic breaks" $ do- it "CM13" $- "***\n---\n___" ==-> "<hr>\n<hr>\n<hr>\n"- it "CM14" $- "+++" ==-> "<p>+++</p>\n"- it "CM15" $- "===" ==-> "<p>===</p>\n"- it "CM16" $- let s = "--\n**\n__\n"- in s ~-> errFancy (posN 3 s) (nonFlanking "**")- it "CM17" $- " ***\n ***\n ***" ==-> "<hr>\n<hr>\n<hr>\n"- it "CM18" $- " ***" ==-> "<pre><code>***\n</code></pre>\n"- it "CM19" $- let s = "Foo\n ***\n"- in s ~-> errFancy (posN 8 s) (nonFlanking "***")- it "CM20" $- "_____________________________________" ==->- "<hr>\n"- it "CM21" $- " - - -" ==-> "<hr>\n"- it "CM22" $- " ** * ** * ** * **" ==-> "<hr>\n"- it "CM23" $- "- - - -" ==-> "<hr>\n"- it "CM24" $- "- - - - " ==-> "<hr>\n"- it "CM25" $- let s = "_ _ _ _ a\n\na------\n\n---a---\n"- in s ~-> errFancy posI (nonFlanking "_")- it "CM26" $- " *\\-*" ==-> "<p><em>-</em></p>\n"- it "CM27" $- "- foo\n***\n- bar" ==->- "<ul>\n<li>\nfoo\n</li>\n</ul>\n<hr>\n<ul>\n<li>\nbar\n</li>\n</ul>\n"- it "CM28" $- "Foo\n***\nbar" ==->- "<p>Foo</p>\n<hr>\n<p>bar</p>\n"- xit "CM29" $ -- FIXME pending setext headings- "Foo\n---\nbar" ==->- "<h2>Foo</h2>\n<p>bar</p>\n"- it "CM30" $- "* Foo\n* * *\n* Bar" ==->- "<ul>\n<li>\nFoo\n</li>\n<li>\n<ul>\n<li>\n<ul>\n<li>\n\n</li>\n</ul>\n</li>\n</ul>\n</li>\n<li>\nBar\n</li>\n</ul>\n"- it "CM31" $- "- Foo\n- * * *" ==->- "<ul>\n<li>\nFoo\n</li>\n<li>\n<hr>\n</li>\n</ul>\n"- context "4.2 ATX headings" $ do- it "CM32" $- "# foo\n## foo\n### foo\n#### foo\n##### foo\n###### foo" ==->- "<h1 id=\"foo\">foo</h1>\n<h2 id=\"foo\">foo</h2>\n<h3 id=\"foo\">foo</h3>\n<h4 id=\"foo\">foo</h4>\n<h5 id=\"foo\">foo</h5>\n<h6 id=\"foo\">foo</h6>\n"- it "CM33" $- let s = "####### foo"- in s ~-> err (posN 6 s) (utok '#' <> elabel "white space")- it "CM34" $- let s = "#5 bolt\n\n#hashtag"- in s ~~->- [ err (posN 1 s) (utok '5' <> etok '#' <> elabel "white space")- , err (posN 10 s) (utok 'h' <> etok '#' <> elabel "white space") ]- it "CM35" $- "\\## foo" ==-> "<p>## foo</p>\n"- it "CM36" $- "# foo *bar* \\*baz\\*" ==-> "<h1 id=\"foo-bar-baz\">foo <em>bar</em> *baz*</h1>\n"- it "CM37" $- "# foo " ==->- "<h1 id=\"foo\">foo</h1>\n"- it "CM38" $- " ### foo\n ## foo\n # foo" ==->- "<h3 id=\"foo\">foo</h3>\n<h2 id=\"foo\">foo</h2>\n<h1 id=\"foo\">foo</h1>\n"- it "CM39" $- " # foo" ==-> "<pre><code># foo\n</code></pre>\n"- it "CM40" $- "foo\n # bar" ==-> "<p>foo\n# bar</p>\n"- it "CM41" $- "## foo ##\n ### bar ###" ==->- "<h2 id=\"foo\">foo</h2>\n<h3 id=\"bar\">bar</h3>\n"- it "CM42" $- "# foo ##################################\n##### foo ##" ==->- "<h1 id=\"foo\">foo</h1>\n<h5 id=\"foo\">foo</h5>\n"- it "CM43" $- "### foo ### " ==-> "<h3 id=\"foo\">foo</h3>\n"- it "CM44" $- "### foo ### b" ==-> "<h3 id=\"foo-b\">foo ### b</h3>\n"- it "CM45" $- "# foo#" ==-> "<h1 id=\"foo\">foo#</h1>\n"- it "CM46" $- "### foo \\###\n## foo #\\##\n# foo \\#" ==->- "<h3 id=\"foo\">foo ###</h3>\n<h2 id=\"foo\">foo ###</h2>\n<h1 id=\"foo\">foo #</h1>\n"- it "CM47" $- "****\n## foo\n****" ==->- "<hr>\n<h2 id=\"foo\">foo</h2>\n<hr>\n"- it "CM48" $- "Foo bar\n# baz\nBar foo" ==->- "<p>Foo bar</p>\n<h1 id=\"baz\">baz</h1>\n<p>Bar foo</p>\n"- it "CM49" $- let s = "## \n#\n### ###"- in s ~~->- [ err (posN 3 s) (utok '\n' <> elabel "heading character" <> elabel "white space")- , err (posN 5 s) (utok '\n' <> etok '#' <> elabel "white space") ]- context "4.4 Indented code blocks" $ do- it "CM76" $- " a simple\n indented code block" ==->- "<pre><code>a simple\n indented code block\n</code></pre>\n"- it "CM77" $- " - foo\n\n bar" ==->- "<ul>\n<li>\n<p>foo</p>\n<p>bar</p>\n</li>\n</ul>\n"- it "CM78" $- "1. foo\n\n - bar" ==->- "<ol>\n<li>\n<p>foo</p>\n<ul>\n<li>\nbar\n</li>\n</ul>\n</li>\n</ol>\n"- it "CM79" $- " <a/>\n *hi*\n\n - one" ==->- "<pre><code><a/>\n*hi*\n\n- one\n</code></pre>\n"- it "CM80" $- " chunk1\n\n chunk2\n \n \n \n chunk3" ==->- "<pre><code>chunk1\n\nchunk2\n\n\n\nchunk3\n</code></pre>\n"- it "CM81" $- " chunk1\n \n chunk2" ==->- "<pre><code>chunk1\n \n chunk2\n</code></pre>\n"- it "CM82" $- "Foo\n bar\n" ==->- "<p>Foo\nbar</p>\n"- it "CM83" $- " foo\nbar" ==->- "<pre><code>foo\n</code></pre>\n<p>bar</p>\n"- xit "CM84" $ -- FIXME pending setext headings- "# Heading\n foo\nHeading\n------\n foo\n----\n" ==->- "<h1>Heading</h1>\n<pre><code>foo\n</code></pre>\n<h2>Heading</h2>\n<pre><code>foo\n</code></pre>\n<hr />\n"- it "CM85" $- " foo\n bar" ==->- "<pre><code> foo\nbar\n</code></pre>\n"- it "CM86" $- "\n \n foo\n \n" ==->- "<pre><code>foo\n</code></pre>\n"- it "CM87" $- " foo " ==->- "<pre><code>foo \n</code></pre>\n"- context "4.5 Fenced code blocks" $ do- it "CM88" $- "```\n<\n >\n```" ==->- "<pre><code><\n >\n</code></pre>\n"- it "CM89" $- "~~~\n<\n >\n~~~" ==->- "<pre><code><\n >\n</code></pre>\n"- it "CM90" $- "```\naaa\n~~~\n```" ==->- "<pre><code>aaa\n~~~\n</code></pre>\n"- it "CM91" $- "~~~\naaa\n```\n~~~" ==->- "<pre><code>aaa\n```\n</code></pre>\n"- it "CM92" $- "````\naaa\n```\n``````" ==->- "<pre><code>aaa\n```\n</code></pre>\n"- it "CM93" $- "~~~~\naaa\n~~~\n~~~~" ==->- "<pre><code>aaa\n~~~\n</code></pre>\n"- it "CM94" $- let s = "```"- in s ~-> err (posN 3 s)- (ueib <> etok '`' <> elabel "code span content")- it "CM95" $- let s = "`````\n\n```\naaa\n"- in s ~-> err (posN 15 s)- (ueof <> elabel "closing code fence" <> elabel "code block content")- it "CM96" $- let s = "> ```\n> aaa\n\nbbb\n"- in s ~-> err (posN 17 s) (ueof <> elabel "closing code fence" <> elabel "code block content")- it "CM97" $- "```\n\n \n```" ==->- "<pre><code>\n \n</code></pre>\n"- it "CM98" $- "```\n```" ==->- "<pre><code></code></pre>\n"- it "CM99" $- " ```\n aaa\naaa\n```" ==->- "<pre><code>aaa\naaa\n</code></pre>\n"- it "CM100" $- " ```\naaa\n aaa\naaa\n ```" ==->- "<pre><code>aaa\naaa\naaa\n</code></pre>\n"- it "CM101" $- " ```\n aaa\n aaa\n aaa\n ```" ==->- "<pre><code>aaa\n aaa\naaa\n</code></pre>\n"- it "CM102" $- " ```\n aaa\n ```" ==->- "<pre><code>```\naaa\n```\n</code></pre>\n"- it "CM103" $- "```\naaa\n ```" ==->- "<pre><code>aaa\n</code></pre>\n"- it "CM104" $- " ```\naaa\n ```" ==->- "<pre><code>aaa\n</code></pre>\n"- it "CM105" $- let s = "```\naaa\n ```\n"- in s ~-> err (posN 16 s)- (ueof <> elabel "closing code fence" <> elabel "code block content")- it "CM106" $- "``` ```\naaa" ==->- "<p><code></code>\naaa</p>\n"- it "CM107" $- let s = "~~~~~~\naaa\n~~~ ~~\n"- in s ~-> err (posN 18 s)- (ueof <> elabel "closing code fence" <> elabel "code block content")- it "CM108" $- "foo\n```\nbar\n```\nbaz" ==->- "<p>foo</p>\n<pre><code>bar\n</code></pre>\n<p>baz</p>\n"- xit "CM109" $ -- FIXME pending setext headings- "foo\n---\n~~~\nbar\n~~~\n# baz" ==->- "<h2>foo</h2>\n<pre><code>bar\n</code></pre>\n<h1>baz</h1>\n"- it "CM110" $- "```ruby\ndef foo(x)\n return 3\nend\n```" ==->- "<pre><code class=\"language-ruby\">def foo(x)\n return 3\nend\n</code></pre>\n"- it "CM111" $- "~~~~ ruby startline=3 $%@#$\ndef foo(x)\n return 3\nend\n~~~~~~~" ==->- "<pre><code class=\"language-ruby\">def foo(x)\n return 3\nend\n</code></pre>\n"- it "CM112" $- "````;\n````" ==->- "<pre><code class=\"language-;\"></code></pre>\n"- it "CM113" $- "``` aa ```\nfoo" ==->- "<p><code>aa</code>\nfoo</p>\n"- it "CM114" $- "```\n``` aaa\n```" ==->- "<pre><code>``` aaa\n</code></pre>\n"- context "4.8 Paragraphs" $ do- it "CM180" $- "aaa\n\nbbb" ==->- "<p>aaa</p>\n<p>bbb</p>\n"- it "CM181" $- "aaa\nbbb\n\nccc\nddd" ==->- "<p>aaa\nbbb</p>\n<p>ccc\nddd</p>\n"- it "CM182" $- "aaa\n\n\nbbb" ==->- "<p>aaa</p>\n<p>bbb</p>\n"- it "CM183" $- " aaa\n bbb" ==->- "<p>aaa\nbbb</p>\n"- it "CM184" $- "aaa\n bbb\n ccc" ==->- "<p>aaa\nbbb\nccc</p>\n"- it "CM185" $- " aaa\nbbb" ==-> "<p>aaa\nbbb</p>\n"- it "CM186" $- " aaa\nbbb" ==->- "<pre><code>aaa\n</code></pre>\n<p>bbb</p>\n"- it "CM187" $- "aaa \nbbb " ==->- "<p>aaa\nbbb</p>\n"- context "4.9 Blank lines" $- it "CM188" $- " \n\naaa\n \n\n# aaa\n\n " ==->- "<p>aaa</p>\n<h1 id=\"aaa\">aaa</h1>\n"- context "5.1 Block quotes" $ do- it "CM189" $- "> # Foo\n bar\n baz" ==->- "<blockquote>\n<h1 id=\"foo\">Foo</h1>\n<p>bar\nbaz</p>\n</blockquote>\n"- it "CM190" $- "># Foo\n bar\n baz" ==->- "<blockquote>\n<h1 id=\"foo\">Foo</h1>\n<p>bar\nbaz</p>\n</blockquote>\n"- it "CM191" $- " > # Foo\n bar\n baz" ==->- "<blockquote>\n<h1 id=\"foo\">Foo</h1>\n<p>bar\nbaz</p>\n</blockquote>\n"- it "CM192" $- " > # Foo\n > bar\n > baz" ==->- "<pre><code>> # Foo\n> bar\n> baz\n</code></pre>\n"- it "CM193" $- "> # Foo\n> bar\nbaz" ==->- "<blockquote>\n<h1 id=\"foo\">Foo</h1>\n</blockquote>\n<blockquote>\n<p>bar</p>\n</blockquote>\n<p>baz</p>\n"- it "CM194" $- "> bar\nbaz\n> foo" ==->- "<blockquote>\n<p>bar</p>\n</blockquote>\n<p>baz</p>\n<blockquote>\n<p>foo</p>\n</blockquote>\n"- it "CM195" $- "> foo\n---" ==->- "<blockquote>\n<p>foo</p>\n</blockquote>\n<hr>\n"- it "CM196" $- "> - foo\n- bar" ==->- "<blockquote>\n<ul>\n<li>\nfoo\n</li>\n</ul>\n</blockquote>\n<ul>\n<li>\nbar\n</li>\n</ul>\n"- it "CM197" $- "> foo\n bar" ==->- "<blockquote>\n<pre><code>foo\n</code></pre>\n<p>bar</p>\n</blockquote>\n"- it "CM198" $- "> ```\nfoo\n```" ==->- "<blockquote>\n<pre><code>foo\n</code></pre>\n</blockquote>\n"- it "CM199" $- "> foo\n - bar" ==->- "<blockquote>\n<p>foo</p>\n<ul>\n<li>\nbar\n</li>\n</ul>\n</blockquote>\n"- it "CM200" $- ">" ==->- "<blockquote>\n</blockquote>\n"- it "CM201" $- ">\n> \n> " ==->- "<blockquote>\n</blockquote>\n<blockquote>\n</blockquote>\n<blockquote>\n</blockquote>\n"- it "CM202" $- ">\n foo\n " ==->- "<blockquote>\n<p>foo</p>\n</blockquote>\n"- it "CM203" $- "> foo\n\n> bar" ==->- "<blockquote>\n<p>foo</p>\n</blockquote>\n<blockquote>\n<p>bar</p>\n</blockquote>\n"- it "CM204" $- "> foo\n bar" ==->- "<blockquote>\n<p>foo\nbar</p>\n</blockquote>\n"- it "CM205" $- "> foo\n\n bar" ==->- "<blockquote>\n<p>foo</p>\n<p>bar</p>\n</blockquote>\n"- it "CM206" $- "foo\n> bar" ==->- "<p>foo</p>\n<blockquote>\n<p>bar</p>\n</blockquote>\n"- it "CM207" $- "> aaa\n***\n> bbb" ==->- "<blockquote>\n<p>aaa</p>\n</blockquote>\n<hr>\n<blockquote>\n<p>bbb</p>\n</blockquote>\n"- it "CM208" $- "> bar\n baz" ==->- "<blockquote>\n<p>bar\nbaz</p>\n</blockquote>\n"- it "CM209" $- "> bar\n\nbaz" ==->- "<blockquote>\n<p>bar</p>\n</blockquote>\n<p>baz</p>\n"- it "CM210" $- "> bar\n\nbaz" ==->- "<blockquote>\n<p>bar</p>\n</blockquote>\n<p>baz</p>\n"- it "CM211" $- "> > > foo\nbar" ==->- "<blockquote>\n<blockquote>\n<blockquote>\n<p>foo</p>\n</blockquote>\n</blockquote>\n</blockquote>\n<p>bar</p>\n"- it "CM212" $- ">>> foo\n bar\n baz" ==->- "<blockquote>\n<blockquote>\n<blockquote>\n<p>foo\nbar\nbaz</p>\n</blockquote>\n</blockquote>\n</blockquote>\n"- it "CM213" $- "> code\n\n> not code" ==->- "<blockquote>\n<pre><code>code\n</code></pre>\n</blockquote>\n<blockquote>\n<p>not code</p>\n</blockquote>\n"- context "5.2 List items" $ do- it "CM214" $- "A paragraph\nwith two lines.\n\n indented code\n\n> A block quote." ==->- "<p>A paragraph\nwith two lines.</p>\n<pre><code>indented code\n</code></pre>\n<blockquote>\n<p>A block quote.</p>\n</blockquote>\n"- it "CM215" $- "1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==->- "<ol>\n<li>\n<p>A paragraph\nwith two lines.</p>\n<pre><code>indented code\n</code></pre>\n<blockquote>\n<p>A block quote.</p>\n</blockquote>\n</li>\n</ol>\n"- it "CM216" $- "- one\n\n two" ==->- "<ul>\n<li>\none\n</li>\n</ul>\n<p>two</p>\n"- it "CM217" $- "- one\n\n two" ==->- "<ul>\n<li>\n<p>one</p>\n<p>two</p>\n</li>\n</ul>\n"- it "CM218" $- " - one\n\n two" ==->- "<ul>\n<li>\none\n</li>\n</ul>\n<pre><code> two\n</code></pre>\n"- it "CM219" $- " - one\n\n two" ==->- "<ul>\n<li>\n<p>one</p>\n<p>two</p>\n</li>\n</ul>\n"- it "CM220" $- " > > 1. one\n\n two" ==->- "<blockquote>\n<blockquote>\n<ol>\n<li>\none\n</li>\n</ol>\n<p>two</p>\n</blockquote>\n</blockquote>\n"- it "CM221" $- ">>- one\n\n two" ==->- "<blockquote>\n<blockquote>\n<ul>\n<li>\n<p>one</p>\n<p>two</p>\n</li>\n</ul>\n</blockquote>\n</blockquote>\n"- it "CM222" $- "-one\n\n2.two" ==->- "<p>-one</p>\n<p>2.two</p>\n"- it "CM223" $- "- foo\n\n\n bar" ==->- "<ul>\n<li>\n<p>foo</p>\n<p>bar</p>\n</li>\n</ul>\n"- it "CM224" $- "1. foo\n\n ```\n bar\n ```\n\n baz\n\n > bam" ==->- "<ol>\n<li>\n<p>foo</p>\n<pre><code>bar\n</code></pre>\n<p>baz</p>\n<blockquote>\n<p>bam</p>\n</blockquote>\n</li>\n</ol>\n"- it "CM225" $- "- Foo\n\n bar\n\n\n baz" ==->- "<ul>\n<li>\n<p>Foo</p>\n<pre><code>bar\n\n\nbaz\n</code></pre>\n</li>\n</ul>\n"- it "CM226" $- "123456789. ok" ==->- "<ol start=\"123456789\">\n<li>\nok\n</li>\n</ol>\n"- it "CM227" $- let s = "1234567890. not ok\n"- in s ~-> errFancy posI (indexTooBig 1234567890)- it "CM228" $- "0. ok" ==->- "<ol start=\"0\">\n<li>\nok\n</li>\n</ol>\n"- it "CM229" $- "003. ok" ==->- "<ol start=\"3\">\n<li>\nok\n</li>\n</ol>\n"- it "CM230" $- "-1. not ok" ==->- "<p>-1. not ok</p>\n"- it "CM231" $- "- foo\n\n bar" ==->- "<ul>\n<li>\n<p>foo</p>\n<pre><code>bar\n</code></pre>\n</li>\n</ul>\n"- it "CM232" $- " 10. foo\n\n bar" ==->- "<ol start=\"10\">\n<li>\n<p>foo</p>\n<pre><code>bar\n</code></pre>\n</li>\n</ol>\n"- it "CM233" $- " indented code\n\nparagraph\n\n more code" ==->- "<pre><code>indented code\n</code></pre>\n<p>paragraph</p>\n<pre><code>more code\n</code></pre>\n"- it "CM234" $- "1. indented code\n\n paragraph\n\n more code" ==->- "<ol>\n<li>\n<pre><code>indented code\n</code></pre>\n<p>paragraph</p>\n<pre><code>more code\n</code></pre>\n</li>\n</ol>\n"- it "CM235" $- "1. indented code\n\n paragraph\n\n more code" ==->- "<ol>\n<li>\n<pre><code> indented code\n</code></pre>\n<p>paragraph</p>\n<pre><code>more code\n</code></pre>\n</li>\n</ol>\n"- it "CM236" $- " foo\n\nbar" ==->- "<p>foo</p>\n<p>bar</p>\n"- it "CM237" $- "- foo\n\n bar" ==->- "<ul>\n<li>\nfoo\n</li>\n</ul>\n<p>bar</p>\n"- it "CM238" $- "- foo\n\n bar" ==->- "<ul>\n<li>\n<p>foo</p>\n<p>bar</p>\n</li>\n</ul>\n"- it "CM239" $- "-\n foo\n-\n ```\n bar\n ```\n-\n baz" ==->- "<ul>\n<li>\n<p>foo</p>\n</li>\n<li>\n<pre><code>bar\n</code></pre>\n</li>\n<li>\n<pre><code>baz\n</code></pre>\n</li>\n</ul>\n"- it "CM240" $- "- \n foo" ==->- "<ul>\n<li>\nfoo\n</li>\n</ul>\n"- it "CM241" $- "-\n\n foo" ==->- "<ul>\n<li>\n\n</li>\n</ul>\n<p>foo</p>\n"- it "CM241b" $- "1.\n\n foo" ==->- "<ol>\n<li>\n\n</li>\n</ol>\n<p>foo</p>\n"- it "CM242" $- "- foo\n-\n- bar" ==->- "<ul>\n<li>\nfoo\n</li>\n<li>\n\n</li>\n<li>\nbar\n</li>\n</ul>\n"- it "CM243" $- "- foo\n- \n- bar" ==->- "<ul>\n<li>\nfoo\n</li>\n<li>\n\n</li>\n<li>\nbar\n</li>\n</ul>\n"- it "CM244" $- "1. foo\n2.\n3. bar" ==->- "<ol>\n<li>\nfoo\n</li>\n<li>\n\n</li>\n<li>\nbar\n</li>\n</ol>\n"- it "CM245" $- "*" ==->- "<ul>\n<li>\n\n</li>\n</ul>\n"- it "CM246" $- "foo\n*\n\nfoo\n1." ==->- "<p>foo</p>\n<ul>\n<li>\n\n</li>\n</ul>\n<p>foo</p>\n<ol>\n<li>\n\n</li>\n</ol>\n"- it "CM247" $- " 1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==->- "<ol>\n<li>\n<p>A paragraph\nwith two lines.</p>\n<pre><code>indented code\n</code></pre>\n<blockquote>\n<p>A block quote.</p>\n</blockquote>\n</li>\n</ol>\n"- it "CM248" $- " 1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==->- "<ol>\n<li>\n<p>A paragraph\nwith two lines.</p>\n<pre><code>indented code\n</code></pre>\n<blockquote>\n<p>A block quote.</p>\n</blockquote>\n</li>\n</ol>\n"- it "CM249" $- " 1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==->- "<ol>\n<li>\n<p>A paragraph\nwith two lines.</p>\n<pre><code>indented code\n</code></pre>\n<blockquote>\n<p>A block quote.</p>\n</blockquote>\n</li>\n</ol>\n"- it "CM250" $- " 1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==->- "<pre><code>1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote.\n</code></pre>\n"- it "CM251" $- " 1. A paragraph\nwith two lines.\n\n indented code\n\n > A block quote." ==->- "<ol>\n<li>\nA paragraph\n</li>\n</ol>\n<p>with two lines.</p>\n<pre><code> indented code\n\n > A block quote.\n</code></pre>\n"- it "CM252" $- " 1. A paragraph\n with two lines." ==->- "<ol>\n<li>\nA paragraph\n</li>\n</ol>\n<pre><code>with two lines.\n</code></pre>\n"- it "CM253" $- "> 1. > Blockquote\ncontinued here." ==->- "<blockquote>\n<ol>\n<li>\n<blockquote>\n<p>Blockquote</p>\n</blockquote>\n</li>\n</ol>\n</blockquote>\n<p>continued here.</p>\n"- it "CM254" $- "> 1. > Blockquote\n continued here." ==->- "<blockquote>\n<ol>\n<li>\n<blockquote>\n<p>Blockquote</p>\n</blockquote>\n</li>\n</ol>\n<p>continued here.</p>\n</blockquote>\n"- it "CM255" $- "- foo\n - bar\n - baz\n - boo" ==->- "<ul>\n<li>\nfoo\n<ul>\n<li>\nbar\n<ul>\n<li>\nbaz\n<ul>\n<li>\nboo\n</li>\n</ul>\n</li>\n</ul>\n</li>\n</ul>\n</li>\n</ul>\n"- it "CM256" $- "- foo\n - bar\n - baz\n - boo" ==->- "<ul>\n<li>\nfoo\n</li>\n<li>\nbar\n</li>\n<li>\nbaz\n</li>\n<li>\nboo\n</li>\n</ul>\n"- it "CM257" $- "10) foo\n - bar" ==->- "<ol start=\"10\">\n<li>\nfoo\n<ul>\n<li>\nbar\n</li>\n</ul>\n</li>\n</ol>\n"- it "CM258" $- "10) foo\n - bar" ==->- "<ol start=\"10\">\n<li>\nfoo\n</li>\n</ol>\n<ul>\n<li>\nbar\n</li>\n</ul>\n"- it "CM259" $- "- - foo" ==->- "<ul>\n<li>\n<ul>\n<li>\nfoo\n</li>\n</ul>\n</li>\n</ul>\n"- it "CM260" $- "1. - 2. foo" ==->- "<ol>\n<li>\n<ul>\n<li>\n<ol start=\"2\">\n<li>\nfoo\n</li>\n</ol>\n</li>\n</ul>\n</li>\n</ol>\n"- it "CM261" $- "- # Foo\n- Bar\n ---\n baz" ==->- "<ul>\n<li>\n<h1 id=\"foo\">Foo</h1>\n</li>\n<li>\n<p>Bar</p>\n<hr>\n<p>baz</p>\n</li>\n</ul>\n"- context "5.3 Lists" $ do- it "CM262" $- "- foo\n- bar\n+ baz" ==->- "<ul>\n<li>\nfoo\n</li>\n<li>\nbar\n</li>\n</ul>\n<ul>\n<li>\nbaz\n</li>\n</ul>\n"- it "CM263" $- "1. foo\n2. bar\n3) baz" ==->- "<ol>\n<li>\nfoo\n</li>\n<li>\nbar\n</li>\n</ol>\n<ol start=\"3\">\n<li>\nbaz\n</li>\n</ol>\n"- it "CM264" $- "Foo\n- bar\n- baz" ==->- "<p>Foo</p>\n<ul>\n<li>\nbar\n</li>\n<li>\nbaz\n</li>\n</ul>\n"- it "CM265" $- "The number of windows in my house is\n14. The number of doors is 6." ==->- "<p>The number of windows in my house is</p>\n<ol start=\"14\">\n<li>\nThe number of doors is 6.\n</li>\n</ol>\n"- it "CM266" $- "The number of windows in my house is\n1. The number of doors is 6." ==->- "<p>The number of windows in my house is</p>\n<ol>\n<li>\nThe number of doors is 6.\n</li>\n</ol>\n"- it "CM267" $- "- foo\n\n- bar\n\n\n- baz" ==->- "<ul>\n<li>\n<p>foo</p>\n</li>\n<li>\n<p>bar</p>\n</li>\n<li>\n<p>baz</p>\n</li>\n</ul>\n"- it "CM268" $- "- foo\n - bar\n - baz\n\n\n bim" ==->- "<ul>\n<li>\nfoo\n<ul>\n<li>\nbar\n<ul>\n<li>\n<p>baz</p>\n<p>bim</p>\n</li>\n</ul>\n</li>\n</ul>\n</li>\n</ul>\n"- xit "CM269" $ -- FIXME pending HTML blocks- "- foo\n- bar\n\n<!-- -->\n\n- baz\n- bim" ==->- "<ul>\n<li>foo</li>\n<li>bar</li>\n</ul>\n<!-- -->\n<ul>\n<li>baz</li>\n<li>bim</li>\n</ul>\n"- xit "CM270" $ -- FIXME pending HTML blocks- "- foo\n\n notcode\n\n- foo\n\n<!-- -->\n\n code" ==->- "<ul>\n<li>\n<p>foo</p>\n<p>notcode</p>\n</li>\n<li>\n<p>foo</p>\n</li>\n</ul>\n<!-- -->\n<pre><code>code\n</code></pre>\n"- it "CM271" $- "- a\n - b\n - c\n - d\n - e\n - f\n - g\n - h\n- i" ==->- "<ul>\n<li>\na\n</li>\n<li>\nb\n</li>\n<li>\nc\n</li>\n<li>\nd\n</li>\n<li>\ne\n</li>\n<li>\nf\n</li>\n<li>\ng\n</li>\n<li>\nh\n</li>\n<li>\ni\n</li>\n</ul>\n"- it "CM272" $- "1. a\n\n 2. b\n\n 3. c" ==->- "<ol>\n<li>\n<p>a</p>\n</li>\n<li>\n<p>b</p>\n</li>\n<li>\n<p>c</p>\n</li>\n</ol>\n"- it "CM273" $- "- a\n- b\n\n- c" ==->- "<ul>\n<li>\n<p>a</p>\n</li>\n<li>\n<p>b</p>\n</li>\n<li>\n<p>c</p>\n</li>\n</ul>\n"- it "CM274" $- "* a\n*\n\n* c" ==->- "<ul>\n<li>\n<p>a</p>\n</li>\n<li>\n<p></p>\n</li>\n<li>\n<p>c</p>\n</li>\n</ul>\n"- it "CM275" $- "- a\n- b\n\n c\n- d" ==->- "<ul>\n<li>\n<p>a</p>\n</li>\n<li>\n<p>b</p>\n<p>c</p>\n</li>\n<li>\n<p>d</p>\n</li>\n</ul>\n"- it "CM276" $- "- a\n- b\n\n [ref]: /url\n- d" ==->- "<ul>\n<li>\n<p>a</p>\n</li>\n<li>\n<p>b</p>\n</li>\n<li>\n<p>d</p>\n</li>\n</ul>\n"- it "CM277" $- "- a\n- ```\n b\n\n\n ```\n- c" ==->- "<ul>\n<li>\n<p>a</p>\n</li>\n<li>\n<pre><code>b\n\n\n</code></pre>\n</li>\n<li>\n<p>c</p>\n</li>\n</ul>\n"- it "CM278" $- "- a\n - b\n\n c\n- d" ==->- "<ul>\n<li>\na\n<ul>\n<li>\n<p>b</p>\n<p>c</p>\n</li>\n</ul>\n</li>\n<li>\nd\n</li>\n</ul>\n"- it "CM279" $- "* a\n > b\n >\n* c" ==->- "<ul>\n<li>\n<p>a</p>\n<blockquote>\n<p>b</p>\n</blockquote>\n<blockquote>\n</blockquote>\n</li>\n<li>\n<p>c</p>\n</li>\n</ul>\n"- it "CM280" $- "- a\n > b\n ```\n c\n ```\n- d" ==->- "<ul>\n<li>\n<p>a</p>\n<blockquote>\n<p>b</p>\n</blockquote>\n<pre><code>c\n</code></pre>\n</li>\n<li>\n<p>d</p>\n</li>\n</ul>\n"- it "CM281" $- "- a" ==->- "<ul>\n<li>\na\n</li>\n</ul>\n"- it "CM282" $- "- a\n - b" ==->- "<ul>\n<li>\na\n<ul>\n<li>\nb\n</li>\n</ul>\n</li>\n</ul>\n"- it "CM283" $- "1. ```\n foo\n ```\n\n bar" ==->- "<ol>\n<li>\n<pre><code>foo\n</code></pre>\n<p>bar</p>\n</li>\n</ol>\n"- it "CM284" $- "* foo\n * bar\n\n baz" ==->- "<ul>\n<li>\nfoo\n<ul>\n<li>\nbar\n</li>\n</ul>\nbaz\n</li>\n</ul>\n"- it "CM285" $- "- a\n - b\n - c\n\n- d\n - e\n - f" ==->- "<ul>\n<li>\na\n<ul>\n<li>\nb\n</li>\n<li>\nc\n</li>\n</ul>\n</li>\n<li>\nd\n<ul>\n<li>\ne\n</li>\n<li>\nf\n</li>\n</ul>\n</li>\n</ul>\n"- context "6 Inlines" $- it "CM286" $- let s = "`hi`lo`\n"- in s ~-> err (posN 7 s) (ueib <> etok '`' <> elabel "code span content")- context "6.1 Blackslash escapes" $ do- it "CM287" $- "\\!\\\"\\#\\$\\%\\&\\'\\(\\)\\*\\+\\,\\-\\.\\/\\:\\;\\<\\=\\>\\?\\@\\[\\\\\\]\\^\\_\\`\\{\\|\\}\\~\n"- ==-> "<p>!"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~</p>\n"- it "CM288" $- "\\\t\\A\\a\\ \\3\\φ\\«" ==->- "<p>\\\t\\A\\a\\ \\3\\φ\\«</p>\n"- it "CM289" $- "\\*not emphasized\\*\n\\<br/> not a tag\n\\[not a link\\](/foo)\n\\`not code\\`\n1\\. not a list\n\\* not a list\n\\# not a heading\n\\[foo\\]: /url \"not a reference\"\n" ==->- "<p>*not emphasized*\n<br/> not a tag\n[not a link](/foo)\n`not code`\n1. not a list\n* not a list\n# not a heading\n[foo]: /url "not a reference"</p>\n"- it "CM290" $- let s = "\\\\*emphasis*"- in s ~-> errFancy (posN 2 s) (nonFlanking "*")- xit "CM291" $- "foo\\\nbar" ==->- "<p>foo<br>\nbar</p>\n"- it "CM292" $- "`` \\[\\` ``" ==->- "<p><code>\\[\\`</code></p>\n"- it "CM293" $- " \\[\\]" ==->- "<pre><code>\\[\\]\n</code></pre>\n"- it "CM294" $- "~~~\n\\[\\]\n~~~" ==->- "<pre><code>\\[\\]\n</code></pre>\n"- it "CM295" $- "<http://example.com?find=*>" ==->- "<p><a href=\"http://example.com/?find=*\">http://example.com/?find=*</a></p>\n"- xit "CM296" $ -- FIXME pending HTML inlines- "<a href=\"/bar\\/)\">" ==->- "<p><a href="/bar/)"></p>\n"- it "CM297" $- let s = "[foo](/bar\\* \"ti\\*tle\")"- in s ~-> err (posN 10 s)- (utok '\\' <> etok '#' <> etok '/' <> etok '?' <> euri <> eppi)- it "CM298" $- let s = "[foo]\n\n[foo]: /bar\\* \"ti\\*tle\""- in s ~-> err (posN 18 s)- (utok '\\' <> etok '#' <> etok '/' <> etok '?' <> euri <> eppi)- it "CM299" $- "``` foo\\+bar\nfoo\n```" ==->- "<pre><code class=\"language-foo+bar\">foo\n</code></pre>\n"- context "6.2 Entity and numeric character references" $ do- it "CM300" $- " & © Æ Ď\n¾ ℋ ⅆ\n∲ ≧̸" ==->- "<p> & © Æ Ď\n¾ ℋ ⅆ\n∲ ≧̸</p>\n"- it "CM301a" $- "# Ӓ Ϡ" ==->- "<p># Ӓ Ϡ</p>\n"- it "CM301b" $- "�" ~-> errFancy posI (invalidNumChar 98765432)- it "CM301c" $- "�" ~-> errFancy posI (invalidNumChar 0)- it "CM302" $- "" ആ ಫ" ==->- "<p>" ആ ಫ</p>\n"- it "CM303a" $- " " ==-> "<p>&nbsp</p>\n"- it "CM303b" $- let s = "&x;"- in s ~-> errFancy posI (unknownEntity "x")- it "CM303c" $- let s = "&#;"- in s ~-> err (posN 2 s) (utok ';' <> etok 'x' <> etok 'X' <> elabel "integer")- it "CM303d" $- let s = "&#x;"- in s ~-> err (posN 3 s) (utok ';' <> elabel "hexadecimal integer")- it "CM303e" $- let s = "&ThisIsNotDefined;"- in s ~-> errFancy posI (unknownEntity "ThisIsNotDefined")- it "CM303f" $- "&hi?;" ==-> "<p>&hi?;</p>\n"- it "CM304" $- "©" ==->- "<p>&copy</p>\n"- it "CM305" $- let s = "&MadeUpEntity;"- in s ~-> errFancy posI (unknownEntity "MadeUpEntity")- it "CM306" $- "<a href=\"öö.html\">" ==->- "<p><a href="\246\246.html"></p>\n"- it "CM307" $- "[foo](/föö \"föö\")" ==->- "<p><a href=\"/f&ouml;&ouml;\" title=\"f\246\246\">foo</a></p>\n"- it "CM308" $- "[foo]\n\n[foo]: /föö \"föö\"" ==->- "<p><a href=\"/f&ouml;&ouml;\" title=\"f\246\246\">foo</a></p>\n"- it "CM309" $- "``` föö\nfoo\n```" ==->- "<pre><code class=\"language-f\246\246\">foo\n</code></pre>\n"- it "CM310" $- "`föö`" ==->- "<p><code>föö</code></p>\n"- it "CM311" $- " föfö" ==->- "<pre><code>f&ouml;f&ouml;\n</code></pre>\n"- context "6.3 Code spans" $ do- it "CM312" $- "`foo`" ==-> "<p><code>foo</code></p>\n"- it "CM313" $- "`` foo ` bar ``" ==->- "<p><code>foo ` bar</code></p>\n"- it "CM314" $- "` `` `" ==-> "<p><code>``</code></p>\n"- it "CM315" $- "``\nfoo\n``" ==-> "<p><code>foo</code></p>\n"- it "CM316" $- "`foo bar\n baz`" ==-> "<p><code>foo bar baz</code></p>\n"- it "CM317" $- "`a b`" ==-> "<p><code>a b</code></p>\n"- it "CM318" $- "`foo `` bar`" ==-> "<p><code>foo `` bar</code></p>\n"- it "CM319" $- let s = "`foo\\`bar`\n"- in s ~-> err (posN 10 s) (ueib <> etok '`' <> elabel "code span content")- it "CM320" $- let s = "*foo`*`\n"- in s ~-> err (posN 7 s) (ueib <> etok '*' <> eic)- it "CM321" $- let s = "[not a `link](/foo`)\n"- in s ~-> err (posN 20 s) (ueib <> etok ']' <> eic)- it "CM322" $- let s = "`<a href=\"`\">`\n"- in s ~-> err (posN 14 s) (ueib <> etok '`' <> elabel "code span content")- xit "CM323" $ -- FIXME pending HTML inlines- "<a href=\"`\">`" ==-> "<p><a href=\"`\">`</p>\n"- it "CM324" $- let s = "`<http://foo.bar.`baz>`\n"- in s ~-> err (posN 23 s) (ueib <> etok '`' <> elabel "code span content")- it "CM325" $- "<http://foo.bar.`baz>`" ==->- "<p><http://foo.bar.<code>baz></code></p>\n"- it "CM326" $- let s = "```foo``\n"- in s ~-> err (posN 8 s) (ueib <> etok '`' <> elabel "code span content")- it "CM327" $- let s = "`foo\n"- in s ~-> err (posN 4 s) (ueib <> etok '`' <> elabel "code span content")- it "CM328" $- let s = "`foo``bar``\n"- in s ~-> err (posN 11 s) (ueib <> etok '`' <> elabel "code span content")- context "6.4 Emphasis and strong emphasis" $ do- it "CM329" $- "*foo bar*" ==-> "<p><em>foo bar</em></p>\n"- it "CM330" $- let s = "a * foo bar*\n"- in s ~-> errFancy (posN 2 s) (nonFlanking "*")- it "CM331" $- let s = "a*\"foo\"*\n"- in s ~-> errFancy (posN 1 s) (nonFlanking "*")- it "CM332" $- let s = "* a *\n"- in s ~-> errFancy posI (nonFlanking "*")- it "CM333" $- let s = "foo*bar*\n"- in s ~-> errFancy (posN 3 s) (nonFlanking "*")- it "CM334" $- let s = "5*6*78\n"- in s ~-> errFancy (posN 1 s) (nonFlanking "*")- it "CM335" $- "_foo bar_" ==-> "<p><em>foo bar</em></p>\n"- it "CM336" $- let s = "_ foo bar_\n"- in s ~-> errFancy posI (nonFlanking "_")- it "CM337" $- let s = "a_\"foo\"_\n"- in s ~-> errFancy (posN 1 s) (nonFlanking "_")- it "CM338" $- let s = "foo_bar_\n"- in s ~-> errFancy (posN 3 s) (nonFlanking "_")- it "CM339" $- let s = "5_6_78\n"- in s ~-> errFancy (posN 1 s) (nonFlanking "_")- it "CM340" $- let s = "пристаням_стремятся_\n"- in s ~-> errFancy (posN 9 s) (nonFlanking "_")- it "CM341" $- let s = "aa_\"bb\"_cc\n"- in s ~-> errFancy (posN 2 s) (nonFlanking "_")- it "CM342" $- let s = "foo-_(bar)_\n"- in s ~-> errFancy (posN 4 s) (nonFlanking "_")- it "CM343" $- let s = "_foo*\n"- in s ~-> err (posN 4 s) (utok '*' <> etok '_' <> eic)- it "CM344" $- let s = "*foo bar *\n"- in s ~-> errFancy (posN 9 s) (nonFlanking "*")- it "CM345" $- let s = "*foo bar\n*\n"- in s ~-> err (posN 8 s) (ueib <> etok '*' <> eic)- it "CM346" $- let s = "*(*foo)\n"- in s ~-> errFancy posI (nonFlanking "*")- it "CM347" $- let s = "*(*foo*)*\n"- in s ~-> errFancy posI (nonFlanking "*")- it "CM348" $- let s = "*foo*bar\n"- in s ~-> errFancy (posN 4 s) (nonFlanking "*")- it "CM349" $- let s = "_foo bar _\n"- in s ~-> errFancy (posN 9 s) (nonFlanking "_")- it "CM350" $- let s = "_(_foo)\n"- in s ~-> errFancy posI (nonFlanking "_")- it "CM351" $- let s = "_(_foo_)_\n"- in s ~-> errFancy posI (nonFlanking "_")- it "CM352" $- let s = "_foo_bar\n"- in s ~-> errFancy (posN 4 s) (nonFlanking "_")- it "CM353" $- let s = "_пристаням_стремятся\n"- in s ~-> errFancy (posN 10 s) (nonFlanking "_")- it "CM354" $- let s = "_foo_bar_baz_\n"- in s ~-> errFancy (posN 4 s) (nonFlanking "_")- it "CM355" $- "_\\(bar\\)_.\n" ==-> "<p><em>(bar)</em>.</p>\n"- it "CM356" $- "**foo bar**\n" ==-> "<p><strong>foo bar</strong></p>\n"- it "CM357" $- let s = "** foo bar**\n"- in s ~-> errFancy posI (nonFlanking "**")- it "CM358" $- let s = "a**\"foo\"**\n"- in s ~-> errFancy (posN 1 s) (nonFlanking "**")- it "CM359" $- let s = "foo**bar**\n"- in s ~-> errFancy (posN 3 s) (nonFlanking "**")- it "CM360" $- "__foo bar__" ==-> "<p><strong>foo bar</strong></p>\n"- it "CM361" $- let s = "__ foo bar__\n"- in s ~-> errFancy posI (nonFlanking "__")- it "CM362" $- let s = "__\nfoo bar__\n"- in s ~-> errFancy posI (nonFlanking "__")- it "CM363" $- let s = "a__\"foo\"__\n"- in s ~-> errFancy (posN 1 s) (nonFlanking "__")- it "CM364" $- let s = "foo__bar__\n"- in s ~-> errFancy (posN 3 s) (nonFlanking "__")- it "CM365" $- let s = "5__6__78\n"- in s ~-> errFancy (posN 1 s) (nonFlanking "__")- it "CM366" $- let s = "пристаням__стремятся__\n"- in s ~-> errFancy (posN 9 s) (nonFlanking "__")- it "CM367" $- "__foo, __bar__, baz__" ==->- "<p><strong>foo, <strong>bar</strong>, baz</strong></p>\n"- it "CM368" $- "foo-__\\(bar\\)__" ==-> "<p>foo-<strong>(bar)</strong></p>\n"- it "CM369" $- let s = "**foo bar **\n"- in s ~-> errFancy (posN 10 s) (nonFlanking "**")- it "CM370" $- let s = "**(**foo)\n"- in s ~-> errFancy posI (nonFlanking "**")- it "CM371" $- let s = "*(**foo**)*\n"- in s ~-> errFancy posI (nonFlanking "*")- xit "CM372" $ -- FIXME doesn't pass with current approach- "**Gomphocarpus (*Gomphocarpus physocarpus*, syn.\n*Asclepias physocarpa*)**" ==->- "<p><strong>Gomphocarpus (<em>Gomphocarpus physocarpus</em>, syn.\n<em>Asclepias physocarpa</em>)</strong></p>\n"- it "CM373" $- "**foo \"*bar*\" foo**" ==->- "<p><strong>foo "<em>bar</em>" foo</strong></p>\n"- it "CM374" $- let s = "**foo**bar\n"- in s ~-> errFancy (posN 5 s) (nonFlanking "**")- it "CM375" $- let s = "__foo bar __\n"- in s ~-> errFancy (posN 10 s) (nonFlanking "__")- it "CM376" $- let s = "__(__foo)\n"- in s ~-> errFancy posI (nonFlanking "__")- it "CM377" $- let s = "_(__foo__)_\n"- in s ~-> errFancy posI (nonFlanking "_")- it "CM378" $- let s = "__foo__bar\n"- in s ~-> errFancy (posN 5 s) (nonFlanking "__")- it "CM379" $- let s = "__пристаням__стремятся\n"- in s ~-> errFancy (posN 11 s) (nonFlanking "__")- it "CM380" $- "__foo\\_\\_bar\\_\\_baz__" ==->- "<p><strong>foo__bar__baz</strong></p>\n"- it "CM381" $- "__\\(bar\\)__." ==->- "<p><strong>(bar)</strong>.</p>\n"- it "CM382" $- "*foo [bar](/url)*" ==->- "<p><em>foo <a href=\"/url\">bar</a></em></p>\n"- it "CM383" $- "*foo\nbar*" ==->- "<p><em>foo\nbar</em></p>\n"- it "CM384" $- "_foo __bar__ baz_" ==->- "<p><em>foo <strong>bar</strong> baz</em></p>\n"- it "CM385" $- "_foo _bar_ baz_" ==->- "<p><em>foo <em>bar</em> baz</em></p>\n"- it "CM386" $- let s = "__foo_ bar_"- in s ~-> err (posN 5 s) (utoks "_ " <> etoks "__" <> eic)- it "CM387" $- "*foo *bar**" ==->- "<p><em>foo <em>bar</em></em></p>\n"- it "CM388" $- "*foo **bar** baz*" ==->- "<p><em>foo <strong>bar</strong> baz</em></p>\n"- it "CM389" $- let s = "*foo**bar**baz*\n"- in s ~-> errFancy (posN 5 s) (nonFlanking "*")- it "CM390" $- "***foo** bar*\n" ==-> "<p><em><strong>foo</strong> bar</em></p>\n"- it "CM391" $- "*foo **bar***\n" ==-> "<p><em>foo <strong>bar</strong></em></p>\n"- it "CM392" $- let s = "*foo**bar***\n"- in s ~-> errFancy (posN 5 s) (nonFlanking "*")- it "CM393" $- "*foo **bar *baz* bim** bop*\n" ==->- "<p><em>foo <strong>bar <em>baz</em> bim</strong> bop</em></p>\n"- it "CM394" $- "*foo [*bar*](/url)*\n" ==->- "<p><em>foo <a href=\"/url\"><em>bar</em></a></em></p>\n"- it "CM395" $- let s = "** is not an empty emphasis\n"- in s ~-> errFancy posI (nonFlanking "**")- it "CM396" $- let s = "**** is not an empty strong emphasis\n"- in s ~-> errFancy posI (nonFlanking "****")- it "CM397" $- "**foo [bar](/url)**" ==->- "<p><strong>foo <a href=\"/url\">bar</a></strong></p>\n"- it "CM398" $- "**foo\nbar**" ==->- "<p><strong>foo\nbar</strong></p>\n"- it "CM399" $- "__foo _bar_ baz__" ==->- "<p><strong>foo <em>bar</em> baz</strong></p>\n"- it "CM400" $- "__foo __bar__ baz__" ==->- "<p><strong>foo <strong>bar</strong> baz</strong></p>\n"- it "CM401" $- "____foo__ bar__" ==->- "<p><strong><strong>foo</strong> bar</strong></p>\n"- it "CM402" $- "**foo **bar****" ==->- "<p><strong>foo <strong>bar</strong></strong></p>\n"- it "CM403" $- "**foo *bar* baz**" ==->- "<p><strong>foo <em>bar</em> baz</strong></p>\n"- it "CM404" $- let s = "**foo*bar*baz**\n"- in s ~-> err (posN 5 s) (utoks "*b" <> etoks "**" <> eic)- it "CM405" $- "***foo* bar**" ==->- "<p><strong><em>foo</em> bar</strong></p>\n"- it "CM406" $- "**foo *bar***" ==->- "<p><strong>foo <em>bar</em></strong></p>\n"- it "CM407" $- "**foo *bar **baz**\nbim* bop**" ==->- "<p><strong>foo <em>bar <strong>baz</strong>\nbim</em> bop</strong></p>\n"- it "CM408" $- "**foo [*bar*](/url)**" ==->- "<p><strong>foo <a href=\"/url\"><em>bar</em></a></strong></p>\n"- it "CM409" $- let s = "__ is not an empty emphasis\n"- in s ~-> errFancy posI (nonFlanking "__")- it "CM410" $- let s = "____ is not an empty strong emphasis\n"- in s ~-> errFancy posI (nonFlanking "____")- it "CM411" $- let s = "foo ***\n"- in s ~-> errFancy (posN 4 s) (nonFlanking "***")- it "CM412" $- "foo *\\**" ==-> "<p>foo <em>*</em></p>\n"- it "CM413" $- "foo *\\_*\n" ==-> "<p>foo <em>_</em></p>\n"- it "CM414" $- let s = "foo *****\n"- in s ~-> errFancy (posN 8 s) (nonFlanking "*")- it "CM415" $- "foo **\\***" ==-> "<p>foo <strong>*</strong></p>\n"- it "CM416" $- "foo **\\_**\n" ==-> "<p>foo <strong>_</strong></p>\n"- it "CM417" $- let s = "**foo*\n"- in s ~-> err (posN 5 s) (utok '*' <> etoks "**" <> eic)- it "CM418" $- let s = "*foo**\n"- in s ~-> errFancy (posN 5 s) (nonFlanking "*")- it "CM419" $- let s = "***foo**\n"- in s ~-> err (posN 8 s) (ueib <> etok '*' <> eic)- it "CM420" $- let s = "****foo*\n"- in s ~-> err (posN 7 s) (utok '*' <> etoks "**" <> eic)- it "CM421" $- let s = "**foo***\n"- in s ~-> errFancy (posN 7 s) (nonFlanking "*")- it "CM422" $- let s = "*foo****\n"- in s ~-> errFancy (posN 5 s) (nonFlanking "***")- it "CM423" $- let s = "foo ___\n"- in s ~-> errFancy (posN 4 s) (nonFlanking "___")- it "CM424" $- "foo _\\__" ==-> "<p>foo <em>_</em></p>\n"- it "CM425" $- "foo _\\*_" ==-> "<p>foo <em>*</em></p>\n"- it "CM426" $- let s = "foo _____\n"- in s ~-> errFancy (posN 8 s) (nonFlanking "_")- it "CM427" $- "foo __\\___" ==-> "<p>foo <strong>_</strong></p>\n"- it "CM428" $- "foo __\\*__" ==-> "<p>foo <strong>*</strong></p>\n"- it "CM429" $- let s = "__foo_\n"- in s ~-> err (posN 5 s) (utok '_' <> etoks "__" <> eic)- it "CM430" $- let s = "_foo__\n"- in s ~-> errFancy (posN 5 s) (nonFlanking "_")- it "CM431" $- let s = "___foo__\n"- in s ~-> err (posN 8 s) (ueib <> etok '_' <> eic)- it "CM432" $- let s = "____foo_\n"- in s ~-> err (posN 7 s) (utok '_' <> etoks "__" <> eic)- it "CM433" $- let s = "__foo___\n"- in s ~-> errFancy (posN 7 s) (nonFlanking "_")- it "CM434" $- let s = "_foo____\n"- in s ~-> errFancy (posN 5 s) (nonFlanking "___")- it "CM435" $- "**foo**" ==-> "<p><strong>foo</strong></p>\n"- it "CM436" $- "*_foo_*" ==-> "<p><em><em>foo</em></em></p>\n"- it "CM437" $- "__foo__" ==-> "<p><strong>foo</strong></p>\n"- it "CM438" $- "_*foo*_" ==-> "<p><em><em>foo</em></em></p>\n"- it "CM439" $- "****foo****" ==-> "<p><strong><strong>foo</strong></strong></p>\n"- it "CM440" $- "____foo____" ==-> "<p><strong><strong>foo</strong></strong></p>\n"- it "CM441" $- "******foo******" ==->- "<p><strong><strong><strong>foo</strong></strong></strong></p>\n"- it "CM442" $- "***foo***" ==-> "<p><em><strong>foo</strong></em></p>\n"- it "CM443" $- "_____foo_____" ==->- "<p><strong><strong><em>foo</em></strong></strong></p>\n"- it "CM444" $- let s = "*foo _bar* baz_\n"- in s ~-> err (posN 9 s) (utok '*' <> etok '_' <> eic)- it "CM445" $- let s = "*foo __bar *baz bim__ bam*\n"- in s ~-> err (posN 19 s) (utok '_' <> etok '*' <> eic)- it "CM446" $- let s = "**foo **bar baz**\n"- in s ~-> err (posN 17 s) (ueib <> etoks "**" <> eic)- it "CM447" $- let s = "*foo *bar baz*\n"- in s ~-> err (posN 14 s) (ueib <> etok '*' <> eic)- it "CM448" $- let s = "*[bar*](/url)\n"- in s ~-> err (posN 5 s) (utok '*' <> etok ']' <> eic)- it "CM449" $- let s = "_foo [bar_](/url)\n"- in s ~-> err (posN 9 s) (utok '_' <> etok ']' <> eic)- xit "CM450" $ -- FIXME pending HTML inlines- "*<img src=\"foo\" title=\"*\"/>" ==->- "<p>*<img src=\"foo\" title=\"*\"/></p>\n"- xit "CM451" $ -- FIXME pending HTML inlines- "**<a href=\"**\">" ==-> "<p>**<a href=\"**\"></p>\n"- xit "CM452" $- "__<a href=\"__\">\n" ==-> "<p>__<a href=\"__\"></p>\n"- it "CM453" $- "*a `*`*" ==-> "<p><em>a <code>*</code></em></p>\n"- it "CM454" $- "_a `_`_" ==-> "<p><em>a <code>_</code></em></p>\n"- it "CM455" $- let s = "**a<http://foo.bar/?q=**>"- in s ~-> err (posN 25 s) (ueib <> etoks "**" <> eic)- it "CM456" $- let s = "__a<http://foo.bar/?q=__>"- in s ~-> err (posN 26 s) (ueib <> etoks "__" <> eic)- context "6.5 Links" $ do- it "CM457" $- "[link](/uri \"title\")" ==->- "<p><a href=\"/uri\" title=\"title\">link</a></p>\n"- it "CM458" $- "[link](/uri)" ==->- "<p><a href=\"/uri\">link</a></p>\n"- it "CM459" $- "[link]()" ==->- "<p><a href>link</a></p>\n"- it "CM460" $- "[link](<>)" ==->- "<p><a href>link</a></p>\n"- it "CM461" $- let s = "[link](/my uri)\n"- in s ~-> err (posN 11 s)- (utok 'u' <> etok '"' <> etok '\'' <> etok '(' <> elabel "white space")- it "CM462" $- let s = "[link](</my uri>)\n"- in s ~-> err (posN 11 s)- (utok ' ' <> etok '#' <> etok '/' <> etok '>' <> etok '?' <> eppi)- it "CM463" $- let s = "[link](foo\nbar)\n"- in s ~-> err (posN 11 s)- (utok 'b' <> etok '"' <> etok '\'' <> etok '(' <> elabel "white space")- it "CM464" $- let s = "[link](<foo\nbar>)\n"- in s ~-> err (posN 11 s)- (utok '\n' <> etok '#' <> etok '/' <> etok '>' <> etok '?' <> eppi)- it "CM465" $- let s = "[link](\\(foo\\))"- in s ~-> err (posN 7 s) (utok '\\' <> etoks "//" <> etok '#' <>- etok '/' <> etok '<' <> etok '?' <> elabel "ASCII alpha character" <>- euri <> elabel "path piece" <> elabel "white space")- it "CM466" $- "[link](foo(and(bar)))\n" ==->- "<p><a href=\"foo(and(bar\">link</a>))</p>\n"- it "CM467" $- let s = "[link](foo\\(and\\(bar\\))"- in s ~-> err (posN 10 s) (utok '\\' <> etok '#' <> etok '/' <> etok '?' <> euri <> eppi)- it "CM468" $- "[link](<foo(and(bar)>)" ==->- "<p><a href=\"foo(and(bar)\">link</a></p>\n"- it "CM469" $- let s = "[link](foo\\)\\:)"- in s ~-> err (posN 10 s) (utok '\\' <> etok '#' <> etok '/' <> etok '?' <> euri <> eppi)- it "CM470" $- "[link](#fragment)\n\n[link](http://example.com#fragment)\n\n[link](http://example.com?foo=3#frag)\n"- ==-> "<p><a href=\"#fragment\">link</a></p>\n<p><a href=\"http://example.com/#fragment\">link</a></p>\n<p><a href=\"http://example.com/?foo=3#frag\">link</a></p>\n"- it "CM471" $- let s = "[link](foo\\bar)"- in s ~-> err (posN 10 s) (utok '\\' <> etok '#' <> etok '/' <> etok '?' <> euri <> eppi)- xit "CM472" $ -- FIXME pending entity references- "[link](foo%20bä)"- ==-> "<p><a href=\"foo%20b&auml;\">link</a></p>\n"- it "CM473" $- let s = "[link](\"title\")"- in s ~-> err (posN 7 s)- (utok '"' <> etoks "//" <> etok '#' <> etok '/' <> etok '<' <>- etok '?' <> elabel "ASCII alpha character" <> euri <>- elabel "path piece" <> elabel "white space")- it "CM474" $- "[link](/url \"title\")\n[link](/url 'title')\n[link](/url (title))" ==->- "<p><a href=\"/url\" title=\"title\">link</a>\n<a href=\"/url\" title=\"title\">link</a>\n<a href=\"/url\" title=\"title\">link</a></p>\n"- xit "CM475" $ -- FIXME pending entity references- "[link](/url \"title \\\""\")\n" ==->- "<p><a href=\"/url\" title=\"title ""\">link</a></p>\n"- it "CM476" $- let s = "[link](/url \"title\")"- in s ~-> err (posN 11 s)- (utok ' ' <> etok '#' <> etok '/' <> etok '?' <> euri <> eppi)- it "CM477" $- let s = "[link](/url \"title \"and\" title\")\n"- in s ~-> err (posN 20 s) (utok 'a' <> etok ')' <> elabel "white space")- it "CM478" $- "[link](/url 'title \"and\" title')" ==->- "<p><a href=\"/url\" title=\"title "and" title\">link</a></p>\n"- it "CM479" $- "[link]( /uri\n \"title\" )" ==->- "<p><a href=\"/uri\" title=\"title\">link</a></p>\n"- it "CM480" $- let s = "[link] (/uri)\n"- in s ~-> errFancy (posN 1 s) (couldNotMatchRef "link" [])- it "CM481" $- let s = "[link [foo [bar]]](/uri)\n"- in s ~-> err (posN 6 s) (utok '[' <> etok ']' <> eic)- it "CM482" $- let s = "[link] bar](/uri)\n"- in s ~-> errFancy (posN 1 s) (couldNotMatchRef "link" [])- it "CM483" $- let s = "[link [bar](/uri)\n"- in s ~-> err (posN 6 s) (utok '[' <> etok ']' <> eic)- it "CM484" $- "[link \\[bar](/uri)\n" ==->- "<p><a href=\"/uri\">link [bar</a></p>\n"- it "CM485" $- "[link *foo **bar** `#`*](/uri)" ==->- "<p><a href=\"/uri\">link <em>foo <strong>bar</strong> <code>#</code></em></a></p>\n"- it "CM486" $- "[](/uri)" ==->- "<p><a href=\"/uri\"><img src=\"moon.jpg\" alt=\"moon\"></a></p>\n"- it "CM487" $- let s = "[foo [bar](/uri)](/uri)\n"- in s ~-> err (posN 5 s) (utok '[' <> etok ']' <> eic)- it "CM488" $- let s = "[foo *[bar [baz](/uri)](/uri)*](/uri)\n"- in s ~-> err (posN 6 s) (utok '[' <> eic)- it "CM489" $- let s = "](uri2)](uri3)"- in s ~-> err (posN 3 s) (utok '[' <> eic)- it "CM490" $- let s = "*[foo*](/uri)\n"- in s ~-> err (posN 5 s) (utok '*' <> etok ']' <> eic)- it "CM491" $- let s = "[foo *bar](baz*)\n"- in s ~-> err (posN 9 s) (utok ']' <> etok '*' <> eic)- it "CM492" $- let s = "*foo [bar* baz]\n"- in s ~-> err (posN 9 s) (utok '*' <> etok ']' <> eic)- xit "CM493" $ -- FIXME pending inline HTML- let s = "[foo <bar attr=\"](baz)\">"- in s ~-> err (posN 5 s) (utok '<' <> etok ']')- it "CM494" $- let s = "[foo`](/uri)`\n"- in s ~-> err (posN 13 s) (ueib <> etok ']' <> eic)- it "CM495" $- "[foo<http://example.com/?search=](uri)>" ==->- "<p><a href=\"uri\">foo<http://example.com/?search=</a>></p>\n"- it "CM496" $- "[foo][bar]\n\n[bar]: /url \"title\"" ==->- "<p><a href=\"/url\" title=\"title\">foo</a></p>\n"- it "CM497" $- let s = "[link [foo [bar]]][ref]\n\n[ref]: /uri"- in s ~-> err (posN 6 s) (utok '[' <> etok ']' <> eic)- it "CM498" $- "[link \\[bar][ref]\n\n[ref]: /uri" ==->- "<p><a href=\"/uri\">link [bar</a></p>\n"- it "CM499" $- "[link *foo **bar** `#`*][ref]\n\n[ref]: /uri" ==->- "<p><a href=\"/uri\">link <em>foo <strong>bar</strong> <code>#</code></em></a></p>\n"- it "CM500" $- "[][ref]\n\n[ref]: /uri" ==->- "<p><a href=\"/uri\"><img src=\"moon.jpg\" alt=\"moon\"></a></p>\n"- it "CM501" $- let s = "[foo [bar](/uri)][ref]\n\n[ref]: /uri"- in s ~-> err (posN 5 s) (utok '[' <> etok ']' <> eic)- it "CM502" $- let s = "[foo *bar [baz][ref]*][ref]\n\n[ref]: /uri"- in s ~-> err (posN 10 s) (utok '[' <> etok '*' <> eic)- it "CM503" $- let s = "*[foo*][ref]\n\n[ref]: /uri"- in s ~-> err (posN 5 s) (utok '*' <> etok ']' <> eic)- it "CM504" $- let s = "[foo *bar][ref]\n\n[ref]: /uri"- in s ~-> err (posN 9 s) (utok ']' <> etok '*' <> eic)- it "CM505" $- "[foo <bar attr=\"][ref]\">\n\n[ref]: /uri" ==->- "<p><a href=\"/uri\">foo <bar attr="</a>"></p>\n"- it "CM506" $- let s = "[foo`][ref]`\n\n[ref]: /uri"- in s ~-> err (posN 12 s) (ueib <> etok ']' <> eic)- it "CM507" $- "[foo<http://example.com/?search=][ref]>\n\n[ref]: /uri" ==->- "<p><a href=\"/uri\">foo<http://example.com/?search=</a>></p>\n"- it "CM508" $- "[foo][BaR]\n\n[bar]: /url \"title\"" ==->- "<p><a href=\"/url\" title=\"title\">foo</a></p>\n"- it "CM509" $- "[Толпой][Толпой] is a Russian word.\n\n[ТОЛПОЙ]: /url" ==->- "<p><a href=\"/url\">Толпой</a> is a Russian word.</p>\n"- it "CM510" $- "[Foo\n bar]: /url\n\n[Baz][Foo bar]" ==->- "<p><a href=\"/url\">Baz</a></p>\n"- it "CM511" $- let s = "[foo] [bar]\n\n[bar]: /url \"title\""- in s ~-> errFancy (posN 1 s) (couldNotMatchRef "foo" [])- it "CM512" $- let s = "[foo]\n[bar]\n\n[bar]: /url \"title\""- in s ~-> errFancy (posN 1 s) (couldNotMatchRef "foo" [])- it "CM513" $- let s = "[foo]: /url1\n\n[foo]: /url2\n\n[bar][foo]"- in s ~-> errFancy (posN 15 s) (duplicateRef "foo")- it "CM514" $- "[bar][foo\\!]\n\n[foo!]: /url" ==->- "<p><a href=\"/url\">bar</a></p>\n"- it "CM515" $- let s = "[foo][ref[]\n\n[ref[]: /uri"- in s ~~->- [ err (posN 9 s) (utok '[' <> etok ']' <> elabel "the rest of reference label")- , err (posN 17 s) (utok '[' <> etok ']' <> eic) ]- it "CM516" $- let s = "[foo][ref[bar]]\n\n[ref[bar]]: /uri"- in s ~~->- [ err (posN 9 s) (utok '[' <> etok ']' <> elabel "the rest of reference label")- , err (posN 21 s) (utok '[' <> etok ']' <> eic) ]- it "CM517" $- let s = "[[[foo]]]\n\n[[[foo]]]: /url"- in s ~~->- [ err (posN 1 s) (utok '[' <> eic)- , err (posN 12 s) (utok '[' <> eic) ]- it "CM518" $- "[foo][ref\\[]\n\n[ref\\[]: /uri" ==->- "<p><a href=\"/uri\">foo</a></p>\n"- it "CM519" $- "[bar\\\\]: /uri\n\n[bar\\\\]" ==->- "<p><a href=\"/uri\">bar\\</a></p>\n"- it "CM520" $- let s = "[]\n\n[]: /uri"- in s ~~->- [ err (posN 1 s) (utok ']' <> eic)- , err (posN 5 s) (utok ']' <> eic) ]- it "CM521" $- let s = "[\n ]\n\n[\n ]: /uri"- in s ~~->- [ errFancy (posN 1 s) (couldNotMatchRef "" [])- , errFancy (posN 7 s) (couldNotMatchRef "" []) ]- it "CM522" $- "[foo][]\n\n[foo]: /url \"title\"" ==->- "<p><a href=\"/url\" title=\"title\">foo</a></p>\n"- it "CM523" $- let s = "[*foo* bar][]\n\n[*foo* bar]: /url \"title\""- in s ~-> errFancy (posN 1 s) (couldNotMatchRef "foo bar" ["*foo* bar"])- it "CM524" $- "[Foo][]\n\n[foo]: /url \"title\"" ==->- "<p><a href=\"/url\" title=\"title\">Foo</a></p>\n"- it "CM525" $- let s = "[foo] \n[]\n\n[foo]: /url \"title\""- in s ~-> err (posN 8 s) (utok ']' <> eic)- it "CM526" $- "[foo]\n\n[foo]: /url \"title\"" ==->- "<p><a href=\"/url\" title=\"title\">foo</a></p>\n"- it "CM527" $- let s = "[*foo* bar]\n\n[*foo* bar]: /url \"title\""- in s ~-> errFancy (posN 1 s) (couldNotMatchRef "foo bar" ["*foo* bar"])- it "CM528" $- let s = "[[*foo* bar]]\n\n[*foo* bar]: /url \"title\""- in s ~-> err (posN 1 s) (utok '[' <> eic)- it "CM529" $- let s = "[[bar [foo]\n\n[foo]: /url"- in s ~-> err (posN 1 s) (utok '[' <> eic)- it "CM530" $- "[Foo]\n\n[foo]: /url \"title\"" ==->- "<p><a href=\"/url\" title=\"title\">Foo</a></p>\n"- it "CM531" $- "[foo] bar\n\n[foo]: /url" ==->- "<p><a href=\"/url\">foo</a> bar</p>\n"- it "CM532" $- let s = "\\[foo]\n\n[foo]: /url \"title\""- in s ~-> err (posN 5 s) (utok ']' <> eeib <> eic)- it "CM533" $- let s = "[foo*]: /url\n\n*[foo*]"- in s ~-> err (posN 19 s) (utok '*' <> etok ']' <> eic)- it "CM534" $- "[foo][bar]\n\n[foo]: /url1\n[bar]: /url2" ==->- "<p><a href=\"/url2\">foo</a></p>\n"- it "CM535" $- "[foo][]\n\n[foo]: /url1" ==->- "<p><a href=\"/url1\">foo</a></p>\n"- it "CM536" $- "[foo]()\n\n[foo]: /url1" ==->- "<p><a href>foo</a></p>\n"- it "CM537" $- let s = "[foo](not a link)\n\n[foo]: /url1"- in s ~-> err (posN 10 s)- (utok 'a' <> etok '"' <> etok '\'' <> etok '(' <> elabel "white space")- it "CM538" $- let s = "[foo][bar][baz]\n\n[baz]: /url"- in s ~-> errFancy (posN 6 s) (couldNotMatchRef "bar" ["baz"])- it "CM539" $- "[foo][bar][baz]\n\n[baz]: /url1\n[bar]: /url2" ==->- "<p><a href=\"/url2\">foo</a><a href=\"/url1\">baz</a></p>\n"- it "CM540" $- let s = "[foo][bar][baz]\n\n[baz]: /url1\n[foo]: /url2"- in s ~-> errFancy (posN 6 s) (couldNotMatchRef "bar" ["baz"])- context "6.6 Images" $ do- it "CM541" $- "![foo](/url \"title\")" ==->- "<p><img src=\"/url\" title=\"title\" alt=\"foo\"></p>\n"- it "CM542" $- "![foo *bar*](train.jpg \"train & tracks\")" ==->- "<p><img src=\"train.jpg\" title=\"train & tracks\" alt=\"foo bar\"></p>\n"- it "CM543" $- let s = "](/url2)\n"- in s ~-> err (posN 6 s) (utok '!' <> etok ']' <> eic)- it "CM544" $- "](/url2)" ==->- "<p><img src=\"/url2\" alt=\"foo bar\"></p>\n"- it "CM545" $- let s = "![foo *bar*][]\n\n[foo *bar*]: train.jpg \"train & tracks\"\n"- in s ~-> errFancy (posN 2 s) (couldNotMatchRef "foo bar" ["foo *bar*"])- it "CM546" $- "![foo *bar*][foobar]\n\n[FOOBAR]: train.jpg \"train & tracks\"" ==->- "<p><img src=\"train.jpg\" title=\"train & tracks\" alt=\"foo bar\"></p>\n"- it "CM547" $- "" ==->- "<p><img src=\"train.jpg\" alt=\"foo\"></p>\n"- it "CM548" $- "My ![foo bar](/path/to/train.jpg \"title\" )" ==->- "<p>My <img src=\"/path/to/train.jpg\" title=\"title\" alt=\"foo bar\"></p>\n"- it "CM549" $- "" ==->- "<p><img src=\"url\" alt=\"foo\"></p>\n"- it "CM550" $- "" ==-> "<p><img src=\"/url\" alt></p>\n"- it "CM551" $- "![foo][bar]\n\n[bar]: /url" ==->- "<p><img src=\"/url\" alt=\"foo\"></p>\n"- it "CM552" $- "![foo][bar]\n\n[BAR]: /url" ==->- "<p><img src=\"/url\" alt=\"foo\"></p>\n"- it "CM553" $- "![foo][]\n\n[foo]: /url \"title\"" ==->- "<p><img src=\"/url\" title=\"title\" alt=\"foo\"></p>\n"- it "CM554" $- "![foo bar][]\n\n[foo bar]: /url \"title\"" ==->- "<p><img src=\"/url\" title=\"title\" alt=\"foo bar\"></p>\n"- it "CM555" $- "![Foo][]\n\n[foo]: /url \"title\"" ==->- "<p><img src=\"/url\" title=\"title\" alt=\"Foo\"></p>\n"- it "CM556" $- let s = "![foo] \n[]\n\n[foo]: /url \"title\""- in s ~-> err (posN 9 s) (utok ']' <> eic)- it "CM557" $- "![foo]\n\n[foo]: /url \"title\"" ==->- "<p><img src=\"/url\" title=\"title\" alt=\"foo\"></p>\n"- it "CM558" $- "![*foo* bar]\n\n[foo bar]: /url \"title\"\n" ==->- "<p><img src=\"/url\" title=\"title\" alt=\"foo bar\"></p>\n"- it "CM559" $- let s = "![[foo]]\n\n[[foo]]: /url \"title\""- in s ~~->- [ errFancy (posN 3 s) (couldNotMatchRef "foo" [])- , err (posN 11 s) (utok '[' <> eic) ]- it "CM560" $- "![Foo]\n\n[foo]: /url \"title\"" ==->- "<p><img src=\"/url\" title=\"title\" alt=\"Foo\"></p>\n"- it "CM561" $- "!\\[foo\\]\n\n[foo]: /url \"title\"" ==->- "<p>![foo]</p>\n"- it "CM562" $- "\\![foo]\n\n[foo]: /url \"title\"" ==->- "<p>!<a href=\"/url\" title=\"title\">foo</a></p>\n"- context "6.7 Autolinks" $ do- it "CM563" $- "<http://foo.bar.baz>" ==->- "<p><a href=\"http://foo.bar.baz/\">http://foo.bar.baz/</a></p>\n"- it "CM564" $- "<http://foo.bar.baz/test?q=hello&id=22&boolean>" ==->- "<p><a href=\"http://foo.bar.baz/test?q=hello&id=22&boolean\">http://foo.bar.baz/test?q=hello&id=22&boolean</a></p>\n"- it "CM565" $- "<irc://foo.bar:2233/baz>" ==->- "<p><a href=\"irc://foo.bar:2233/baz\">irc://foo.bar:2233/baz</a></p>\n"- it "CM566" $- "<MAILTO:FOO@BAR.BAZ>" ==->- "<p><a href=\"mailto:FOO@BAR.BAZ\">FOO@BAR.BAZ</a></p>\n"- it "CM567" $- "<a+b+c:d>" ==->- "<p><a href=\"a+b+c:d\">a+b+c:d</a></p>\n"- it "CM568" $- "<made-up-scheme://foo,bar>" ==->- "<p><a href=\"made-up-scheme://foo/,bar\">made-up-scheme://foo/,bar</a></p>\n"- it "CM569" $- "<http://../>" ==->- "<p><http://../></p>\n"- it "CM570" $- "<localhost:5001/foo>" ==->- "<p><a href=\"localhost:5001/foo\">localhost:5001/foo</a></p>\n"- it "CM571" $- "<http://foo.bar/baz bim>\n" ==->- "<p><http://foo.bar/baz bim></p>\n"- it "CM572" $- "<http://example.com/\\[\\>" ==->- "<p><http://example.com/[></p>\n"- it "CM573" $- "<foo@bar.example.com>" ==->- "<p><a href=\"mailto:foo@bar.example.com\">foo@bar.example.com</a></p>\n"- it "CM574" $- "<foo+special@Bar.baz-bar0.com>" ==->- "<p><a href=\"mailto:foo+special@Bar.baz-bar0.com\">foo+special@Bar.baz-bar0.com</a></p>\n"- it "CM575" $- "<foo\\+@bar.example.com>" ==->- "<p><foo+@bar.example.com></p>\n"- it "CM576" $- "<>" ==->- "<p><></p>\n"- it "CM577" $- "< http://foo.bar >" ==->- "<p>< http://foo.bar ></p>\n"- it "CM578" $- "<m:abc>" ==->- "<p><a href=\"m:abc\">m:abc</a></p>\n"- it "CM579" $- "<foo.bar.baz>" ==->- "<p><a href=\"foo.bar.baz\">foo.bar.baz</a></p>\n"- it "CM580" $- "http://example.com" ==->- "<p>http://example.com</p>\n"- it "CM581" $- "foo@bar.example.com" ==->- "<p>foo@bar.example.com</p>\n"- context "6.9 Hard line breaks" $ do- -- NOTE We currently do not support hard line breaks represented in- -- markup as space before newline.- xit "CM603" $- "foo \nbaz" ==-> "<p>foo<br>\nbaz</p>\n"- it "CM604" $- "foo\\\nbaz\n" ==-> "<p>foo<br>\nbaz</p>\n"- xit "CM605" $- "foo \nbaz" ==-> "<p>foo<br>\nbaz</p>\n"- xit "CM606" $- "foo \n bar" ==-> "<p>foo<br>\nbar</p>\n"- it "CM607" $- "foo\\\n bar" ==-> "<p>foo<br>\nbar</p>\n"- xit "CM608" $- "*foo \nbar*" ==-> "<p><em>foo<br>\nbar</em></p>\n"- it "CM609" $- "*foo\\\nbar*" ==-> "<p><em>foo<br>\nbar</em></p>\n"- it "CM610" $- "`code \nspan`" ==-> "<p><code>code span</code></p>\n"- it "CM611" $- "`code\\\nspan`" ==-> "<p><code>code\\ span</code></p>\n"- xit "CM612" $- "<a href=\"foo \nbar\">" ==-> "<p><a href=\"foo \nbar\"></p>\n"- xit "CM613" $ -- FIXME pending HTML inlines- "<a href=\"foo\\\nbar\">" ==-> "<p><a href=\"foo\\\nbar\"></p>\n"- it "CM614" $- "foo\\" ==-> "<p>foo\\</p>\n"- xit "CM615" $- "foo " ==-> "<p>foo</p>\n"- it "CM616" $- "### foo\\" ==-> "<h3 id=\"foo\">foo\\</h3>\n"- it "CM617" $- "### foo " ==-> "<h3 id=\"foo\">foo</h3>\n"- context "6.10 Soft line breaks" $ do- it "CM618" $- "foo\nbaz" ==-> "<p>foo\nbaz</p>\n"- it "CM619" $- "foo \n baz" ==-> "<p>foo\nbaz</p>\n"- context "6.11 Textual content" $ do- it "CM620" $- "hello $.;'there" ==-> "<p>hello $.;'there</p>\n"- it "CM621" $- "Foo χρῆν" ==-> "<p>Foo χρῆν</p>\n"- it "CM622" $- "Multiple spaces" ==-> "<p>Multiple spaces</p>\n"+-- NOTE This test suite is mostly based on (sometimes altered) examples from+-- the Common Mark specification. We use the version 0.28 (2017-08-01),+-- which can be found online here:+--+-- <http://spec.commonmark.org/0.28/>++spec :: Spec+spec = parallel $ do+ describe "parse and render" $ do+ context "2.2 Tabs" $ do+ it "CM1" $+ "\tfoo\tbaz\t\tbim" ==->+ "<pre><code>foo\tbaz\t\tbim\n</code></pre>\n"+ it "CM2" $+ " \tfoo\tbaz\t\tbim" ==->+ "<pre><code>foo\tbaz\t\tbim\n</code></pre>\n"+ it "CM3" $+ " a\ta\n ὐ\ta" ==->+ "<pre><code>a\ta\nὐ\ta\n</code></pre>\n"+ it "CM4" $+ " - foo\n\n\tbar" ==->+ "<ul>\n<li>\n<p>foo</p>\n<p>bar</p>\n</li>\n</ul>\n"+ it "CM5" $+ "- foo\n\n\t\tbar" ==->+ "<ul>\n<li>\n<p>foo</p>\n<pre><code> bar\n</code></pre>\n</li>\n</ul>\n"+ it "CM6" $+ ">\t\tfoo" ==->+ "<blockquote>\n<pre><code> foo\n</code></pre>\n</blockquote>\n"+ it "CM7" $+ "-\t\tfoo" ==->+ "<ul>\n<li>\n<pre><code> foo\n</code></pre>\n</li>\n</ul>\n"+ it "CM8" $+ " foo\n\tbar" ==->+ "<pre><code>foo\nbar\n</code></pre>\n"+ it "CM9" $+ " - foo\n - bar\n\t - baz" ==->+ "<ul>\n<li>\nfoo\n<ul>\n<li>\nbar\n<ul>\n<li>\nbaz\n</li>\n</ul>\n</li>\n</ul>\n</li>\n</ul>\n"+ it "CM10" $+ "#\tFoo" ==-> "<h1 id=\"foo\">Foo</h1>\n"+ it "CM11" $+ "*\t*\t*\t" ==-> "<hr>\n"+ context "3.1 Precedence" $+ it "CM12" $+ let s = "- `one\n- two`"+ in s ~~->+ [ err (posN 6 s) (ueib <> etok '`' <> elabel "code span content")+ , err (posN 13 s) (ueib <> etok '`' <> elabel "code span content") ]+ context "4.1 Thematic breaks" $ do+ it "CM13" $+ "***\n---\n___" ==-> "<hr>\n<hr>\n<hr>\n"+ it "CM14" $+ "+++" ==-> "<p>+++</p>\n"+ it "CM15" $+ "===" ==-> "<p>===</p>\n"+ it "CM16" $+ let s = "--\n**\n__\n"+ in s ~-> errFancy (posN 3 s) (nonFlanking "**")+ it "CM17" $+ " ***\n ***\n ***" ==-> "<hr>\n<hr>\n<hr>\n"+ it "CM18" $+ " ***" ==-> "<pre><code>***\n</code></pre>\n"+ it "CM19" $+ let s = "Foo\n ***\n"+ in s ~-> errFancy (posN 8 s) (nonFlanking "***")+ it "CM20" $+ "_____________________________________" ==->+ "<hr>\n"+ it "CM21" $+ " - - -" ==-> "<hr>\n"+ it "CM22" $+ " ** * ** * ** * **" ==-> "<hr>\n"+ it "CM23" $+ "- - - -" ==-> "<hr>\n"+ it "CM24" $+ "- - - - " ==-> "<hr>\n"+ it "CM25" $+ let s = "_ _ _ _ a\n\na------\n\n---a---\n"+ in s ~-> errFancy posI (nonFlanking "_")+ it "CM26" $+ " *\\-*" ==-> "<p><em>-</em></p>\n"+ it "CM27" $+ "- foo\n***\n- bar" ==->+ "<ul>\n<li>\nfoo\n</li>\n</ul>\n<hr>\n<ul>\n<li>\nbar\n</li>\n</ul>\n"+ it "CM28" $+ "Foo\n***\nbar" ==->+ "<p>Foo</p>\n<hr>\n<p>bar</p>\n"+ it "CM29" $+ "Foo\n---\nbar" ==->+ "<p>Foo</p>\n<hr>\n<p>bar</p>\n"+ it "CM30" $+ "* Foo\n* * *\n* Bar" ==->+ "<ul>\n<li>\nFoo\n</li>\n<li>\n<ul>\n<li>\n<ul>\n<li>\n\n</li>\n</ul>\n</li>\n</ul>\n</li>\n<li>\nBar\n</li>\n</ul>\n"+ it "CM31" $+ "- Foo\n- * * *" ==->+ "<ul>\n<li>\nFoo\n</li>\n<li>\n<hr>\n</li>\n</ul>\n"+ context "4.2 ATX headings" $ do+ it "CM32" $+ "# foo\n## foo\n### foo\n#### foo\n##### foo\n###### foo" ==->+ "<h1 id=\"foo\">foo</h1>\n<h2 id=\"foo\">foo</h2>\n<h3 id=\"foo\">foo</h3>\n<h4 id=\"foo\">foo</h4>\n<h5 id=\"foo\">foo</h5>\n<h6 id=\"foo\">foo</h6>\n"+ it "CM33" $+ let s = "####### foo"+ in s ~-> err (posN 6 s) (utok '#' <> elabel "white space")+ it "CM34" $+ let s = "#5 bolt\n\n#hashtag"+ in s ~~->+ [ err (posN 1 s) (utok '5' <> etok '#' <> elabel "white space")+ , err (posN 10 s) (utok 'h' <> etok '#' <> elabel "white space") ]+ it "CM35" $+ "\\## foo" ==-> "<p>## foo</p>\n"+ it "CM36" $+ "# foo *bar* \\*baz\\*" ==-> "<h1 id=\"foo-bar-baz\">foo <em>bar</em> *baz*</h1>\n"+ it "CM37" $+ "# foo " ==->+ "<h1 id=\"foo\">foo</h1>\n"+ it "CM38" $+ " ### foo\n ## foo\n # foo" ==->+ "<h3 id=\"foo\">foo</h3>\n<h2 id=\"foo\">foo</h2>\n<h1 id=\"foo\">foo</h1>\n"+ it "CM39" $+ " # foo" ==-> "<pre><code># foo\n</code></pre>\n"+ it "CM40" $+ "foo\n # bar" ==-> "<p>foo\n# bar</p>\n"+ it "CM41" $+ "## foo ##\n ### bar ###" ==->+ "<h2 id=\"foo\">foo</h2>\n<h3 id=\"bar\">bar</h3>\n"+ it "CM42" $+ "# foo ##################################\n##### foo ##" ==->+ "<h1 id=\"foo\">foo</h1>\n<h5 id=\"foo\">foo</h5>\n"+ it "CM43" $+ "### foo ### " ==-> "<h3 id=\"foo\">foo</h3>\n"+ it "CM44" $+ "### foo ### b" ==-> "<h3 id=\"foo-b\">foo ### b</h3>\n"+ it "CM45" $+ "# foo#" ==-> "<h1 id=\"foo\">foo#</h1>\n"+ it "CM46" $+ "### foo \\###\n## foo #\\##\n# foo \\#" ==->+ "<h3 id=\"foo\">foo ###</h3>\n<h2 id=\"foo\">foo ###</h2>\n<h1 id=\"foo\">foo #</h1>\n"+ it "CM47" $+ "****\n## foo\n****" ==->+ "<hr>\n<h2 id=\"foo\">foo</h2>\n<hr>\n"+ it "CM48" $+ "Foo bar\n# baz\nBar foo" ==->+ "<p>Foo bar</p>\n<h1 id=\"baz\">baz</h1>\n<p>Bar foo</p>\n"+ it "CM49" $+ let s = "## \n#\n### ###"+ in s ~~->+ [ err (posN 3 s) (utok '\n' <> elabel "heading character" <> elabel "white space")+ , err (posN 5 s) (utok '\n' <> etok '#' <> elabel "white space") ]+ context "4.3 Setext headings" $ do+ -- NOTE we do not support them, the tests have been adjusted+ -- accordingly.+ it "CM50" $+ "Foo *bar*\n=========\n\nFoo *bar*\n---------" ==->+ "<p>Foo <em>bar</em>\n=========</p>\n<p>Foo <em>bar</em></p>\n<hr>\n"+ it "CM51" $+ "Foo *bar\nbaz*\n====" ==->+ "<p>Foo <em>bar\nbaz</em>\n====</p>\n"+ it "CM52" $+ "Foo\n-------------------------\n\nFoo\n=" ==->+ "<p>Foo</p>\n<hr>\n<p>Foo\n=</p>\n"+ it "CM53" $+ " Foo\n---\n\n Foo\n-----\n\n Foo\n ===" ==->+ "<p>Foo</p>\n<hr>\n<p>Foo</p>\n<hr>\n<p>Foo\n===</p>\n"+ it "CM54" $+ " Foo\n ---\n\n Foo\n---" ==->+ "<pre><code>Foo\n---\n\nFoo\n</code></pre>\n<hr>\n"+ it "CM55" $+ "Foo\n ---- " ==->+ "<p>Foo</p>\n<hr>\n"+ it "CM56" $+ "Foo\n ---" ==->+ "<p>Foo\n---</p>\n"+ it "CM57" $+ "Foo\n= =\n\nFoo\n--- -" ==->+ "<p>Foo\n= =</p>\n<p>Foo</p>\n<hr>\n"+ it "CM58" $+ "Foo \n-----" ==->+ "<p>Foo</p>\n<hr>\n"+ it "CM59" $+ "Foo\\\n----" ==->+ "<p>Foo\\</p>\n<hr>\n"+ it "CM60" $+ let s = "`Foo\n----\n`\n\n<a title=\"a lot\n---\nof dashes\"/>\n"+ in s ~~->+ [ err (posN 4 s) (ueib <> etok '`' <> elabel "code span content")+ , err (posN 11 s) (ueib <> etok '`' <> elabel "code span content") ]+ it "CM61" $+ "> Foo\n---" ==->+ "<blockquote>\n<p>Foo</p>\n</blockquote>\n<hr>\n"+ it "CM62" $+ "> foo\nbar\n===" ==->+ "<blockquote>\n<p>foo</p>\n</blockquote>\n<p>bar\n===</p>\n"+ it "CM63" $+ "- Foo\n---" ==->+ "<ul>\n<li>\nFoo\n</li>\n</ul>\n<hr>\n"+ it "CM64" $+ "Foo\nBar\n---" ==->+ "<p>Foo\nBar</p>\n<hr>\n"+ it "CM65" $+ "---\nFoo\n---\nBar\n---\nBaz" ==->+ "<p>Bar</p>\n<hr>\n<p>Baz</p>\n"+ it "CM66" $+ "\n====" ==->+ "<p>====</p>\n"+ it "CM67" $+ "---\n---" ==->+ "" -- thinks that it's got a YAML block+ it "CM68" $+ "- foo\n-----" ==->+ "<ul>\n<li>\nfoo\n</li>\n</ul>\n<hr>\n"+ it "CM69" $+ " foo\n---" ==->+ "<pre><code>foo\n</code></pre>\n<hr>\n"+ it "CM70" $+ "> foo\n-----" ==->+ "<blockquote>\n<p>foo</p>\n</blockquote>\n<hr>\n"+ it "CM71" $+ "\\> foo\n------" ==->+ "<p>> foo</p>\n<hr>\n"+ it "CM72" $+ "Foo\n\nbar\n---\nbaz" ==->+ "<p>Foo</p>\n<p>bar</p>\n<hr>\n<p>baz</p>\n"+ it "CM73" $+ "Foo\nbar\n\n---\n\nbaz" ==->+ "<p>Foo\nbar</p>\n<hr>\n<p>baz</p>\n"+ it "CM74" $+ "Foo\nbar\n* * *\nbaz" ==->+ "<p>Foo\nbar</p>\n<hr>\n<p>baz</p>\n"+ it "CM75" $+ "Foo\nbar\n\\---\nbaz" ==->+ "<p>Foo\nbar\n---\nbaz</p>\n"+ context "4.4 Indented code blocks" $ do+ it "CM76" $+ " a simple\n indented code block" ==->+ "<pre><code>a simple\n indented code block\n</code></pre>\n"+ it "CM77" $+ " - foo\n\n bar" ==->+ "<ul>\n<li>\n<p>foo</p>\n<p>bar</p>\n</li>\n</ul>\n"+ it "CM78" $+ "1. foo\n\n - bar" ==->+ "<ol>\n<li>\n<p>foo</p>\n<ul>\n<li>\nbar\n</li>\n</ul>\n</li>\n</ol>\n"+ it "CM79" $+ " <a/>\n *hi*\n\n - one" ==->+ "<pre><code><a/>\n*hi*\n\n- one\n</code></pre>\n"+ it "CM80" $+ " chunk1\n\n chunk2\n \n \n \n chunk3" ==->+ "<pre><code>chunk1\n\nchunk2\n\n\n\nchunk3\n</code></pre>\n"+ it "CM81" $+ " chunk1\n \n chunk2" ==->+ "<pre><code>chunk1\n \n chunk2\n</code></pre>\n"+ it "CM82" $+ "Foo\n bar\n" ==->+ "<p>Foo\nbar</p>\n"+ it "CM83" $+ " foo\nbar" ==->+ "<pre><code>foo\n</code></pre>\n<p>bar</p>\n"+ it "CM84" $+ "# Heading\n foo\nHeading\n------\n foo\n----\n" ==->+ "<h1 id=\"heading\">Heading</h1>\n<pre><code>foo\n</code></pre>\n<p>Heading</p>\n<hr>\n<pre><code>foo\n</code></pre>\n<hr>\n"+ it "CM85" $+ " foo\n bar" ==->+ "<pre><code> foo\nbar\n</code></pre>\n"+ it "CM86" $+ "\n \n foo\n \n" ==->+ "<pre><code>foo\n</code></pre>\n"+ it "CM87" $+ " foo " ==->+ "<pre><code>foo \n</code></pre>\n"+ context "4.5 Fenced code blocks" $ do+ it "CM88" $+ "```\n<\n >\n```" ==->+ "<pre><code><\n >\n</code></pre>\n"+ it "CM89" $+ "~~~\n<\n >\n~~~" ==->+ "<pre><code><\n >\n</code></pre>\n"+ it "CM90" $+ "``\nfoo\n``\n" ==->+ "<p><code>foo</code></p>\n"+ it "CM91" $+ "```\naaa\n~~~\n```" ==->+ "<pre><code>aaa\n~~~\n</code></pre>\n"+ it "CM92" $+ "~~~\naaa\n```\n~~~" ==->+ "<pre><code>aaa\n```\n</code></pre>\n"+ it "CM93" $+ "````\naaa\n```\n``````" ==->+ "<pre><code>aaa\n```\n</code></pre>\n"+ it "CM94" $+ "~~~~\naaa\n~~~\n~~~~" ==->+ "<pre><code>aaa\n~~~\n</code></pre>\n"+ it "CM95" $+ let s = "```"+ in s ~-> err (posN 3 s)+ (ueib <> etok '`' <> elabel "code span content")+ it "CM96" $+ let s = "`````\n\n```\naaa\n"+ in s ~-> err (posN 15 s)+ (ueof <> elabel "closing code fence" <> elabel "code block content")+ it "CM97" $+ let s = "> ```\n> aaa\n\nbbb\n"+ in s ~-> err (posN 17 s) (ueof <> elabel "closing code fence" <> elabel "code block content")+ it "CM98" $+ "```\n\n \n```" ==->+ "<pre><code>\n \n</code></pre>\n"+ it "CM99" $+ "```\n```" ==->+ "<pre><code></code></pre>\n"+ it "CM100" $+ " ```\n aaa\naaa\n```" ==->+ "<pre><code>aaa\naaa\n</code></pre>\n"+ it "CM101" $+ " ```\naaa\n aaa\naaa\n ```" ==->+ "<pre><code>aaa\naaa\naaa\n</code></pre>\n"+ it "CM102" $+ " ```\n aaa\n aaa\n aaa\n ```" ==->+ "<pre><code>aaa\n aaa\naaa\n</code></pre>\n"+ it "CM103" $+ " ```\n aaa\n ```" ==->+ "<pre><code>```\naaa\n```\n</code></pre>\n"+ it "CM104" $+ "```\naaa\n ```" ==->+ "<pre><code>aaa\n</code></pre>\n"+ it "CM105" $+ " ```\naaa\n ```" ==->+ "<pre><code>aaa\n</code></pre>\n"+ it "CM106" $+ let s = "```\naaa\n ```\n"+ in s ~-> err (posN 16 s)+ (ueof <> elabel "closing code fence" <> elabel "code block content")+ it "CM107" $+ "``` ```\naaa" ==->+ "<p><code></code>\naaa</p>\n"+ it "CM108" $+ let s = "~~~~~~\naaa\n~~~ ~~\n"+ in s ~-> err (posN 18 s)+ (ueof <> elabel "closing code fence" <> elabel "code block content")+ it "CM109" $+ "foo\n```\nbar\n```\nbaz" ==->+ "<p>foo</p>\n<pre><code>bar\n</code></pre>\n<p>baz</p>\n"+ it "CM110" $+ "foo\n---\n~~~\nbar\n~~~\n# baz" ==->+ "<p>foo</p>\n<hr>\n<pre><code>bar\n</code></pre>\n<h1 id=\"baz\">baz</h1>\n"+ it "CM111" $+ "```ruby\ndef foo(x)\n return 3\nend\n```" ==->+ "<pre><code class=\"language-ruby\">def foo(x)\n return 3\nend\n</code></pre>\n"+ it "CM112" $+ "~~~~ ruby startline=3 $%@#$\ndef foo(x)\n return 3\nend\n~~~~~~~" ==->+ "<pre><code class=\"language-ruby\">def foo(x)\n return 3\nend\n</code></pre>\n"+ it "CM113" $+ "````;\n````" ==->+ "<pre><code class=\"language-;\"></code></pre>\n"+ it "CM114" $+ "``` aa ```\nfoo" ==->+ "<p><code>aa</code>\nfoo</p>\n"+ it "CM115" $+ "```\n``` aaa\n```" ==->+ "<pre><code>``` aaa\n</code></pre>\n"+ context "4.6 HTML blocks" $+ -- NOTE We do not support HTML blocks, see the readme.+ return ()+ context "4.7 Link reference definitions" $ do+ it "CM159" $+ "[foo]: /url \"title\"\n\n[foo]" ==->+ "<p><a href=\"/url\" title=\"title\">foo</a></p>\n"+ it "CM160" $+ " [foo]: \n /url \n 'the title' \n\n[foo]" ==->+ "<p><a href=\"/url\" title=\"the title\">foo</a></p>\n"+ it "CM161" $+ let s = "[Foo bar\\]]:my_(url) 'title (with parens)'\n\n[Foo bar\\]]"+ in s ~-> err (posN 19 s) (utoks ") " <> etok '#' <> etok '/' <> etok '?'+ <> eeof <> elabel "newline" <> elabel "the rest of path piece"+ <> elabel "white space" )+ it "CM162" $+ "[Foo bar]:\n<my%20url>\n'title'\n\n[Foo bar]" ==->+ "<p><a href=\"my%20url\" title=\"title\">Foo bar</a></p>\n"+ it "CM163" $+ "[foo]: /url '\ntitle\nline1\nline2\n'\n\n[foo]" ==->+ "<p><a href=\"/url\" title=\"\ntitle\nline1\nline2\n\">foo</a></p>\n"+ it "CM164" $+ "[foo]: /url 'title\n\nwith blank line'\n\n[foo]" ==->+ "<p><a href=\"/url\" title=\"title\n\nwith blank line\">foo</a></p>\n"+ it "CM165" $+ "[foo]:\n/url\n\n[foo]" ==->+ "<p><a href=\"/url\">foo</a></p>\n"+ it "CM166" $+ "[foo]:\n\n[foo]" ==->+ "<p><a href>foo</a></p>\n" -- URI may be actually empty!+ it "CM167" $+ let s = "[foo]: /url\\bar\\*baz \"foo\\\"bar\\baz\"\n\n[foo]\n"+ in s ~-> err (posN 11 s) (utok '\\' <> etok '#' <> etok '/'+ <> etok '?' <> elabel "end of URI literal" <> elabel "the rest of path piece")+ it "CM168" $+ "[foo]\n\n[foo]: url" ==->+ "<p><a href=\"url\">foo</a></p>\n"+ it "CM169" $+ let s = "[foo]\n\n[foo]: first\n[foo]: second\n"+ in s ~-> errFancy (posN 21 s) (duplicateRef "foo")+ it "CM170" $+ "[FOO]: /url\n\n[Foo]" ==->+ "<p><a href=\"/url\">Foo</a></p>\n"+ it "CM171" $+ "[ΑΓΩ]: /%CF%86%CE%BF%CF%85\n\n[αγω]" ==->+ "<p><a href=\"/%cf%86%ce%bf%cf%85\">αγω</a></p>\n"+ it "CM172" $+ "[foo]: /url" ==->+ ""+ it "CM173" $+ "[\nfoo\n]: /url\nbar" ==->+ "<p>bar</p>\n"+ it "CM174" $+ let s = "[foo]: /url \"title\" ok"+ in s ~-> err (posN 20 s) (utoks "ok" <> eeof <> elabel "newline"+ <> elabel "white space")+ it "CM175" $+ let s = "[foo]: /url\n\"title\" ok\n"+ in s ~-> err (posN 20 s) (utoks "ok" <> eeof <> elabel "newline"+ <> elabel "white space")+ it "CM176" $+ " [foo]: /url \"title\"" ==->+ "<pre><code>[foo]: /url "title"\n</code></pre>\n"+ it "CM177" $+ "```\n[foo]: /url\n```" ==->+ "<pre><code>[foo]: /url\n</code></pre>\n"+ it "CM178" $+ let s = "Foo\n[bar]: /baz\n\n[bar]\n"+ in s ~~->+ [ errFancy (posN 5 s) (couldNotMatchRef "bar" [])+ , errFancy (posN 18 s) (couldNotMatchRef "bar" []) ]+ it "CM179" $+ "# [Foo]\n[foo]: /url\n> bar" ==->+ "<h1 id=\"foo\"><a href=\"/url\">Foo</a></h1>\n<blockquote>\n<p>bar</p>\n</blockquote>\n"+ it "CM180" $+ "[foo]: /foo-url \"foo\"\n[bar]: /bar-url\n \"bar\"\n[baz]: /baz-url\n\n[foo],\n[bar],\n[baz]" ==->+ "<p><a href=\"/foo-url\" title=\"foo\">foo</a>,\n<a href=\"/bar-url\" title=\"bar\">bar</a>,\n<a href=\"/baz-url\">baz</a></p>\n"+ it "CM181" $+ "[foo]\n\n> [foo]: /url" ==->+ "<p><a href=\"/url\">foo</a></p>\n<blockquote>\n</blockquote>\n"+ context "4.8 Paragraphs" $ do+ it "CM182" $+ "aaa\n\nbbb" ==->+ "<p>aaa</p>\n<p>bbb</p>\n"+ it "CM183" $+ "aaa\nbbb\n\nccc\nddd" ==->+ "<p>aaa\nbbb</p>\n<p>ccc\nddd</p>\n"+ it "CM184" $+ "aaa\n\n\nbbb" ==->+ "<p>aaa</p>\n<p>bbb</p>\n"+ it "CM185" $+ " aaa\n bbb" ==->+ "<p>aaa\nbbb</p>\n"+ it "CM186" $+ "aaa\n bbb\n ccc" ==->+ "<p>aaa\nbbb\nccc</p>\n"+ it "CM187" $+ " aaa\nbbb" ==-> "<p>aaa\nbbb</p>\n"+ it "CM188" $+ " aaa\nbbb" ==->+ "<pre><code>aaa\n</code></pre>\n<p>bbb</p>\n"+ it "CM189" $+ "aaa \nbbb " ==->+ "<p>aaa\nbbb</p>\n"+ context "4.9 Blank lines" $+ it "CM190" $+ " \n\naaa\n \n\n# aaa\n\n " ==->+ "<p>aaa</p>\n<h1 id=\"aaa\">aaa</h1>\n"+ context "5.1 Block quotes" $ do+ it "CM191" $+ "> # Foo\n bar\n baz" ==->+ "<blockquote>\n<h1 id=\"foo\">Foo</h1>\n<p>bar\nbaz</p>\n</blockquote>\n"+ it "CM192" $+ "># Foo\n bar\n baz" ==->+ "<blockquote>\n<h1 id=\"foo\">Foo</h1>\n<p>bar\nbaz</p>\n</blockquote>\n"+ it "CM193" $+ " > # Foo\n bar\n baz" ==->+ "<blockquote>\n<h1 id=\"foo\">Foo</h1>\n<p>bar\nbaz</p>\n</blockquote>\n"+ it "CM194" $+ " > # Foo\n > bar\n > baz" ==->+ "<pre><code>> # Foo\n> bar\n> baz\n</code></pre>\n"+ it "CM195" $+ "> # Foo\n> bar\nbaz" ==->+ "<blockquote>\n<h1 id=\"foo\">Foo</h1>\n</blockquote>\n<blockquote>\n<p>bar</p>\n</blockquote>\n<p>baz</p>\n"+ it "CM196" $+ "> bar\nbaz\n> foo" ==->+ "<blockquote>\n<p>bar</p>\n</blockquote>\n<p>baz</p>\n<blockquote>\n<p>foo</p>\n</blockquote>\n"+ it "CM197" $+ "> foo\n---" ==->+ "<blockquote>\n<p>foo</p>\n</blockquote>\n<hr>\n"+ it "CM198" $+ "> - foo\n- bar" ==->+ "<blockquote>\n<ul>\n<li>\nfoo\n</li>\n</ul>\n</blockquote>\n<ul>\n<li>\nbar\n</li>\n</ul>\n"+ it "CM199" $+ "> foo\n bar" ==->+ "<blockquote>\n<pre><code>foo\n</code></pre>\n<p>bar</p>\n</blockquote>\n"+ it "CM200" $+ "> ```\nfoo\n```" ==->+ "<blockquote>\n<pre><code>foo\n</code></pre>\n</blockquote>\n"+ it "CM201" $+ "> foo\n - bar" ==->+ "<blockquote>\n<p>foo</p>\n<ul>\n<li>\nbar\n</li>\n</ul>\n</blockquote>\n"+ it "CM202" $+ ">" ==->+ "<blockquote>\n</blockquote>\n"+ it "CM203" $+ ">\n> \n> " ==->+ "<blockquote>\n</blockquote>\n<blockquote>\n</blockquote>\n<blockquote>\n</blockquote>\n"+ it "CM204" $+ ">\n foo\n " ==->+ "<blockquote>\n<p>foo</p>\n</blockquote>\n"+ it "CM205" $+ "> foo\n\n> bar" ==->+ "<blockquote>\n<p>foo</p>\n</blockquote>\n<blockquote>\n<p>bar</p>\n</blockquote>\n"+ it "CM206" $+ "> foo\n bar" ==->+ "<blockquote>\n<p>foo\nbar</p>\n</blockquote>\n"+ it "CM207" $+ "> foo\n\n bar" ==->+ "<blockquote>\n<p>foo</p>\n<p>bar</p>\n</blockquote>\n"+ it "CM208" $+ "foo\n> bar" ==->+ "<p>foo</p>\n<blockquote>\n<p>bar</p>\n</blockquote>\n"+ it "CM209" $+ "> aaa\n***\n> bbb" ==->+ "<blockquote>\n<p>aaa</p>\n</blockquote>\n<hr>\n<blockquote>\n<p>bbb</p>\n</blockquote>\n"+ it "CM210" $+ "> bar\n baz" ==->+ "<blockquote>\n<p>bar\nbaz</p>\n</blockquote>\n"+ it "CM211" $+ "> bar\n\nbaz" ==->+ "<blockquote>\n<p>bar</p>\n</blockquote>\n<p>baz</p>\n"+ it "CM212" $+ "> bar\n\nbaz" ==->+ "<blockquote>\n<p>bar</p>\n</blockquote>\n<p>baz</p>\n"+ it "CM213" $+ "> > > foo\nbar" ==->+ "<blockquote>\n<blockquote>\n<blockquote>\n<p>foo</p>\n</blockquote>\n</blockquote>\n</blockquote>\n<p>bar</p>\n"+ it "CM214" $+ ">>> foo\n bar\n baz" ==->+ "<blockquote>\n<blockquote>\n<blockquote>\n<p>foo\nbar\nbaz</p>\n</blockquote>\n</blockquote>\n</blockquote>\n"+ it "CM215" $+ "> code\n\n> not code" ==->+ "<blockquote>\n<pre><code>code\n</code></pre>\n</blockquote>\n<blockquote>\n<p>not code</p>\n</blockquote>\n"+ context "5.2 List items" $ do+ it "CM216" $+ "A paragraph\nwith two lines.\n\n indented code\n\n> A block quote." ==->+ "<p>A paragraph\nwith two lines.</p>\n<pre><code>indented code\n</code></pre>\n<blockquote>\n<p>A block quote.</p>\n</blockquote>\n"+ it "CM217" $+ "1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==->+ "<ol>\n<li>\n<p>A paragraph\nwith two lines.</p>\n<pre><code>indented code\n</code></pre>\n<blockquote>\n<p>A block quote.</p>\n</blockquote>\n</li>\n</ol>\n"+ it "CM218" $+ "- one\n\n two" ==->+ "<ul>\n<li>\none\n</li>\n</ul>\n<p>two</p>\n"+ it "CM219" $+ "- one\n\n two" ==->+ "<ul>\n<li>\n<p>one</p>\n<p>two</p>\n</li>\n</ul>\n"+ it "CM220" $+ " - one\n\n two" ==->+ "<ul>\n<li>\none\n</li>\n</ul>\n<pre><code> two\n</code></pre>\n"+ it "CM221" $+ " - one\n\n two" ==->+ "<ul>\n<li>\n<p>one</p>\n<p>two</p>\n</li>\n</ul>\n"+ it "CM222" $+ " > > 1. one\n\n two" ==->+ "<blockquote>\n<blockquote>\n<ol>\n<li>\none\n</li>\n</ol>\n<p>two</p>\n</blockquote>\n</blockquote>\n"+ it "CM223" $+ ">>- one\n\n two" ==->+ "<blockquote>\n<blockquote>\n<ul>\n<li>\n<p>one</p>\n<p>two</p>\n</li>\n</ul>\n</blockquote>\n</blockquote>\n"+ it "CM224" $+ "-one\n\n2.two" ==->+ "<p>-one</p>\n<p>2.two</p>\n"+ it "CM225" $+ "- foo\n\n\n bar" ==->+ "<ul>\n<li>\n<p>foo</p>\n<p>bar</p>\n</li>\n</ul>\n"+ it "CM226" $+ "1. foo\n\n ```\n bar\n ```\n\n baz\n\n > bam" ==->+ "<ol>\n<li>\n<p>foo</p>\n<pre><code>bar\n</code></pre>\n<p>baz</p>\n<blockquote>\n<p>bam</p>\n</blockquote>\n</li>\n</ol>\n"+ it "CM227" $+ "- Foo\n\n bar\n\n\n baz" ==->+ "<ul>\n<li>\n<p>Foo</p>\n<pre><code>bar\n\n\nbaz\n</code></pre>\n</li>\n</ul>\n"+ it "CM228" $+ "123456789. ok" ==->+ "<ol start=\"123456789\">\n<li>\nok\n</li>\n</ol>\n"+ it "CM229" $+ let s = "1234567890. not ok\n"+ in s ~-> errFancy posI (indexTooBig 1234567890)+ it "CM230" $+ "0. ok" ==->+ "<ol start=\"0\">\n<li>\nok\n</li>\n</ol>\n"+ it "CM231" $+ "003. ok" ==->+ "<ol start=\"3\">\n<li>\nok\n</li>\n</ol>\n"+ it "CM232" $+ "-1. not ok" ==->+ "<p>-1. not ok</p>\n"+ it "CM233" $+ "- foo\n\n bar" ==->+ "<ul>\n<li>\n<p>foo</p>\n<pre><code>bar\n</code></pre>\n</li>\n</ul>\n"+ it "CM234" $+ " 10. foo\n\n bar" ==->+ "<ol start=\"10\">\n<li>\n<p>foo</p>\n<pre><code>bar\n</code></pre>\n</li>\n</ol>\n"+ it "CM235" $+ " indented code\n\nparagraph\n\n more code" ==->+ "<pre><code>indented code\n</code></pre>\n<p>paragraph</p>\n<pre><code>more code\n</code></pre>\n"+ it "CM236" $+ "1. indented code\n\n paragraph\n\n more code" ==->+ "<ol>\n<li>\n<pre><code>indented code\n</code></pre>\n<p>paragraph</p>\n<pre><code>more code\n</code></pre>\n</li>\n</ol>\n"+ it "CM237" $+ "1. indented code\n\n paragraph\n\n more code" ==->+ "<ol>\n<li>\n<pre><code> indented code\n</code></pre>\n<p>paragraph</p>\n<pre><code>more code\n</code></pre>\n</li>\n</ol>\n"+ it "CM238" $+ " foo\n\nbar" ==->+ "<p>foo</p>\n<p>bar</p>\n"+ it "CM239" $+ "- foo\n\n bar" ==->+ "<ul>\n<li>\nfoo\n</li>\n</ul>\n<p>bar</p>\n"+ it "CM240" $+ "- foo\n\n bar" ==->+ "<ul>\n<li>\n<p>foo</p>\n<p>bar</p>\n</li>\n</ul>\n"+ it "CM241" $+ "-\n foo\n-\n ```\n bar\n ```\n-\n baz" ==->+ "<ul>\n<li>\n<p>foo</p>\n</li>\n<li>\n<pre><code>bar\n</code></pre>\n</li>\n<li>\n<pre><code>baz\n</code></pre>\n</li>\n</ul>\n"+ it "CM242" $+ "- \n foo" ==->+ "<ul>\n<li>\nfoo\n</li>\n</ul>\n"+ it "CM243a" $+ "-\n\n foo" ==->+ "<ul>\n<li>\n\n</li>\n</ul>\n<p>foo</p>\n"+ it "CM243b" $+ "1.\n\n foo" ==->+ "<ol>\n<li>\n\n</li>\n</ol>\n<p>foo</p>\n"+ it "CM244" $+ "- foo\n-\n- bar" ==->+ "<ul>\n<li>\nfoo\n</li>\n<li>\n\n</li>\n<li>\nbar\n</li>\n</ul>\n"+ it "CM245" $+ "- foo\n- \n- bar" ==->+ "<ul>\n<li>\nfoo\n</li>\n<li>\n\n</li>\n<li>\nbar\n</li>\n</ul>\n"+ it "CM246" $+ "1. foo\n2.\n3. bar" ==->+ "<ol>\n<li>\nfoo\n</li>\n<li>\n\n</li>\n<li>\nbar\n</li>\n</ol>\n"+ it "CM247" $+ "*" ==->+ "<ul>\n<li>\n\n</li>\n</ul>\n"+ it "CM248" $+ "foo\n*\n\nfoo\n1." ==->+ "<p>foo</p>\n<ul>\n<li>\n\n</li>\n</ul>\n<p>foo</p>\n<ol>\n<li>\n\n</li>\n</ol>\n"+ it "CM249" $+ " 1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==->+ "<ol>\n<li>\n<p>A paragraph\nwith two lines.</p>\n<pre><code>indented code\n</code></pre>\n<blockquote>\n<p>A block quote.</p>\n</blockquote>\n</li>\n</ol>\n"+ it "CM250" $+ " 1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==->+ "<ol>\n<li>\n<p>A paragraph\nwith two lines.</p>\n<pre><code>indented code\n</code></pre>\n<blockquote>\n<p>A block quote.</p>\n</blockquote>\n</li>\n</ol>\n"+ it "CM251" $+ " 1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==->+ "<ol>\n<li>\n<p>A paragraph\nwith two lines.</p>\n<pre><code>indented code\n</code></pre>\n<blockquote>\n<p>A block quote.</p>\n</blockquote>\n</li>\n</ol>\n"+ it "CM252" $+ " 1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==->+ "<pre><code>1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote.\n</code></pre>\n"+ it "CM253" $+ " 1. A paragraph\nwith two lines.\n\n indented code\n\n > A block quote." ==->+ "<ol>\n<li>\nA paragraph\n</li>\n</ol>\n<p>with two lines.</p>\n<pre><code> indented code\n\n > A block quote.\n</code></pre>\n"+ it "CM254" $+ " 1. A paragraph\n with two lines." ==->+ "<ol>\n<li>\nA paragraph\n</li>\n</ol>\n<pre><code>with two lines.\n</code></pre>\n"+ it "CM255" $+ "> 1. > Blockquote\ncontinued here." ==->+ "<blockquote>\n<ol>\n<li>\n<blockquote>\n<p>Blockquote</p>\n</blockquote>\n</li>\n</ol>\n</blockquote>\n<p>continued here.</p>\n"+ it "CM256" $+ "> 1. > Blockquote\n continued here." ==->+ "<blockquote>\n<ol>\n<li>\n<blockquote>\n<p>Blockquote</p>\n</blockquote>\n</li>\n</ol>\n<p>continued here.</p>\n</blockquote>\n"+ it "CM257" $+ "- foo\n - bar\n - baz\n - boo" ==->+ "<ul>\n<li>\nfoo\n<ul>\n<li>\nbar\n<ul>\n<li>\nbaz\n<ul>\n<li>\nboo\n</li>\n</ul>\n</li>\n</ul>\n</li>\n</ul>\n</li>\n</ul>\n"+ it "CM258" $+ "- foo\n - bar\n - baz\n - boo" ==->+ "<ul>\n<li>\nfoo\n</li>\n<li>\nbar\n</li>\n<li>\nbaz\n</li>\n<li>\nboo\n</li>\n</ul>\n"+ it "CM259" $+ "10) foo\n - bar" ==->+ "<ol start=\"10\">\n<li>\nfoo\n<ul>\n<li>\nbar\n</li>\n</ul>\n</li>\n</ol>\n"+ it "CM260" $+ "10) foo\n - bar" ==->+ "<ol start=\"10\">\n<li>\nfoo\n</li>\n</ol>\n<ul>\n<li>\nbar\n</li>\n</ul>\n"+ it "CM261" $+ "- - foo" ==->+ "<ul>\n<li>\n<ul>\n<li>\nfoo\n</li>\n</ul>\n</li>\n</ul>\n"+ it "CM262" $+ "1. - 2. foo" ==->+ "<ol>\n<li>\n<ul>\n<li>\n<ol start=\"2\">\n<li>\nfoo\n</li>\n</ol>\n</li>\n</ul>\n</li>\n</ol>\n"+ it "CM263" $+ "- # Foo\n- Bar\n ---\n baz" ==->+ "<ul>\n<li>\n<h1 id=\"foo\">Foo</h1>\n</li>\n<li>\n<p>Bar</p>\n<hr>\n<p>baz</p>\n</li>\n</ul>\n"+ context "5.3 Lists" $ do+ it "CM264" $+ "- foo\n- bar\n+ baz" ==->+ "<ul>\n<li>\nfoo\n</li>\n<li>\nbar\n</li>\n</ul>\n<ul>\n<li>\nbaz\n</li>\n</ul>\n"+ it "CM265" $+ "1. foo\n2. bar\n3) baz" ==->+ "<ol>\n<li>\nfoo\n</li>\n<li>\nbar\n</li>\n</ol>\n<ol start=\"3\">\n<li>\nbaz\n</li>\n</ol>\n"+ it "CM266" $+ "Foo\n- bar\n- baz" ==->+ "<p>Foo</p>\n<ul>\n<li>\nbar\n</li>\n<li>\nbaz\n</li>\n</ul>\n"+ it "CM267" $+ "The number of windows in my house is\n14. The number of doors is 6." ==->+ "<p>The number of windows in my house is</p>\n<ol start=\"14\">\n<li>\nThe number of doors is 6.\n</li>\n</ol>\n"+ it "CM268" $+ "The number of windows in my house is\n1. The number of doors is 6." ==->+ "<p>The number of windows in my house is</p>\n<ol>\n<li>\nThe number of doors is 6.\n</li>\n</ol>\n"+ it "CM269" $+ "- foo\n\n- bar\n\n\n- baz" ==->+ "<ul>\n<li>\n<p>foo</p>\n</li>\n<li>\n<p>bar</p>\n</li>\n<li>\n<p>baz</p>\n</li>\n</ul>\n"+ it "CM270" $+ "- foo\n - bar\n - baz\n\n\n bim" ==->+ "<ul>\n<li>\nfoo\n<ul>\n<li>\nbar\n<ul>\n<li>\n<p>baz</p>\n<p>bim</p>\n</li>\n</ul>\n</li>\n</ul>\n</li>\n</ul>\n"+ it "CM271" $+ "- foo\n- bar\n\n<!-- -->\n\n- baz\n- bim" ==->+ "<ul>\n<li>\nfoo\n</li>\n<li>\nbar\n</li>\n</ul>\n<p><!-- --></p>\n<ul>\n<li>\nbaz\n</li>\n<li>\nbim\n</li>\n</ul>\n"+ it "CM272" $+ "- foo\n\n notcode\n\n- foo\n\n<!-- -->\n\n code" ==->+ "<ul>\n<li>\n<p>foo</p>\n<p>notcode</p>\n</li>\n<li>\n<p>foo</p>\n</li>\n</ul>\n<p><!-- --></p>\n<pre><code>code\n</code></pre>\n"+ it "CM273" $+ "- a\n - b\n - c\n - d\n - e\n - f\n - g\n - h\n- i" ==->+ "<ul>\n<li>\na\n</li>\n<li>\nb\n</li>\n<li>\nc\n</li>\n<li>\nd\n</li>\n<li>\ne\n</li>\n<li>\nf\n</li>\n<li>\ng\n</li>\n<li>\nh\n</li>\n<li>\ni\n</li>\n</ul>\n"+ it "CM274" $+ "1. a\n\n 2. b\n\n 3. c" ==->+ "<ol>\n<li>\n<p>a</p>\n</li>\n<li>\n<p>b</p>\n</li>\n<li>\n<p>c</p>\n</li>\n</ol>\n"+ it "CM275" $+ "- a\n- b\n\n- c" ==->+ "<ul>\n<li>\n<p>a</p>\n</li>\n<li>\n<p>b</p>\n</li>\n<li>\n<p>c</p>\n</li>\n</ul>\n"+ it "CM276" $+ "* a\n*\n\n* c" ==->+ "<ul>\n<li>\n<p>a</p>\n</li>\n<li>\n<p></p>\n</li>\n<li>\n<p>c</p>\n</li>\n</ul>\n"+ it "CM277" $+ "- a\n- b\n\n c\n- d" ==->+ "<ul>\n<li>\n<p>a</p>\n</li>\n<li>\n<p>b</p>\n<p>c</p>\n</li>\n<li>\n<p>d</p>\n</li>\n</ul>\n"+ it "CM278" $+ "- a\n- b\n\n [ref]: /url\n- d" ==->+ "<ul>\n<li>\n<p>a</p>\n</li>\n<li>\n<p>b</p>\n</li>\n<li>\n<p>d</p>\n</li>\n</ul>\n"+ it "CM279" $+ "- a\n- ```\n b\n\n\n ```\n- c" ==->+ "<ul>\n<li>\n<p>a</p>\n</li>\n<li>\n<pre><code>b\n\n\n</code></pre>\n</li>\n<li>\n<p>c</p>\n</li>\n</ul>\n"+ it "CM280" $+ "- a\n - b\n\n c\n- d" ==->+ "<ul>\n<li>\na\n<ul>\n<li>\n<p>b</p>\n<p>c</p>\n</li>\n</ul>\n</li>\n<li>\nd\n</li>\n</ul>\n"+ it "CM281" $+ "* a\n > b\n >\n* c" ==->+ "<ul>\n<li>\n<p>a</p>\n<blockquote>\n<p>b</p>\n</blockquote>\n<blockquote>\n</blockquote>\n</li>\n<li>\n<p>c</p>\n</li>\n</ul>\n"+ it "CM282" $+ "- a\n > b\n ```\n c\n ```\n- d" ==->+ "<ul>\n<li>\n<p>a</p>\n<blockquote>\n<p>b</p>\n</blockquote>\n<pre><code>c\n</code></pre>\n</li>\n<li>\n<p>d</p>\n</li>\n</ul>\n"+ it "CM283" $+ "- a" ==->+ "<ul>\n<li>\na\n</li>\n</ul>\n"+ it "CM284" $+ "- a\n - b" ==->+ "<ul>\n<li>\na\n<ul>\n<li>\nb\n</li>\n</ul>\n</li>\n</ul>\n"+ it "CM285" $+ "1. ```\n foo\n ```\n\n bar" ==->+ "<ol>\n<li>\n<pre><code>foo\n</code></pre>\n<p>bar</p>\n</li>\n</ol>\n"+ it "CM286" $+ "* foo\n * bar\n\n baz" ==->+ "<ul>\n<li>\nfoo\n<ul>\n<li>\nbar\n</li>\n</ul>\nbaz\n</li>\n</ul>\n"+ it "CM287" $+ "- a\n - b\n - c\n\n- d\n - e\n - f" ==->+ "<ul>\n<li>\na\n<ul>\n<li>\nb\n</li>\n<li>\nc\n</li>\n</ul>\n</li>\n<li>\nd\n<ul>\n<li>\ne\n</li>\n<li>\nf\n</li>\n</ul>\n</li>\n</ul>\n"+ context "6 Inlines" $+ it "CM288" $+ let s = "`hi`lo`\n"+ in s ~-> err (posN 7 s) (ueib <> etok '`' <> elabel "code span content")+ context "6.1 Blackslash escapes" $ do+ it "CM289" $+ "\\!\\\"\\#\\$\\%\\&\\'\\(\\)\\*\\+\\,\\-\\.\\/\\:\\;\\<\\=\\>\\?\\@\\[\\\\\\]\\^\\_\\`\\{\\|\\}\\~\n"+ ==-> "<p>!"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~</p>\n"+ it "CM290" $+ "\\\t\\A\\a\\ \\3\\φ\\«" ==->+ "<p>\\\t\\A\\a\\ \\3\\φ\\«</p>\n"+ it "CM291" $+ "\\*not emphasized\\*\n\\<br/> not a tag\n\\[not a link\\](/foo)\n\\`not code\\`\n1\\. not a list\n\\* not a list\n\\# not a heading\n\\[foo\\]: /url \"not a reference\"\n" ==->+ "<p>*not emphasized*\n<br/> not a tag\n[not a link](/foo)\n`not code`\n1. not a list\n* not a list\n# not a heading\n[foo]: /url "not a reference"</p>\n"+ it "CM292" $+ let s = "\\\\*emphasis*"+ in s ~-> errFancy (posN 2 s) (nonFlanking "*")+ it "CM293" $+ "foo\\\nbar" ==->+ "<p>foo<br>\nbar</p>\n"+ it "CM294" $+ "`` \\[\\` ``" ==->+ "<p><code>\\[\\`</code></p>\n"+ it "CM295" $+ " \\[\\]" ==->+ "<pre><code>\\[\\]\n</code></pre>\n"+ it "CM296" $+ "~~~\n\\[\\]\n~~~" ==->+ "<pre><code>\\[\\]\n</code></pre>\n"+ it "CM297" $+ "<http://example.com?find=*>" ==->+ "<p><a href=\"http://example.com/?find=*\">http://example.com/?find=*</a></p>\n"+ it "CM298" $+ "<a href=\"/bar\\/)\">" ==->+ "<p><a href="/bar/)"></p>\n"+ it "CM299" $+ let s = "[foo](/bar\\* \"ti\\*tle\")"+ in s ~-> err (posN 10 s)+ (utok '\\' <> etok '#' <> etok '/' <> etok '?' <> euri <> eppi)+ it "CM300" $+ let s = "[foo]\n\n[foo]: /bar\\* \"ti\\*tle\""+ in s ~-> err (posN 18 s)+ (utok '\\' <> etok '#' <> etok '/' <> etok '?' <> euri <> eppi)+ it "CM301" $+ "``` foo\\+bar\nfoo\n```" ==->+ "<pre><code class=\"language-foo+bar\">foo\n</code></pre>\n"+ context "6.2 Entity and numeric character references" $ do+ it "CM302" $+ " & © Æ Ď\n¾ ℋ ⅆ\n∲ ≧̸" ==->+ "<p> & © Æ Ď\n¾ ℋ ⅆ\n∲ ≧̸</p>\n"+ it "CM303a" $+ "# Ӓ Ϡ" ==->+ "<p># Ӓ Ϡ</p>\n"+ it "CM303b" $+ "�" ~-> errFancy posI (invalidNumChar 98765432)+ it "CM303c" $+ "�" ~-> errFancy posI (invalidNumChar 0)+ it "CM304" $+ "" ആ ಫ" ==->+ "<p>" ആ ಫ</p>\n"+ it "CM305a" $+ " " ==-> "<p>&nbsp</p>\n"+ it "CM305b" $+ let s = "&x;"+ in s ~-> errFancy posI (unknownEntity "x")+ it "CM305c" $+ let s = "&#;"+ in s ~-> err (posN 2 s) (utok ';' <> etok 'x' <> etok 'X' <> elabel "integer")+ it "CM305d" $+ let s = "&#x;"+ in s ~-> err (posN 3 s) (utok ';' <> elabel "hexadecimal integer")+ it "CM305e" $+ let s = "&ThisIsNotDefined;"+ in s ~-> errFancy posI (unknownEntity "ThisIsNotDefined")+ it "CM305f" $+ "&hi?;" ==-> "<p>&hi?;</p>\n"+ it "CM306" $+ "©" ==->+ "<p>&copy</p>\n"+ it "CM307" $+ let s = "&MadeUpEntity;"+ in s ~-> errFancy posI (unknownEntity "MadeUpEntity")+ it "CM308" $+ "<a href=\"öö.html\">" ==->+ "<p><a href="\246\246.html"></p>\n"+ it "CM309" $+ "[foo](/föö \"föö\")" ==->+ "<p><a href=\"/f&ouml;&ouml;\" title=\"f\246\246\">foo</a></p>\n"+ it "CM310" $+ "[foo]\n\n[foo]: /föö \"föö\"" ==->+ "<p><a href=\"/f&ouml;&ouml;\" title=\"f\246\246\">foo</a></p>\n"+ it "CM311" $+ "``` föö\nfoo\n```" ==->+ "<pre><code class=\"language-f\246\246\">foo\n</code></pre>\n"+ it "CM312" $+ "`föö`" ==->+ "<p><code>föö</code></p>\n"+ it "CM313" $+ " föfö" ==->+ "<pre><code>f&ouml;f&ouml;\n</code></pre>\n"+ context "6.3 Code spans" $ do+ it "CM314" $+ "`foo`" ==-> "<p><code>foo</code></p>\n"+ it "CM315" $+ "`` foo ` bar ``" ==->+ "<p><code>foo ` bar</code></p>\n"+ it "CM316" $+ "` `` `" ==-> "<p><code>``</code></p>\n"+ it "CM317" $+ "``\nfoo\n``" ==-> "<p><code>foo</code></p>\n"+ it "CM318" $+ "`foo bar\n baz`" ==-> "<p><code>foo bar baz</code></p>\n"+ it "CM319" $+ "`a b`" ==-> "<p><code>a b</code></p>\n"+ it "CM320" $+ "`foo `` bar`" ==-> "<p><code>foo `` bar</code></p>\n"+ it "CM321" $+ let s = "`foo\\`bar`\n"+ in s ~-> err (posN 10 s) (ueib <> etok '`' <> elabel "code span content")+ it "CM322" $+ let s = "*foo`*`\n"+ in s ~-> err (posN 7 s) (ueib <> etok '*' <> eic)+ it "CM323" $+ let s = "[not a `link](/foo`)\n"+ in s ~-> err (posN 20 s) (ueib <> etok ']' <> eic)+ it "CM324" $+ let s = "`<a href=\"`\">`\n"+ in s ~-> err (posN 14 s) (ueib <> etok '`' <> elabel "code span content")+ it "CM325" $+ "<a href=\"`\">`" ==->+ "<p><a href="<code>\"></code></p>\n"+ it "CM326" $+ let s = "`<http://foo.bar.`baz>`\n"+ in s ~-> err (posN 23 s) (ueib <> etok '`' <> elabel "code span content")+ it "CM327" $+ "<http://foo.bar.`baz>`" ==->+ "<p><http://foo.bar.<code>baz></code></p>\n"+ it "CM328" $+ let s = "```foo``\n"+ in s ~-> err (posN 8 s) (ueib <> etok '`' <> elabel "code span content")+ it "CM329" $+ let s = "`foo\n"+ in s ~-> err (posN 4 s) (ueib <> etok '`' <> elabel "code span content")+ it "CM330" $+ let s = "`foo``bar``\n"+ in s ~-> err (posN 11 s) (ueib <> etok '`' <> elabel "code span content")+ context "6.4 Emphasis and strong emphasis" $ do+ it "CM331" $+ "*foo bar*" ==-> "<p><em>foo bar</em></p>\n"+ it "CM332" $+ let s = "a * foo bar*\n"+ in s ~-> errFancy (posN 2 s) (nonFlanking "*")+ it "CM333" $+ let s = "a*\"foo\"*\n"+ in s ~-> errFancy (posN 1 s) (nonFlanking "*")+ it "CM334" $+ let s = "* a *\n"+ in s ~-> errFancy posI (nonFlanking "*")+ it "CM335" $+ let s = "foo*bar*\n"+ in s ~-> errFancy (posN 3 s) (nonFlanking "*")+ it "CM336" $+ let s = "5*6*78\n"+ in s ~-> errFancy (posN 1 s) (nonFlanking "*")+ it "CM337" $+ "_foo bar_" ==-> "<p><em>foo bar</em></p>\n"+ it "CM338" $+ let s = "_ foo bar_\n"+ in s ~-> errFancy posI (nonFlanking "_")+ it "CM339" $+ let s = "a_\"foo\"_\n"+ in s ~-> errFancy (posN 1 s) (nonFlanking "_")+ it "CM340" $+ let s = "foo_bar_\n"+ in s ~-> errFancy (posN 3 s) (nonFlanking "_")+ it "CM341" $+ let s = "5_6_78\n"+ in s ~-> errFancy (posN 1 s) (nonFlanking "_")+ it "CM342" $+ let s = "пристаням_стремятся_\n"+ in s ~-> errFancy (posN 9 s) (nonFlanking "_")+ it "CM343" $+ let s = "aa_\"bb\"_cc\n"+ in s ~-> errFancy (posN 2 s) (nonFlanking "_")+ it "CM344" $+ let s = "foo-_(bar)_\n"+ in s ~-> errFancy (posN 4 s) (nonFlanking "_")+ it "CM345" $+ let s = "_foo*\n"+ in s ~-> err (posN 4 s) (utok '*' <> etok '_' <> eic)+ it "CM346" $+ let s = "*foo bar *\n"+ in s ~-> errFancy (posN 9 s) (nonFlanking "*")+ it "CM347" $+ let s = "*foo bar\n*\n"+ in s ~-> err (posN 8 s) (ueib <> etok '*' <> eic)+ it "CM348" $+ let s = "*(*foo)\n"+ in s ~-> errFancy posI (nonFlanking "*")+ it "CM349" $+ let s = "*(*foo*)*\n"+ in s ~-> errFancy posI (nonFlanking "*")+ it "CM350" $+ let s = "*foo*bar\n"+ in s ~-> errFancy (posN 4 s) (nonFlanking "*")+ it "CM351" $+ let s = "_foo bar _\n"+ in s ~-> errFancy (posN 9 s) (nonFlanking "_")+ it "CM352" $+ let s = "_(_foo)\n"+ in s ~-> errFancy posI (nonFlanking "_")+ it "CM353" $+ let s = "_(_foo_)_\n"+ in s ~-> errFancy posI (nonFlanking "_")+ it "CM354" $+ let s = "_foo_bar\n"+ in s ~-> errFancy (posN 4 s) (nonFlanking "_")+ it "CM355" $+ let s = "_пристаням_стремятся\n"+ in s ~-> errFancy (posN 10 s) (nonFlanking "_")+ it "CM356" $+ let s = "_foo_bar_baz_\n"+ in s ~-> errFancy (posN 4 s) (nonFlanking "_")+ it "CM357" $+ "_\\(bar\\)_.\n" ==-> "<p><em>(bar)</em>.</p>\n"+ it "CM358" $+ "**foo bar**\n" ==-> "<p><strong>foo bar</strong></p>\n"+ it "CM359" $+ let s = "** foo bar**\n"+ in s ~-> errFancy posI (nonFlanking "**")+ it "CM360" $+ let s = "a**\"foo\"**\n"+ in s ~-> errFancy (posN 1 s) (nonFlanking "**")+ it "CM361" $+ let s = "foo**bar**\n"+ in s ~-> errFancy (posN 3 s) (nonFlanking "**")+ it "CM362" $+ "__foo bar__" ==-> "<p><strong>foo bar</strong></p>\n"+ it "CM363" $+ let s = "__ foo bar__\n"+ in s ~-> errFancy posI (nonFlanking "__")+ it "CM364" $+ let s = "__\nfoo bar__\n"+ in s ~-> errFancy posI (nonFlanking "__")+ it "CM365" $+ let s = "a__\"foo\"__\n"+ in s ~-> errFancy (posN 1 s) (nonFlanking "__")+ it "CM366" $+ let s = "foo__bar__\n"+ in s ~-> errFancy (posN 3 s) (nonFlanking "__")+ it "CM367" $+ let s = "5__6__78\n"+ in s ~-> errFancy (posN 1 s) (nonFlanking "__")+ it "CM368" $+ let s = "пристаням__стремятся__\n"+ in s ~-> errFancy (posN 9 s) (nonFlanking "__")+ it "CM369" $+ "__foo, __bar__, baz__" ==->+ "<p><strong>foo, <strong>bar</strong>, baz</strong></p>\n"+ it "CM370" $+ "foo-__\\(bar\\)__" ==-> "<p>foo-<strong>(bar)</strong></p>\n"+ it "CM371" $+ let s = "**foo bar **\n"+ in s ~-> errFancy (posN 10 s) (nonFlanking "**")+ it "CM372" $+ let s = "**(**foo)\n"+ in s ~-> errFancy posI (nonFlanking "**")+ it "CM373" $+ let s = "*(**foo**)*\n"+ in s ~-> errFancy posI (nonFlanking "*")+ xit "CM374" $ -- FIXME doesn't pass with current approach+ "**Gomphocarpus (*Gomphocarpus physocarpus*, syn.\n*Asclepias physocarpa*)**" ==->+ "<p><strong>Gomphocarpus (<em>Gomphocarpus physocarpus</em>, syn.\n<em>Asclepias physocarpa</em>)</strong></p>\n"+ it "CM375" $+ "**foo \"*bar*\" foo**" ==->+ "<p><strong>foo "<em>bar</em>" foo</strong></p>\n"+ it "CM376" $+ let s = "**foo**bar\n"+ in s ~-> errFancy (posN 5 s) (nonFlanking "**")+ it "CM377" $+ let s = "__foo bar __\n"+ in s ~-> errFancy (posN 10 s) (nonFlanking "__")+ it "CM378" $+ let s = "__(__foo)\n"+ in s ~-> errFancy posI (nonFlanking "__")+ it "CM379" $+ let s = "_(__foo__)_\n"+ in s ~-> errFancy posI (nonFlanking "_")+ it "CM380" $+ let s = "__foo__bar\n"+ in s ~-> errFancy (posN 5 s) (nonFlanking "__")+ it "CM381" $+ let s = "__пристаням__стремятся\n"+ in s ~-> errFancy (posN 11 s) (nonFlanking "__")+ it "CM382" $+ "__foo\\_\\_bar\\_\\_baz__" ==->+ "<p><strong>foo__bar__baz</strong></p>\n"+ it "CM383" $+ "__\\(bar\\)__." ==->+ "<p><strong>(bar)</strong>.</p>\n"+ it "CM384" $+ "*foo [bar](/url)*" ==->+ "<p><em>foo <a href=\"/url\">bar</a></em></p>\n"+ it "CM385" $+ "*foo\nbar*" ==->+ "<p><em>foo\nbar</em></p>\n"+ it "CM386" $+ "_foo __bar__ baz_" ==->+ "<p><em>foo <strong>bar</strong> baz</em></p>\n"+ it "CM387" $+ "_foo _bar_ baz_" ==->+ "<p><em>foo <em>bar</em> baz</em></p>\n"+ it "CM388" $+ let s = "__foo_ bar_"+ in s ~-> err (posN 5 s) (utoks "_ " <> etoks "__" <> eic)+ it "CM389" $+ "*foo *bar**" ==->+ "<p><em>foo <em>bar</em></em></p>\n"+ it "CM390" $+ "*foo **bar** baz*" ==->+ "<p><em>foo <strong>bar</strong> baz</em></p>\n"+ it "CM391" $+ let s = "*foo**bar**baz*\n"+ in s ~-> errFancy (posN 5 s) (nonFlanking "*")+ it "CM392" $+ "***foo** bar*\n" ==-> "<p><em><strong>foo</strong> bar</em></p>\n"+ it "CM393" $+ "*foo **bar***\n" ==-> "<p><em>foo <strong>bar</strong></em></p>\n"+ it "CM394" $+ let s = "*foo**bar***\n"+ in s ~-> errFancy (posN 5 s) (nonFlanking "*")+ it "CM395" $+ "*foo **bar *baz* bim** bop*\n" ==->+ "<p><em>foo <strong>bar <em>baz</em> bim</strong> bop</em></p>\n"+ it "CM396" $+ "*foo [*bar*](/url)*\n" ==->+ "<p><em>foo <a href=\"/url\"><em>bar</em></a></em></p>\n"+ it "CM397" $+ let s = "** is not an empty emphasis\n"+ in s ~-> errFancy posI (nonFlanking "**")+ it "CM398" $+ let s = "**** is not an empty strong emphasis\n"+ in s ~-> errFancy posI (nonFlanking "****")+ it "CM399" $+ "**foo [bar](/url)**" ==->+ "<p><strong>foo <a href=\"/url\">bar</a></strong></p>\n"+ it "CM400" $+ "**foo\nbar**" ==->+ "<p><strong>foo\nbar</strong></p>\n"+ it "CM401" $+ "__foo _bar_ baz__" ==->+ "<p><strong>foo <em>bar</em> baz</strong></p>\n"+ it "CM402" $+ "__foo __bar__ baz__" ==->+ "<p><strong>foo <strong>bar</strong> baz</strong></p>\n"+ it "CM403" $+ "____foo__ bar__" ==->+ "<p><strong><strong>foo</strong> bar</strong></p>\n"+ it "CM404" $+ "**foo **bar****" ==->+ "<p><strong>foo <strong>bar</strong></strong></p>\n"+ it "CM405" $+ "**foo *bar* baz**" ==->+ "<p><strong>foo <em>bar</em> baz</strong></p>\n"+ it "CM406" $+ let s = "**foo*bar*baz**\n"+ in s ~-> err (posN 5 s) (utoks "*b" <> etoks "**" <> eic)+ it "CM407" $+ "***foo* bar**" ==->+ "<p><strong><em>foo</em> bar</strong></p>\n"+ it "CM408" $+ "**foo *bar***" ==->+ "<p><strong>foo <em>bar</em></strong></p>\n"+ it "CM409" $+ "**foo *bar **baz**\nbim* bop**" ==->+ "<p><strong>foo <em>bar <strong>baz</strong>\nbim</em> bop</strong></p>\n"+ it "CM410" $+ "**foo [*bar*](/url)**" ==->+ "<p><strong>foo <a href=\"/url\"><em>bar</em></a></strong></p>\n"+ it "CM411" $+ let s = "__ is not an empty emphasis\n"+ in s ~-> errFancy posI (nonFlanking "__")+ it "CM412" $+ let s = "____ is not an empty strong emphasis\n"+ in s ~-> errFancy posI (nonFlanking "____")+ it "CM413" $+ let s = "foo ***\n"+ in s ~-> errFancy (posN 4 s) (nonFlanking "***")+ it "CM414" $+ "foo *\\**" ==-> "<p>foo <em>*</em></p>\n"+ it "CM415" $+ "foo *\\_*\n" ==-> "<p>foo <em>_</em></p>\n"+ it "CM416" $+ let s = "foo *****\n"+ in s ~-> errFancy (posN 8 s) (nonFlanking "*")+ it "CM417" $+ "foo **\\***" ==-> "<p>foo <strong>*</strong></p>\n"+ it "CM418" $+ "foo **\\_**\n" ==-> "<p>foo <strong>_</strong></p>\n"+ it "CM419" $+ let s = "**foo*\n"+ in s ~-> err (posN 5 s) (utok '*' <> etoks "**" <> eic)+ it "CM420" $+ let s = "*foo**\n"+ in s ~-> errFancy (posN 5 s) (nonFlanking "*")+ it "CM421" $+ let s = "***foo**\n"+ in s ~-> err (posN 8 s) (ueib <> etok '*' <> eic)+ it "CM422" $+ let s = "****foo*\n"+ in s ~-> err (posN 7 s) (utok '*' <> etoks "**" <> eic)+ it "CM423" $+ let s = "**foo***\n"+ in s ~-> errFancy (posN 7 s) (nonFlanking "*")+ it "CM424" $+ let s = "*foo****\n"+ in s ~-> errFancy (posN 5 s) (nonFlanking "***")+ it "CM425" $+ let s = "foo ___\n"+ in s ~-> errFancy (posN 4 s) (nonFlanking "___")+ it "CM426" $+ "foo _\\__" ==-> "<p>foo <em>_</em></p>\n"+ it "CM427" $+ "foo _\\*_" ==-> "<p>foo <em>*</em></p>\n"+ it "CM428" $+ let s = "foo _____\n"+ in s ~-> errFancy (posN 8 s) (nonFlanking "_")+ it "CM429" $+ "foo __\\___" ==-> "<p>foo <strong>_</strong></p>\n"+ it "CM430" $+ "foo __\\*__" ==-> "<p>foo <strong>*</strong></p>\n"+ it "CM431" $+ let s = "__foo_\n"+ in s ~-> err (posN 5 s) (utok '_' <> etoks "__" <> eic)+ it "CM432" $+ let s = "_foo__\n"+ in s ~-> errFancy (posN 5 s) (nonFlanking "_")+ it "CM433" $+ let s = "___foo__\n"+ in s ~-> err (posN 8 s) (ueib <> etok '_' <> eic)+ it "CM434" $+ let s = "____foo_\n"+ in s ~-> err (posN 7 s) (utok '_' <> etoks "__" <> eic)+ it "CM435" $+ let s = "__foo___\n"+ in s ~-> errFancy (posN 7 s) (nonFlanking "_")+ it "CM436" $+ let s = "_foo____\n"+ in s ~-> errFancy (posN 5 s) (nonFlanking "___")+ it "CM437" $+ "**foo**" ==-> "<p><strong>foo</strong></p>\n"+ it "CM438" $+ "*_foo_*" ==-> "<p><em><em>foo</em></em></p>\n"+ it "CM439" $+ "__foo__" ==-> "<p><strong>foo</strong></p>\n"+ it "CM440" $+ "_*foo*_" ==-> "<p><em><em>foo</em></em></p>\n"+ it "CM441" $+ "****foo****" ==-> "<p><strong><strong>foo</strong></strong></p>\n"+ it "CM442" $+ "____foo____" ==-> "<p><strong><strong>foo</strong></strong></p>\n"+ it "CM443" $+ "******foo******" ==->+ "<p><strong><strong><strong>foo</strong></strong></strong></p>\n"+ it "CM444" $+ "***foo***" ==-> "<p><em><strong>foo</strong></em></p>\n"+ it "CM445" $+ "_____foo_____" ==->+ "<p><strong><strong><em>foo</em></strong></strong></p>\n"+ it "CM446" $+ let s = "*foo _bar* baz_\n"+ in s ~-> err (posN 9 s) (utok '*' <> etok '_' <> eic)+ it "CM447" $+ let s = "*foo __bar *baz bim__ bam*\n"+ in s ~-> err (posN 19 s) (utok '_' <> etok '*' <> eic)+ it "CM448" $+ let s = "**foo **bar baz**\n"+ in s ~-> err (posN 17 s) (ueib <> etoks "**" <> eic)+ it "CM449" $+ let s = "*foo *bar baz*\n"+ in s ~-> err (posN 14 s) (ueib <> etok '*' <> eic)+ it "CM450" $+ let s = "*[bar*](/url)\n"+ in s ~-> err (posN 5 s) (utok '*' <> etok ']' <> eic)+ it "CM451" $+ let s = "_foo [bar_](/url)\n"+ in s ~-> err (posN 9 s) (utok '_' <> etok ']' <> eic)+ it "CM452" $+ let s = "*<img src=\"foo\" title=\"*\"/>\n"+ in s ~-> errFancy (posN 23 s) (nonFlanking "*")+ it "CM453" $+ let s = "**<a href=\"**\">"+ in s ~-> errFancy (posN 11 s) (nonFlanking "**")+ it "CM454" $+ let s = "__<a href=\"__\">\n"+ in s ~-> errFancy (posN 11 s) (nonFlanking "__")+ it "CM455" $+ "*a `*`*" ==-> "<p><em>a <code>*</code></em></p>\n"+ it "CM456" $+ "_a `_`_" ==-> "<p><em>a <code>_</code></em></p>\n"+ it "CM457" $+ let s = "**a<http://foo.bar/?q=**>"+ in s ~-> err (posN 25 s) (ueib <> etoks "**" <> eic)+ it "CM458" $+ let s = "__a<http://foo.bar/?q=__>"+ in s ~-> err (posN 26 s) (ueib <> etoks "__" <> eic)+ context "6.5 Links" $ do+ it "CM459" $+ "[link](/uri \"title\")" ==->+ "<p><a href=\"/uri\" title=\"title\">link</a></p>\n"+ it "CM460" $+ "[link](/uri)" ==->+ "<p><a href=\"/uri\">link</a></p>\n"+ it "CM461" $+ "[link]()" ==->+ "<p><a href>link</a></p>\n"+ it "CM462" $+ "[link](<>)" ==->+ "<p><a href>link</a></p>\n"+ it "CM463" $+ let s = "[link](/my uri)\n"+ in s ~-> err (posN 11 s)+ (utok 'u' <> etok '"' <> etok '\'' <> etok '(' <> elabel "white space")+ it "CM464" $+ let s = "[link](</my uri>)\n"+ in s ~-> err (posN 11 s)+ (utok ' ' <> etok '#' <> etok '/' <> etok '>' <> etok '?' <> eppi)+ it "CM465" $+ let s = "[link](foo\nbar)\n"+ in s ~-> err (posN 11 s)+ (utok 'b' <> etok '"' <> etok '\'' <> etok '(' <> elabel "white space")+ it "CM466" $+ let s = "[link](<foo\nbar>)\n"+ in s ~-> err (posN 11 s)+ (utok '\n' <> etok '#' <> etok '/' <> etok '>' <> etok '?' <> eppi)+ it "CM467" $+ let s = "[link](\\(foo\\))"+ in s ~-> err (posN 7 s) (utok '\\' <> etoks "//" <> etok '#' <>+ etok '/' <> etok '<' <> etok '?' <> elabel "ASCII alpha character" <>+ euri <> elabel "path piece" <> elabel "white space")+ it "CM468" $+ "[link](foo(and(bar)))\n" ==->+ "<p><a href=\"foo(and(bar\">link</a>))</p>\n"+ it "CM469" $+ let s = "[link](foo\\(and\\(bar\\))"+ in s ~-> err (posN 10 s) (utok '\\' <> etok '#' <> etok '/' <> etok '?' <> euri <> eppi)+ it "CM470" $+ "[link](<foo(and(bar)>)" ==->+ "<p><a href=\"foo(and(bar)\">link</a></p>\n"+ it "CM471" $+ let s = "[link](foo\\)\\:)"+ in s ~-> err (posN 10 s) (utok '\\' <> etok '#' <> etok '/' <> etok '?' <> euri <> eppi)+ it "CM472" $+ "[link](#fragment)\n\n[link](http://example.com#fragment)\n\n[link](http://example.com?foo=3#frag)\n"+ ==-> "<p><a href=\"#fragment\">link</a></p>\n<p><a href=\"http://example.com/#fragment\">link</a></p>\n<p><a href=\"http://example.com/?foo=3#frag\">link</a></p>\n"+ it "CM473" $+ let s = "[link](foo\\bar)"+ in s ~-> err (posN 10 s) (utok '\\' <> etok '#' <> etok '/' <> etok '?' <> euri <> eppi)+ it "CM474" $+ "[link](foo%20bä)"+ ==-> "<p><a href=\"foo%20b&auml;\">link</a></p>\n"+ it "CM475" $+ let s = "[link](\"title\")"+ in s ~-> err (posN 7 s)+ (utok '"' <> etoks "//" <> etok '#' <> etok '/' <> etok '<' <>+ etok '?' <> elabel "ASCII alpha character" <> euri <>+ elabel "path piece" <> elabel "white space")+ it "CM476" $+ "[link](/url \"title\")\n[link](/url 'title')\n[link](/url (title))" ==->+ "<p><a href=\"/url\" title=\"title\">link</a>\n<a href=\"/url\" title=\"title\">link</a>\n<a href=\"/url\" title=\"title\">link</a></p>\n"+ it "CM477" $+ "[link](/url \"title \\\""\")\n" ==->+ "<p><a href=\"/url\" title=\"title ""\">link</a></p>\n"+ it "CM478" $+ let s = "[link](/url \"title\")"+ in s ~-> err (posN 11 s)+ (utok ' ' <> etok '#' <> etok '/' <> etok '?' <> euri <> eppi)+ it "CM479" $+ let s = "[link](/url \"title \"and\" title\")\n"+ in s ~-> err (posN 20 s) (utok 'a' <> etok ')' <> elabel "white space")+ it "CM480" $+ "[link](/url 'title \"and\" title')" ==->+ "<p><a href=\"/url\" title=\"title "and" title\">link</a></p>\n"+ it "CM481" $+ "[link]( /uri\n \"title\" )" ==->+ "<p><a href=\"/uri\" title=\"title\">link</a></p>\n"+ it "CM482" $+ let s = "[link] (/uri)\n"+ in s ~-> errFancy (posN 1 s) (couldNotMatchRef "link" [])+ it "CM483" $+ let s = "[link [foo [bar]]](/uri)\n"+ in s ~-> err (posN 6 s) (utok '[' <> etok ']' <> eic)+ it "CM484" $+ let s = "[link] bar](/uri)\n"+ in s ~-> errFancy (posN 1 s) (couldNotMatchRef "link" [])+ it "CM485" $+ let s = "[link [bar](/uri)\n"+ in s ~-> err (posN 6 s) (utok '[' <> etok ']' <> eic)+ it "CM486" $+ "[link \\[bar](/uri)\n" ==->+ "<p><a href=\"/uri\">link [bar</a></p>\n"+ it "CM487" $+ "[link *foo **bar** `#`*](/uri)" ==->+ "<p><a href=\"/uri\">link <em>foo <strong>bar</strong> <code>#</code></em></a></p>\n"+ it "CM488" $+ "[](/uri)" ==->+ "<p><a href=\"/uri\"><img src=\"moon.jpg\" alt=\"moon\"></a></p>\n"+ it "CM489" $+ let s = "[foo [bar](/uri)](/uri)\n"+ in s ~-> err (posN 5 s) (utok '[' <> etok ']' <> eic)+ it "CM490" $+ let s = "[foo *[bar [baz](/uri)](/uri)*](/uri)\n"+ in s ~-> err (posN 6 s) (utok '[' <> eic)+ it "CM491" $+ let s = "](uri2)](uri3)"+ in s ~-> err (posN 3 s) (utok '[' <> eic)+ it "CM492" $+ let s = "*[foo*](/uri)\n"+ in s ~-> err (posN 5 s) (utok '*' <> etok ']' <> eic)+ it "CM493" $+ let s = "[foo *bar](baz*)\n"+ in s ~-> err (posN 9 s) (utok ']' <> etok '*' <> eic)+ it "CM494" $+ let s = "*foo [bar* baz]\n"+ in s ~-> err (posN 9 s) (utok '*' <> etok ']' <> eic)+ it "CM495" $+ "[foo <bar attr=\"](baz)\">" ==->+ "<p><a href=\"baz\">foo <bar attr="</a>"></p>\n"+ it "CM496" $+ let s = "[foo`](/uri)`\n"+ in s ~-> err (posN 13 s) (ueib <> etok ']' <> eic)+ it "CM497" $+ "[foo<http://example.com/?search=](uri)>" ==->+ "<p><a href=\"uri\">foo<http://example.com/?search=</a>></p>\n"+ it "CM498" $+ "[foo][bar]\n\n[bar]: /url \"title\"" ==->+ "<p><a href=\"/url\" title=\"title\">foo</a></p>\n"+ it "CM499" $+ let s = "[link [foo [bar]]][ref]\n\n[ref]: /uri"+ in s ~-> err (posN 6 s) (utok '[' <> etok ']' <> eic)+ it "CM500" $+ "[link \\[bar][ref]\n\n[ref]: /uri" ==->+ "<p><a href=\"/uri\">link [bar</a></p>\n"+ it "CM501" $+ "[link *foo **bar** `#`*][ref]\n\n[ref]: /uri" ==->+ "<p><a href=\"/uri\">link <em>foo <strong>bar</strong> <code>#</code></em></a></p>\n"+ it "CM502" $+ "[][ref]\n\n[ref]: /uri" ==->+ "<p><a href=\"/uri\"><img src=\"moon.jpg\" alt=\"moon\"></a></p>\n"+ it "CM503" $+ let s = "[foo [bar](/uri)][ref]\n\n[ref]: /uri"+ in s ~-> err (posN 5 s) (utok '[' <> etok ']' <> eic)+ it "CM504" $+ let s = "[foo *bar [baz][ref]*][ref]\n\n[ref]: /uri"+ in s ~-> err (posN 10 s) (utok '[' <> etok '*' <> eic)+ it "CM505" $+ let s = "*[foo*][ref]\n\n[ref]: /uri"+ in s ~-> err (posN 5 s) (utok '*' <> etok ']' <> eic)+ it "CM506" $+ let s = "[foo *bar][ref]\n\n[ref]: /uri"+ in s ~-> err (posN 9 s) (utok ']' <> etok '*' <> eic)+ it "CM507" $+ "[foo <bar attr=\"][ref]\">\n\n[ref]: /uri" ==->+ "<p><a href=\"/uri\">foo <bar attr="</a>"></p>\n"+ it "CM508" $+ let s = "[foo`][ref]`\n\n[ref]: /uri"+ in s ~-> err (posN 12 s) (ueib <> etok ']' <> eic)+ it "CM509" $+ "[foo<http://example.com/?search=][ref]>\n\n[ref]: /uri" ==->+ "<p><a href=\"/uri\">foo<http://example.com/?search=</a>></p>\n"+ it "CM510" $+ "[foo][BaR]\n\n[bar]: /url \"title\"" ==->+ "<p><a href=\"/url\" title=\"title\">foo</a></p>\n"+ it "CM511" $+ "[Толпой][Толпой] is a Russian word.\n\n[ТОЛПОЙ]: /url" ==->+ "<p><a href=\"/url\">Толпой</a> is a Russian word.</p>\n"+ it "CM512" $+ "[Foo\n bar]: /url\n\n[Baz][Foo bar]" ==->+ "<p><a href=\"/url\">Baz</a></p>\n"+ it "CM513" $+ let s = "[foo] [bar]\n\n[bar]: /url \"title\""+ in s ~-> errFancy (posN 1 s) (couldNotMatchRef "foo" [])+ it "CM514" $+ let s = "[foo]\n[bar]\n\n[bar]: /url \"title\""+ in s ~-> errFancy (posN 1 s) (couldNotMatchRef "foo" [])+ it "CM515" $+ let s = "[foo]: /url1\n\n[foo]: /url2\n\n[bar][foo]"+ in s ~-> errFancy (posN 15 s) (duplicateRef "foo")+ it "CM516" $+ "[bar][foo\\!]\n\n[foo!]: /url" ==->+ "<p><a href=\"/url\">bar</a></p>\n"+ it "CM517" $+ let s = "[foo][ref[]\n\n[ref[]: /uri"+ in s ~~->+ [ err (posN 9 s) (utok '[' <> etok ']' <> elabel "the rest of reference label")+ , err (posN 17 s) (utok '[' <> etok ']' <> eic) ]+ it "CM518" $+ let s = "[foo][ref[bar]]\n\n[ref[bar]]: /uri"+ in s ~~->+ [ err (posN 9 s) (utok '[' <> etok ']' <> elabel "the rest of reference label")+ , err (posN 21 s) (utok '[' <> etok ']' <> eic) ]+ it "CM519" $+ let s = "[[[foo]]]\n\n[[[foo]]]: /url"+ in s ~~->+ [ err (posN 1 s) (utok '[' <> eic)+ , err (posN 12 s) (utok '[' <> eic) ]+ it "CM520" $+ "[foo][ref\\[]\n\n[ref\\[]: /uri" ==->+ "<p><a href=\"/uri\">foo</a></p>\n"+ it "CM521" $+ "[bar\\\\]: /uri\n\n[bar\\\\]" ==->+ "<p><a href=\"/uri\">bar\\</a></p>\n"+ it "CM522" $+ let s = "[]\n\n[]: /uri"+ in s ~~->+ [ err (posN 1 s) (utok ']' <> eic)+ , err (posN 5 s) (utok ']' <> eic) ]+ it "CM523" $+ let s = "[\n ]\n\n[\n ]: /uri"+ in s ~~->+ [ errFancy (posN 1 s) (couldNotMatchRef "" [])+ , errFancy (posN 7 s) (couldNotMatchRef "" []) ]+ it "CM524" $+ "[foo][]\n\n[foo]: /url \"title\"" ==->+ "<p><a href=\"/url\" title=\"title\">foo</a></p>\n"+ it "CM525" $+ let s = "[*foo* bar][]\n\n[*foo* bar]: /url \"title\""+ in s ~-> errFancy (posN 1 s) (couldNotMatchRef "foo bar" ["*foo* bar"])+ it "CM526" $+ "[Foo][]\n\n[foo]: /url \"title\"" ==->+ "<p><a href=\"/url\" title=\"title\">Foo</a></p>\n"+ it "CM527" $+ let s = "[foo] \n[]\n\n[foo]: /url \"title\""+ in s ~-> err (posN 8 s) (utok ']' <> eic)+ it "CM528" $+ "[foo]\n\n[foo]: /url \"title\"" ==->+ "<p><a href=\"/url\" title=\"title\">foo</a></p>\n"+ it "CM529" $+ let s = "[*foo* bar]\n\n[*foo* bar]: /url \"title\""+ in s ~-> errFancy (posN 1 s) (couldNotMatchRef "foo bar" ["*foo* bar"])+ it "CM530" $+ let s = "[[*foo* bar]]\n\n[*foo* bar]: /url \"title\""+ in s ~-> err (posN 1 s) (utok '[' <> eic)+ it "CM531" $+ let s = "[[bar [foo]\n\n[foo]: /url"+ in s ~-> err (posN 1 s) (utok '[' <> eic)+ it "CM532" $+ "[Foo]\n\n[foo]: /url \"title\"" ==->+ "<p><a href=\"/url\" title=\"title\">Foo</a></p>\n"+ it "CM533" $+ "[foo] bar\n\n[foo]: /url" ==->+ "<p><a href=\"/url\">foo</a> bar</p>\n"+ it "CM534" $+ let s = "\\[foo]\n\n[foo]: /url \"title\""+ in s ~-> err (posN 5 s) (utok ']' <> eeib <> eic)+ it "CM535" $+ let s = "[foo*]: /url\n\n*[foo*]"+ in s ~-> err (posN 19 s) (utok '*' <> etok ']' <> eic)+ it "CM536" $+ "[foo][bar]\n\n[foo]: /url1\n[bar]: /url2" ==->+ "<p><a href=\"/url2\">foo</a></p>\n"+ it "CM537" $+ "[foo][]\n\n[foo]: /url1" ==->+ "<p><a href=\"/url1\">foo</a></p>\n"+ it "CM538" $+ "[foo]()\n\n[foo]: /url1" ==->+ "<p><a href>foo</a></p>\n"+ it "CM539" $+ let s = "[foo](not a link)\n\n[foo]: /url1"+ in s ~-> err (posN 10 s)+ (utok 'a' <> etok '"' <> etok '\'' <> etok '(' <> elabel "white space")+ it "CM540" $+ let s = "[foo][bar][baz]\n\n[baz]: /url"+ in s ~-> errFancy (posN 6 s) (couldNotMatchRef "bar" ["baz"])+ it "CM541" $+ "[foo][bar][baz]\n\n[baz]: /url1\n[bar]: /url2" ==->+ "<p><a href=\"/url2\">foo</a><a href=\"/url1\">baz</a></p>\n"+ it "CM542" $+ let s = "[foo][bar][baz]\n\n[baz]: /url1\n[foo]: /url2"+ in s ~-> errFancy (posN 6 s) (couldNotMatchRef "bar" ["baz"])+ context "6.6 Images" $ do+ it "CM543" $+ "![foo](/url \"title\")" ==->+ "<p><img src=\"/url\" title=\"title\" alt=\"foo\"></p>\n"+ it "CM544" $+ "![foo *bar*](train.jpg \"train & tracks\")" ==->+ "<p><img src=\"train.jpg\" title=\"train & tracks\" alt=\"foo bar\"></p>\n"+ it "CM545" $+ let s = "](/url2)\n"+ in s ~-> err (posN 6 s) (utok '!' <> etok ']' <> eic)+ it "CM546" $+ "](/url2)" ==->+ "<p><img src=\"/url2\" alt=\"foo bar\"></p>\n"+ it "CM547" $+ let s = "![foo *bar*][]\n\n[foo *bar*]: train.jpg \"train & tracks\"\n"+ in s ~-> errFancy (posN 2 s) (couldNotMatchRef "foo bar" ["foo *bar*"])+ it "CM548" $+ "![foo *bar*][foobar]\n\n[FOOBAR]: train.jpg \"train & tracks\"" ==->+ "<p><img src=\"train.jpg\" title=\"train & tracks\" alt=\"foo bar\"></p>\n"+ it "CM549" $+ "" ==->+ "<p><img src=\"train.jpg\" alt=\"foo\"></p>\n"+ it "CM550" $+ "My ![foo bar](/path/to/train.jpg \"title\" )" ==->+ "<p>My <img src=\"/path/to/train.jpg\" title=\"title\" alt=\"foo bar\"></p>\n"+ it "CM551" $+ "" ==->+ "<p><img src=\"url\" alt=\"foo\"></p>\n"+ it "CM552" $+ "" ==-> "<p><img src=\"/url\" alt></p>\n"+ it "CM553" $+ "![foo][bar]\n\n[bar]: /url" ==->+ "<p><img src=\"/url\" alt=\"foo\"></p>\n"+ it "CM554" $+ "![foo][bar]\n\n[BAR]: /url" ==->+ "<p><img src=\"/url\" alt=\"foo\"></p>\n"+ it "CM555" $+ "![foo][]\n\n[foo]: /url \"title\"" ==->+ "<p><img src=\"/url\" title=\"title\" alt=\"foo\"></p>\n"+ it "CM556" $+ "![foo bar][]\n\n[foo bar]: /url \"title\"" ==->+ "<p><img src=\"/url\" title=\"title\" alt=\"foo bar\"></p>\n"+ it "CM557" $+ "![Foo][]\n\n[foo]: /url \"title\"" ==->+ "<p><img src=\"/url\" title=\"title\" alt=\"Foo\"></p>\n"+ it "CM558" $+ let s = "![foo] \n[]\n\n[foo]: /url \"title\""+ in s ~-> err (posN 9 s) (utok ']' <> eic)+ it "CM559" $+ "![foo]\n\n[foo]: /url \"title\"" ==->+ "<p><img src=\"/url\" title=\"title\" alt=\"foo\"></p>\n"+ it "CM560" $+ "![*foo* bar]\n\n[foo bar]: /url \"title\"\n" ==->+ "<p><img src=\"/url\" title=\"title\" alt=\"foo bar\"></p>\n"+ it "CM561" $+ let s = "![[foo]]\n\n[[foo]]: /url \"title\""+ in s ~~->+ [ errFancy (posN 3 s) (couldNotMatchRef "foo" [])+ , err (posN 11 s) (utok '[' <> eic) ]+ it "CM562" $+ "![Foo]\n\n[foo]: /url \"title\"" ==->+ "<p><img src=\"/url\" title=\"title\" alt=\"Foo\"></p>\n"+ it "CM563" $+ "!\\[foo\\]\n\n[foo]: /url \"title\"" ==->+ "<p>![foo]</p>\n"+ it "CM564" $+ "\\![foo]\n\n[foo]: /url \"title\"" ==->+ "<p>!<a href=\"/url\" title=\"title\">foo</a></p>\n"+ context "6.7 Autolinks" $ do+ it "CM565" $+ "<http://foo.bar.baz>" ==->+ "<p><a href=\"http://foo.bar.baz/\">http://foo.bar.baz/</a></p>\n"+ it "CM566" $+ "<http://foo.bar.baz/test?q=hello&id=22&boolean>" ==->+ "<p><a href=\"http://foo.bar.baz/test?q=hello&id=22&boolean\">http://foo.bar.baz/test?q=hello&id=22&boolean</a></p>\n"+ it "CM567" $+ "<irc://foo.bar:2233/baz>" ==->+ "<p><a href=\"irc://foo.bar:2233/baz\">irc://foo.bar:2233/baz</a></p>\n"+ it "CM568" $+ "<MAILTO:FOO@BAR.BAZ>" ==->+ "<p><a href=\"mailto:FOO@BAR.BAZ\">FOO@BAR.BAZ</a></p>\n"+ it "CM569" $+ "<a+b+c:d>" ==->+ "<p><a href=\"a+b+c:d\">a+b+c:d</a></p>\n"+ it "CM570" $+ "<made-up-scheme://foo,bar>" ==->+ "<p><a href=\"made-up-scheme://foo/,bar\">made-up-scheme://foo/,bar</a></p>\n"+ it "CM571" $+ "<http://../>" ==->+ "<p><http://../></p>\n"+ it "CM572" $+ "<localhost:5001/foo>" ==->+ "<p><a href=\"localhost:5001/foo\">localhost:5001/foo</a></p>\n"+ it "CM573" $+ "<http://foo.bar/baz bim>\n" ==->+ "<p><http://foo.bar/baz bim></p>\n"+ it "CM574" $+ "<http://example.com/\\[\\>" ==->+ "<p><http://example.com/[></p>\n"+ it "CM575" $+ "<foo@bar.example.com>" ==->+ "<p><a href=\"mailto:foo@bar.example.com\">foo@bar.example.com</a></p>\n"+ it "CM576" $+ "<foo+special@Bar.baz-bar0.com>" ==->+ "<p><a href=\"mailto:foo+special@Bar.baz-bar0.com\">foo+special@Bar.baz-bar0.com</a></p>\n"+ it "CM577" $+ "<foo\\+@bar.example.com>" ==->+ "<p><foo+@bar.example.com></p>\n"+ it "CM578" $+ "<>" ==->+ "<p><></p>\n"+ it "CM579" $+ "< http://foo.bar >" ==->+ "<p>< http://foo.bar ></p>\n"+ it "CM580" $+ "<m:abc>" ==->+ "<p><a href=\"m:abc\">m:abc</a></p>\n"+ it "CM581" $+ "<foo.bar.baz>" ==->+ "<p><a href=\"foo.bar.baz\">foo.bar.baz</a></p>\n"+ it "CM582" $+ "http://example.com" ==->+ "<p>http://example.com</p>\n"+ it "CM583" $+ "foo@bar.example.com" ==->+ "<p>foo@bar.example.com</p>\n"+ context "6.8 Raw HTML" $+ -- NOTE We do not support raw HTML, see the readme.+ return ()+ context "6.9 Hard line breaks" $ do+ -- NOTE We currently do not support hard line breaks represented in+ -- markup as two spaces before newline.+ it "CM605" $+ "foo \nbaz" ==->+ "<p>foo\nbaz</p>\n"+ it "CM606" $+ "foo\\\nbaz\n" ==->+ "<p>foo<br>\nbaz</p>\n"+ it "CM607" $+ "foo \nbaz" ==->+ "<p>foo\nbaz</p>\n"+ it "CM608" $+ "foo \n bar" ==->+ "<p>foo\nbar</p>\n"+ it "CM609" $+ "foo\\\n bar" ==->+ "<p>foo<br>\nbar</p>\n"+ it "CM610" $+ "*foo \nbar*" ==->+ "<p><em>foo\nbar</em></p>\n"+ it "CM611" $+ "*foo\\\nbar*" ==->+ "<p><em>foo<br>\nbar</em></p>\n"+ it "CM612" $+ "`code \nspan`" ==->+ "<p><code>code span</code></p>\n"+ it "CM613" $+ "`code\\\nspan`" ==->+ "<p><code>code\\ span</code></p>\n"+ it "CM614" $+ "<a href=\"foo \nbar\">" ==->+ "<p><a href="foo\nbar"></p>\n"+ it "CM615" $+ "<a href=\"foo\\\nbar\">" ==->+ "<p><a href="foo<br>\nbar"></p>\n"+ it "CM616" $+ "foo\\" ==->+ "<p>foo\\</p>\n"+ it "CM617" $+ "foo " ==->+ "<p>foo</p>\n"+ it "CM618" $+ "### foo\\" ==->+ "<h3 id=\"foo\">foo\\</h3>\n"+ it "CM619" $+ "### foo " ==->+ "<h3 id=\"foo\">foo</h3>\n"+ context "6.10 Soft line breaks" $ do+ it "CM620" $+ "foo\nbaz" ==->+ "<p>foo\nbaz</p>\n"+ it "CM621" $+ "foo \n baz" ==->+ "<p>foo\nbaz</p>\n"+ context "6.11 Textual content" $ do+ it "CM622" $+ "hello $.;'there" ==->+ "<p>hello $.;'there</p>\n"+ it "CM623" $+ "Foo χρῆν" ==->+ "<p>Foo χρῆν</p>\n"+ it "CM624" $+ "Multiple spaces" ==->+ "<p>Multiple spaces</p>\n" -- NOTE I don't test these so extensively because they share -- implementation with emphasis and strong emphasis which are thoroughly -- tested already.