diff --git a/CHANGELOG.md b/CHANGELOG.md --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -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. diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -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 `` 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 diff --git a/Text/MMark.hs b/Text/MMark.hs --- a/Text/MMark.hs +++ b/Text/MMark.hs @@ -19,7 +19,7 @@ -- -- MMark mostly tries to follow the Common Mark specification as given here: -- --- +-- -- -- 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 diff --git a/Text/MMark/Internal.hs b/Text/MMark/Internal.hs --- a/Text/MMark/Internal.hs +++ b/Text/MMark/Internal.hs @@ -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 diff --git a/Text/MMark/Parser.hs b/Text/MMark/Parser.hs --- a/Text/MMark/Parser.hs +++ b/Text/MMark/Parser.hs @@ -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. diff --git a/mmark.cabal b/mmark.cabal --- a/mmark.cabal +++ b/mmark.cabal @@ -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 diff --git a/tests/Text/MMark/TestUtils.hs b/tests/Text/MMark/TestUtils.hs --- a/tests/Text/MMark/TestUtils.hs +++ b/tests/Text/MMark/TestUtils.hs @@ -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'' diff --git a/tests/Text/MMarkSpec.hs b/tests/Text/MMarkSpec.hs --- a/tests/Text/MMarkSpec.hs +++ b/tests/Text/MMarkSpec.hs @@ -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" ==-> - "
foo\tbaz\t\tbim\n
\n" - it "CM2" $ - " \tfoo\tbaz\t\tbim" ==-> - "
foo\tbaz\t\tbim\n
\n" - it "CM3" $ - " a\ta\n ὐ\ta" ==-> - "
a\ta\nὐ\ta\n
\n" - it "CM4" $ - " - foo\n\n\tbar" ==-> - "
    \n
  • \n

    foo

    \n

    bar

    \n
    • \n
\n" - it "CM5" $ - "- foo\n\n\t\tbar" ==-> - "
    \n
  • \n

    foo

    \n
      bar\n
    \n
    • \n
\n" - it "CM6" $ - ">\t\tfoo" ==-> - "
\n
  foo\n
\n
\n" - it "CM7" $ - "-\t\tfoo" ==-> - "
    \n
  • \n
      foo\n
    \n
    • \n
\n" - it "CM8" $ - " foo\n\tbar" ==-> - "
foo\nbar\n
\n" - it "CM9" $ - " - foo\n - bar\n\t - baz" ==-> - "
    \n
  • \nfoo\n
      \n
    • \nbar\n
        \n
      • \nbaz\n
        • \n
      \n
      • \n
    \n
    • \n
\n" - it "CM10" $ - "#\tFoo" ==-> "

Foo

\n" - it "CM11" $ - "*\t*\t*\t" ==-> "
\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___" ==-> "
\n
\n
\n" - it "CM14" $ - "+++" ==-> "

+++

\n" - it "CM15" $ - "===" ==-> "

===

\n" - it "CM16" $ - let s = "--\n**\n__\n" - in s ~-> errFancy (posN 3 s) (nonFlanking "**") - it "CM17" $ - " ***\n ***\n ***" ==-> "
\n
\n
\n" - it "CM18" $ - " ***" ==-> "
***\n
\n" - it "CM19" $ - let s = "Foo\n ***\n" - in s ~-> errFancy (posN 8 s) (nonFlanking "***") - it "CM20" $ - "_____________________________________" ==-> - "
\n" - it "CM21" $ - " - - -" ==-> "
\n" - it "CM22" $ - " ** * ** * ** * **" ==-> "
\n" - it "CM23" $ - "- - - -" ==-> "
\n" - it "CM24" $ - "- - - - " ==-> "
\n" - it "CM25" $ - let s = "_ _ _ _ a\n\na------\n\n---a---\n" - in s ~-> errFancy posI (nonFlanking "_") - it "CM26" $ - " *\\-*" ==-> "

-

\n" - it "CM27" $ - "- foo\n***\n- bar" ==-> - "
    \n
  • \nfoo\n
    • \n
\n
\n
    \n
  • \nbar\n
    • \n
\n" - it "CM28" $ - "Foo\n***\nbar" ==-> - "

Foo

\n
\n

bar

\n" - xit "CM29" $ -- FIXME pending setext headings - "Foo\n---\nbar" ==-> - "

Foo

\n

bar

\n" - it "CM30" $ - "* Foo\n* * *\n* Bar" ==-> - "
    \n
  • \nFoo\n
    • \n
  • \n
      \n
    • \n
        \n
      • \n\n
        • \n
      \n
      • \n
    \n
    • \n
  • \nBar\n
    • \n
\n" - it "CM31" $ - "- Foo\n- * * *" ==-> - "
    \n
  • \nFoo\n
    • \n
  • \n
    \n
    • \n
\n" - context "4.2 ATX headings" $ do - it "CM32" $ - "# foo\n## foo\n### foo\n#### foo\n##### foo\n###### foo" ==-> - "

foo

\n

foo

\n

foo

\n

foo

\n
foo
\n
foo
\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" ==-> "

## foo

\n" - it "CM36" $ - "# foo *bar* \\*baz\\*" ==-> "

foo bar *baz*

\n" - it "CM37" $ - "# foo " ==-> - "

foo

\n" - it "CM38" $ - " ### foo\n ## foo\n # foo" ==-> - "

foo

\n

foo

\n

foo

\n" - it "CM39" $ - " # foo" ==-> "
# foo\n
\n" - it "CM40" $ - "foo\n # bar" ==-> "

foo\n# bar

\n" - it "CM41" $ - "## foo ##\n ### bar ###" ==-> - "

foo

\n

bar

\n" - it "CM42" $ - "# foo ##################################\n##### foo ##" ==-> - "

foo

\n
foo
\n" - it "CM43" $ - "### foo ### " ==-> "

foo

\n" - it "CM44" $ - "### foo ### b" ==-> "

foo ### b

\n" - it "CM45" $ - "# foo#" ==-> "

foo#

\n" - it "CM46" $ - "### foo \\###\n## foo #\\##\n# foo \\#" ==-> - "

foo ###

\n

foo ###

\n

foo #

\n" - it "CM47" $ - "****\n## foo\n****" ==-> - "
\n

foo

\n
\n" - it "CM48" $ - "Foo bar\n# baz\nBar foo" ==-> - "

Foo bar

\n

baz

\n

Bar foo

\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" ==-> - "
a simple\n  indented code block\n
\n" - it "CM77" $ - " - foo\n\n bar" ==-> - "
    \n
  • \n

    foo

    \n

    bar

    \n
    • \n
\n" - it "CM78" $ - "1. foo\n\n - bar" ==-> - "
    \n
  1. \n

    foo

    \n
      \n
    • \nbar\n
      • \n
    \n
    2. \n
\n" - it "CM79" $ - " \n *hi*\n\n - one" ==-> - "
<a/>\n*hi*\n\n- one\n
\n" - it "CM80" $ - " chunk1\n\n chunk2\n \n \n \n chunk3" ==-> - "
chunk1\n\nchunk2\n\n\n\nchunk3\n
\n" - it "CM81" $ - " chunk1\n \n chunk2" ==-> - "
chunk1\n  \n  chunk2\n
\n" - it "CM82" $ - "Foo\n bar\n" ==-> - "

Foo\nbar

\n" - it "CM83" $ - " foo\nbar" ==-> - "
foo\n
\n

bar

\n" - xit "CM84" $ -- FIXME pending setext headings - "# Heading\n foo\nHeading\n------\n foo\n----\n" ==-> - "

Heading

\n
foo\n
\n

Heading

\n
foo\n
\n
\n" - it "CM85" $ - " foo\n bar" ==-> - "
    foo\nbar\n
\n" - it "CM86" $ - "\n \n foo\n \n" ==-> - "
foo\n
\n" - it "CM87" $ - " foo " ==-> - "
foo  \n
\n" - context "4.5 Fenced code blocks" $ do - it "CM88" $ - "```\n<\n >\n```" ==-> - "
<\n >\n
\n" - it "CM89" $ - "~~~\n<\n >\n~~~" ==-> - "
<\n >\n
\n" - it "CM90" $ - "```\naaa\n~~~\n```" ==-> - "
aaa\n~~~\n
\n" - it "CM91" $ - "~~~\naaa\n```\n~~~" ==-> - "
aaa\n```\n
\n" - it "CM92" $ - "````\naaa\n```\n``````" ==-> - "
aaa\n```\n
\n" - it "CM93" $ - "~~~~\naaa\n~~~\n~~~~" ==-> - "
aaa\n~~~\n
\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```" ==-> - "
\n  \n
\n" - it "CM98" $ - "```\n```" ==-> - "
\n" - it "CM99" $ - " ```\n aaa\naaa\n```" ==-> - "
aaa\naaa\n
\n" - it "CM100" $ - " ```\naaa\n aaa\naaa\n ```" ==-> - "
aaa\naaa\naaa\n
\n" - it "CM101" $ - " ```\n aaa\n aaa\n aaa\n ```" ==-> - "
aaa\n aaa\naaa\n
\n" - it "CM102" $ - " ```\n aaa\n ```" ==-> - "
```\naaa\n```\n
\n" - it "CM103" $ - "```\naaa\n ```" ==-> - "
aaa\n
\n" - it "CM104" $ - " ```\naaa\n ```" ==-> - "
aaa\n
\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" ==-> - "

\naaa

\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" ==-> - "

foo

\n
bar\n
\n

baz

\n" - xit "CM109" $ -- FIXME pending setext headings - "foo\n---\n~~~\nbar\n~~~\n# baz" ==-> - "

foo

\n
bar\n
\n

baz

\n" - it "CM110" $ - "```ruby\ndef foo(x)\n return 3\nend\n```" ==-> - "
def foo(x)\n  return 3\nend\n
\n" - it "CM111" $ - "~~~~ ruby startline=3 $%@#$\ndef foo(x)\n return 3\nend\n~~~~~~~" ==-> - "
def foo(x)\n  return 3\nend\n
\n" - it "CM112" $ - "````;\n````" ==-> - "
\n" - it "CM113" $ - "``` aa ```\nfoo" ==-> - "

aa\nfoo

\n" - it "CM114" $ - "```\n``` aaa\n```" ==-> - "
``` aaa\n
\n" - context "4.8 Paragraphs" $ do - it "CM180" $ - "aaa\n\nbbb" ==-> - "

aaa

\n

bbb

\n" - it "CM181" $ - "aaa\nbbb\n\nccc\nddd" ==-> - "

aaa\nbbb

\n

ccc\nddd

\n" - it "CM182" $ - "aaa\n\n\nbbb" ==-> - "

aaa

\n

bbb

\n" - it "CM183" $ - " aaa\n bbb" ==-> - "

aaa\nbbb

\n" - it "CM184" $ - "aaa\n bbb\n ccc" ==-> - "

aaa\nbbb\nccc

\n" - it "CM185" $ - " aaa\nbbb" ==-> "

aaa\nbbb

\n" - it "CM186" $ - " aaa\nbbb" ==-> - "
aaa\n
\n

bbb

\n" - it "CM187" $ - "aaa \nbbb " ==-> - "

aaa\nbbb

\n" - context "4.9 Blank lines" $ - it "CM188" $ - " \n\naaa\n \n\n# aaa\n\n " ==-> - "

aaa

\n

aaa

\n" - context "5.1 Block quotes" $ do - it "CM189" $ - "> # Foo\n bar\n baz" ==-> - "
\n

Foo

\n

bar\nbaz

\n
\n" - it "CM190" $ - "># Foo\n bar\n baz" ==-> - "
\n

Foo

\n

bar\nbaz

\n
\n" - it "CM191" $ - " > # Foo\n bar\n baz" ==-> - "
\n

Foo

\n

bar\nbaz

\n
\n" - it "CM192" $ - " > # Foo\n > bar\n > baz" ==-> - "
> # Foo\n> bar\n> baz\n
\n" - it "CM193" $ - "> # Foo\n> bar\nbaz" ==-> - "
\n

Foo

\n
\n
\n

bar

\n
\n

baz

\n" - it "CM194" $ - "> bar\nbaz\n> foo" ==-> - "
\n

bar

\n
\n

baz

\n
\n

foo

\n
\n" - it "CM195" $ - "> foo\n---" ==-> - "
\n

foo

\n
\n
\n" - it "CM196" $ - "> - foo\n- bar" ==-> - "
\n
    \n
  • \nfoo\n
    • \n
\n
\n
    \n
  • \nbar\n
    • \n
\n" - it "CM197" $ - "> foo\n bar" ==-> - "
\n
foo\n
\n

bar

\n
\n" - it "CM198" $ - "> ```\nfoo\n```" ==-> - "
\n
foo\n
\n
\n" - it "CM199" $ - "> foo\n - bar" ==-> - "
\n

foo

\n
    \n
  • \nbar\n
    • \n
\n
\n" - it "CM200" $ - ">" ==-> - "
\n
\n" - it "CM201" $ - ">\n> \n> " ==-> - "
\n
\n
\n
\n
\n
\n" - it "CM202" $ - ">\n foo\n " ==-> - "
\n

foo

\n
\n" - it "CM203" $ - "> foo\n\n> bar" ==-> - "
\n

foo

\n
\n
\n

bar

\n
\n" - it "CM204" $ - "> foo\n bar" ==-> - "
\n

foo\nbar

\n
\n" - it "CM205" $ - "> foo\n\n bar" ==-> - "
\n

foo

\n

bar

\n
\n" - it "CM206" $ - "foo\n> bar" ==-> - "

foo

\n
\n

bar

\n
\n" - it "CM207" $ - "> aaa\n***\n> bbb" ==-> - "
\n

aaa

\n
\n
\n
\n

bbb

\n
\n" - it "CM208" $ - "> bar\n baz" ==-> - "
\n

bar\nbaz

\n
\n" - it "CM209" $ - "> bar\n\nbaz" ==-> - "
\n

bar

\n
\n

baz

\n" - it "CM210" $ - "> bar\n\nbaz" ==-> - "
\n

bar

\n
\n

baz

\n" - it "CM211" $ - "> > > foo\nbar" ==-> - "
\n
\n
\n

foo

\n
\n
\n
\n

bar

\n" - it "CM212" $ - ">>> foo\n bar\n baz" ==-> - "
\n
\n
\n

foo\nbar\nbaz

\n
\n
\n
\n" - it "CM213" $ - "> code\n\n> not code" ==-> - "
\n
code\n
\n
\n
\n

not code

\n
\n" - context "5.2 List items" $ do - it "CM214" $ - "A paragraph\nwith two lines.\n\n indented code\n\n> A block quote." ==-> - "

A paragraph\nwith two lines.

\n
indented code\n
\n
\n

A block quote.

\n
\n" - it "CM215" $ - "1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==-> - "
    \n
  1. \n

    A paragraph\nwith two lines.

    \n
    indented code\n
    \n
    \n

    A block quote.

    \n
    \n
    2. \n
\n" - it "CM216" $ - "- one\n\n two" ==-> - "
    \n
  • \none\n
    • \n
\n

two

\n" - it "CM217" $ - "- one\n\n two" ==-> - "
    \n
  • \n

    one

    \n

    two

    \n
    • \n
\n" - it "CM218" $ - " - one\n\n two" ==-> - "
    \n
  • \none\n
    • \n
\n
 two\n
\n" - it "CM219" $ - " - one\n\n two" ==-> - "
    \n
  • \n

    one

    \n

    two

    \n
    • \n
\n" - it "CM220" $ - " > > 1. one\n\n two" ==-> - "
\n
\n
    \n
  1. \none\n
    2. \n
\n

two

\n
\n
\n" - it "CM221" $ - ">>- one\n\n two" ==-> - "
\n
\n
    \n
  • \n

    one

    \n

    two

    \n
    • \n
\n
\n
\n" - it "CM222" $ - "-one\n\n2.two" ==-> - "

-one

\n

2.two

\n" - it "CM223" $ - "- foo\n\n\n bar" ==-> - "
    \n
  • \n

    foo

    \n

    bar

    \n
    • \n
\n" - it "CM224" $ - "1. foo\n\n ```\n bar\n ```\n\n baz\n\n > bam" ==-> - "
    \n
  1. \n

    foo

    \n
    bar\n
    \n

    baz

    \n
    \n

    bam

    \n
    \n
    2. \n
\n" - it "CM225" $ - "- Foo\n\n bar\n\n\n baz" ==-> - "
    \n
  • \n

    Foo

    \n
    bar\n\n\nbaz\n
    \n
    • \n
\n" - it "CM226" $ - "123456789. ok" ==-> - "
    \n
  1. \nok\n
    2. \n
\n" - it "CM227" $ - let s = "1234567890. not ok\n" - in s ~-> errFancy posI (indexTooBig 1234567890) - it "CM228" $ - "0. ok" ==-> - "
    \n
  1. \nok\n
    2. \n
\n" - it "CM229" $ - "003. ok" ==-> - "
    \n
  1. \nok\n
    2. \n
\n" - it "CM230" $ - "-1. not ok" ==-> - "

-1. not ok

\n" - it "CM231" $ - "- foo\n\n bar" ==-> - "
    \n
  • \n

    foo

    \n
    bar\n
    \n
    • \n
\n" - it "CM232" $ - " 10. foo\n\n bar" ==-> - "
    \n
  1. \n

    foo

    \n
    bar\n
    \n
    2. \n
\n" - it "CM233" $ - " indented code\n\nparagraph\n\n more code" ==-> - "
indented code\n
\n

paragraph

\n
more code\n
\n" - it "CM234" $ - "1. indented code\n\n paragraph\n\n more code" ==-> - "
    \n
  1. \n
    indented code\n
    \n

    paragraph

    \n
    more code\n
    \n
    2. \n
\n" - it "CM235" $ - "1. indented code\n\n paragraph\n\n more code" ==-> - "
    \n
  1. \n
     indented code\n
    \n

    paragraph

    \n
    more code\n
    \n
    2. \n
\n" - it "CM236" $ - " foo\n\nbar" ==-> - "

foo

\n

bar

\n" - it "CM237" $ - "- foo\n\n bar" ==-> - "
    \n
  • \nfoo\n
    • \n
\n

bar

\n" - it "CM238" $ - "- foo\n\n bar" ==-> - "
    \n
  • \n

    foo

    \n

    bar

    \n
    • \n
\n" - it "CM239" $ - "-\n foo\n-\n ```\n bar\n ```\n-\n baz" ==-> - "
    \n
  • \n

    foo

    \n
    • \n
  • \n
    bar\n
    \n
    • \n
  • \n
    baz\n
    \n
    • \n
\n" - it "CM240" $ - "- \n foo" ==-> - "
    \n
  • \nfoo\n
    • \n
\n" - it "CM241" $ - "-\n\n foo" ==-> - "
    \n
  • \n\n
    • \n
\n

foo

\n" - it "CM241b" $ - "1.\n\n foo" ==-> - "
    \n
  1. \n\n
    2. \n
\n

foo

\n" - it "CM242" $ - "- foo\n-\n- bar" ==-> - "
    \n
  • \nfoo\n
    • \n
  • \n\n
    • \n
  • \nbar\n
    • \n
\n" - it "CM243" $ - "- foo\n- \n- bar" ==-> - "
    \n
  • \nfoo\n
    • \n
  • \n\n
    • \n
  • \nbar\n
    • \n
\n" - it "CM244" $ - "1. foo\n2.\n3. bar" ==-> - "
    \n
  1. \nfoo\n
    2. \n
  2. \n\n
    3. \n
  3. \nbar\n
    4. \n
\n" - it "CM245" $ - "*" ==-> - "
    \n
  • \n\n
    • \n
\n" - it "CM246" $ - "foo\n*\n\nfoo\n1." ==-> - "

foo

\n
    \n
  • \n\n
    • \n
\n

foo

\n
    \n
  1. \n\n
    2. \n
\n" - it "CM247" $ - " 1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==-> - "
    \n
  1. \n

    A paragraph\nwith two lines.

    \n
    indented code\n
    \n
    \n

    A block quote.

    \n
    \n
    2. \n
\n" - it "CM248" $ - " 1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==-> - "
    \n
  1. \n

    A paragraph\nwith two lines.

    \n
    indented code\n
    \n
    \n

    A block quote.

    \n
    \n
    2. \n
\n" - it "CM249" $ - " 1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==-> - "
    \n
  1. \n

    A paragraph\nwith two lines.

    \n
    indented code\n
    \n
    \n

    A block quote.

    \n
    \n
    2. \n
\n" - it "CM250" $ - " 1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==-> - "
1.  A paragraph\n    with two lines.\n\n        indented code\n\n    > A block quote.\n
\n" - it "CM251" $ - " 1. A paragraph\nwith two lines.\n\n indented code\n\n > A block quote." ==-> - "
    \n
  1. \nA paragraph\n
    2. \n
\n

with two lines.

\n
      indented code\n\n  > A block quote.\n
\n" - it "CM252" $ - " 1. A paragraph\n with two lines." ==-> - "
    \n
  1. \nA paragraph\n
    2. \n
\n
with two lines.\n
\n" - it "CM253" $ - "> 1. > Blockquote\ncontinued here." ==-> - "
\n
    \n
  1. \n
    \n

    Blockquote

    \n
    \n
    2. \n
\n
\n

continued here.

\n" - it "CM254" $ - "> 1. > Blockquote\n continued here." ==-> - "
\n
    \n
  1. \n
    \n

    Blockquote

    \n
    \n
    2. \n
\n

continued here.

\n
\n" - it "CM255" $ - "- foo\n - bar\n - baz\n - boo" ==-> - "
    \n
  • \nfoo\n
      \n
    • \nbar\n
        \n
      • \nbaz\n
          \n
        • \nboo\n
          • \n
        \n
        • \n
      \n
      • \n
    \n
    • \n
\n" - it "CM256" $ - "- foo\n - bar\n - baz\n - boo" ==-> - "
    \n
  • \nfoo\n
    • \n
  • \nbar\n
    • \n
  • \nbaz\n
    • \n
  • \nboo\n
    • \n
\n" - it "CM257" $ - "10) foo\n - bar" ==-> - "
    \n
  1. \nfoo\n
      \n
    • \nbar\n
      • \n
    \n
    2. \n
\n" - it "CM258" $ - "10) foo\n - bar" ==-> - "
    \n
  1. \nfoo\n
    2. \n
\n
    \n
  • \nbar\n
    • \n
\n" - it "CM259" $ - "- - foo" ==-> - "
    \n
  • \n
      \n
    • \nfoo\n
      • \n
    \n
    • \n
\n" - it "CM260" $ - "1. - 2. foo" ==-> - "
    \n
  1. \n
      \n
    • \n
        \n
      1. \nfoo\n
        2. \n
      \n
      • \n
    \n
    2. \n
\n" - it "CM261" $ - "- # Foo\n- Bar\n ---\n baz" ==-> - "
    \n
  • \n

    Foo

    \n
    • \n
  • \n

    Bar

    \n
    \n

    baz

    \n
    • \n
\n" - context "5.3 Lists" $ do - it "CM262" $ - "- foo\n- bar\n+ baz" ==-> - "
    \n
  • \nfoo\n
    • \n
  • \nbar\n
    • \n
\n
    \n
  • \nbaz\n
    • \n
\n" - it "CM263" $ - "1. foo\n2. bar\n3) baz" ==-> - "
    \n
  1. \nfoo\n
    2. \n
  2. \nbar\n
    3. \n
\n
    \n
  1. \nbaz\n
    2. \n
\n" - it "CM264" $ - "Foo\n- bar\n- baz" ==-> - "

Foo

\n
    \n
  • \nbar\n
    • \n
  • \nbaz\n
    • \n
\n" - it "CM265" $ - "The number of windows in my house is\n14. The number of doors is 6." ==-> - "

The number of windows in my house is

\n
    \n
  1. \nThe number of doors is 6.\n
    2. \n
\n" - it "CM266" $ - "The number of windows in my house is\n1. The number of doors is 6." ==-> - "

The number of windows in my house is

\n
    \n
  1. \nThe number of doors is 6.\n
    2. \n
\n" - it "CM267" $ - "- foo\n\n- bar\n\n\n- baz" ==-> - "
    \n
  • \n

    foo

    \n
    • \n
  • \n

    bar

    \n
    • \n
  • \n

    baz

    \n
    • \n
\n" - it "CM268" $ - "- foo\n - bar\n - baz\n\n\n bim" ==-> - "
    \n
  • \nfoo\n
      \n
    • \nbar\n
        \n
      • \n

        baz

        \n

        bim

        \n
        • \n
      \n
      • \n
    \n
    • \n
\n" - xit "CM269" $ -- FIXME pending HTML blocks - "- foo\n- bar\n\n\n\n- baz\n- bim" ==-> - "
    \n
  • foo
    • \n
  • bar
    • \n
\n\n
    \n
  • baz
    • \n
  • bim
    • \n
\n" - xit "CM270" $ -- FIXME pending HTML blocks - "- foo\n\n notcode\n\n- foo\n\n\n\n code" ==-> - "
    \n
  • \n

    foo

    \n

    notcode

    \n
    • \n
  • \n

    foo

    \n
    • \n
\n\n
code\n
\n" - it "CM271" $ - "- a\n - b\n - c\n - d\n - e\n - f\n - g\n - h\n- i" ==-> - "
    \n
  • \na\n
    • \n
  • \nb\n
    • \n
  • \nc\n
    • \n
  • \nd\n
    • \n
  • \ne\n
    • \n
  • \nf\n
    • \n
  • \ng\n
    • \n
  • \nh\n
    • \n
  • \ni\n
    • \n
\n" - it "CM272" $ - "1. a\n\n 2. b\n\n 3. c" ==-> - "
    \n
  1. \n

    a

    \n
    2. \n
  2. \n

    b

    \n
    3. \n
  3. \n

    c

    \n
    4. \n
\n" - it "CM273" $ - "- a\n- b\n\n- c" ==-> - "
    \n
  • \n

    a

    \n
    • \n
  • \n

    b

    \n
    • \n
  • \n

    c

    \n
    • \n
\n" - it "CM274" $ - "* a\n*\n\n* c" ==-> - "
    \n
  • \n

    a

    \n
    • \n
  • \n

    \n
    • \n
  • \n

    c

    \n
    • \n
\n" - it "CM275" $ - "- a\n- b\n\n c\n- d" ==-> - "
    \n
  • \n

    a

    \n
    • \n
  • \n

    b

    \n

    c

    \n
    • \n
  • \n

    d

    \n
    • \n
\n" - it "CM276" $ - "- a\n- b\n\n [ref]: /url\n- d" ==-> - "
    \n
  • \n

    a

    \n
    • \n
  • \n

    b

    \n
    • \n
  • \n

    d

    \n
    • \n
\n" - it "CM277" $ - "- a\n- ```\n b\n\n\n ```\n- c" ==-> - "
    \n
  • \n

    a

    \n
    • \n
  • \n
    b\n\n\n
    \n
    • \n
  • \n

    c

    \n
    • \n
\n" - it "CM278" $ - "- a\n - b\n\n c\n- d" ==-> - "
    \n
  • \na\n
      \n
    • \n

      b

      \n

      c

      \n
      • \n
    \n
    • \n
  • \nd\n
    • \n
\n" - it "CM279" $ - "* a\n > b\n >\n* c" ==-> - "
    \n
  • \n

    a

    \n
    \n

    b

    \n
    \n
    \n
    \n
    • \n
  • \n

    c

    \n
    • \n
\n" - it "CM280" $ - "- a\n > b\n ```\n c\n ```\n- d" ==-> - "
    \n
  • \n

    a

    \n
    \n

    b

    \n
    \n
    c\n
    \n
    • \n
  • \n

    d

    \n
    • \n
\n" - it "CM281" $ - "- a" ==-> - "
    \n
  • \na\n
    • \n
\n" - it "CM282" $ - "- a\n - b" ==-> - "
    \n
  • \na\n
      \n
    • \nb\n
      • \n
    \n
    • \n
\n" - it "CM283" $ - "1. ```\n foo\n ```\n\n bar" ==-> - "
    \n
  1. \n
    foo\n
    \n

    bar

    \n
    2. \n
\n" - it "CM284" $ - "* foo\n * bar\n\n baz" ==-> - "
    \n
  • \nfoo\n
      \n
    • \nbar\n
      • \n
    \nbaz\n
    • \n
\n" - it "CM285" $ - "- a\n - b\n - c\n\n- d\n - e\n - f" ==-> - "
    \n
  • \na\n
      \n
    • \nb\n
      • \n
    • \nc\n
      • \n
    \n
    • \n
  • \nd\n
      \n
    • \ne\n
      • \n
    • \nf\n
      • \n
    \n
    • \n
\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" - ==-> "

!"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~

\n" - it "CM288" $ - "\\\t\\A\\a\\ \\3\\φ\\«" ==-> - "

\\\t\\A\\a\\ \\3\\φ\\«

\n" - it "CM289" $ - "\\*not emphasized\\*\n\\
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" ==-> - "

*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" - it "CM290" $ - let s = "\\\\*emphasis*" - in s ~-> errFancy (posN 2 s) (nonFlanking "*") - xit "CM291" $ - "foo\\\nbar" ==-> - "

foo
\nbar

\n" - it "CM292" $ - "`` \\[\\` ``" ==-> - "

\\[\\`

\n" - it "CM293" $ - " \\[\\]" ==-> - "
\\[\\]\n
\n" - it "CM294" $ - "~~~\n\\[\\]\n~~~" ==-> - "
\\[\\]\n
\n" - it "CM295" $ - "" ==-> - "

http://example.com/?find=*

\n" - xit "CM296" $ -- FIXME pending HTML inlines - "" ==-> - "

<a href="/bar/)">

\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```" ==-> - "
foo\n
\n" - context "6.2 Entity and numeric character references" $ do - it "CM300" $ - "  & © Æ Ď\n¾ ℋ ⅆ\n∲ ≧̸" ==-> - "

  & © Æ Ď\n¾ ℋ ⅆ\n∲ ≧̸

\n" - it "CM301a" $ - "# Ӓ Ϡ" ==-> - "

# Ӓ Ϡ

\n" - it "CM301b" $ - "�" ~-> errFancy posI (invalidNumChar 98765432) - it "CM301c" $ - "�" ~-> errFancy posI (invalidNumChar 0) - it "CM302" $ - "" ആ ಫ" ==-> - "

" ആ ಫ

\n" - it "CM303a" $ - " " ==-> "

&nbsp

\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?;" ==-> "

&hi?;

\n" - it "CM304" $ - "©" ==-> - "

&copy

\n" - it "CM305" $ - let s = "&MadeUpEntity;" - in s ~-> errFancy posI (unknownEntity "MadeUpEntity") - it "CM306" $ - "" ==-> - "

<a href="\246\246.html">

\n" - it "CM307" $ - "[foo](/föö \"föö\")" ==-> - "

foo

\n" - it "CM308" $ - "[foo]\n\n[foo]: /föö \"föö\"" ==-> - "

foo

\n" - it "CM309" $ - "``` föö\nfoo\n```" ==-> - "
foo\n
\n" - it "CM310" $ - "`föö`" ==-> - "

föö

\n" - it "CM311" $ - " föfö" ==-> - "
f&ouml;f&ouml;\n
\n" - context "6.3 Code spans" $ do - it "CM312" $ - "`foo`" ==-> "

foo

\n" - it "CM313" $ - "`` foo ` bar ``" ==-> - "

foo ` bar

\n" - it "CM314" $ - "` `` `" ==-> "

``

\n" - it "CM315" $ - "``\nfoo\n``" ==-> "

foo

\n" - it "CM316" $ - "`foo bar\n baz`" ==-> "

foo bar baz

\n" - it "CM317" $ - "`a  b`" ==-> "

a  b

\n" - it "CM318" $ - "`foo `` bar`" ==-> "

foo `` bar

\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 = "``\n" - in s ~-> err (posN 14 s) (ueib <> etok '`' <> elabel "code span content") - xit "CM323" $ -- FIXME pending HTML inlines - "`" ==-> "

`

\n" - it "CM324" $ - let s = "``\n" - in s ~-> err (posN 23 s) (ueib <> etok '`' <> elabel "code span content") - it "CM325" $ - "`" ==-> - "

<http://foo.bar.baz>

\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*" ==-> "

foo bar

\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_" ==-> "

foo bar

\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" ==-> "

(bar).

\n" - it "CM356" $ - "**foo bar**\n" ==-> "

foo bar

\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__" ==-> "

foo bar

\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__" ==-> - "

foo, bar, baz

\n" - it "CM368" $ - "foo-__\\(bar\\)__" ==-> "

foo-(bar)

\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*)**" ==-> - "

Gomphocarpus (Gomphocarpus physocarpus, syn.\nAsclepias physocarpa)

\n" - it "CM373" $ - "**foo \"*bar*\" foo**" ==-> - "

foo "bar" foo

\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__" ==-> - "

foo__bar__baz

\n" - it "CM381" $ - "__\\(bar\\)__." ==-> - "

(bar).

\n" - it "CM382" $ - "*foo [bar](/url)*" ==-> - "

foo bar

\n" - it "CM383" $ - "*foo\nbar*" ==-> - "

foo\nbar

\n" - it "CM384" $ - "_foo __bar__ baz_" ==-> - "

foo bar baz

\n" - it "CM385" $ - "_foo _bar_ baz_" ==-> - "

foo bar baz

\n" - it "CM386" $ - let s = "__foo_ bar_" - in s ~-> err (posN 5 s) (utoks "_ " <> etoks "__" <> eic) - it "CM387" $ - "*foo *bar**" ==-> - "

foo bar

\n" - it "CM388" $ - "*foo **bar** baz*" ==-> - "

foo bar baz

\n" - it "CM389" $ - let s = "*foo**bar**baz*\n" - in s ~-> errFancy (posN 5 s) (nonFlanking "*") - it "CM390" $ - "***foo** bar*\n" ==-> "

foo bar

\n" - it "CM391" $ - "*foo **bar***\n" ==-> "

foo bar

\n" - it "CM392" $ - let s = "*foo**bar***\n" - in s ~-> errFancy (posN 5 s) (nonFlanking "*") - it "CM393" $ - "*foo **bar *baz* bim** bop*\n" ==-> - "

foo bar baz bim bop

\n" - it "CM394" $ - "*foo [*bar*](/url)*\n" ==-> - "

foo bar

\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)**" ==-> - "

foo bar

\n" - it "CM398" $ - "**foo\nbar**" ==-> - "

foo\nbar

\n" - it "CM399" $ - "__foo _bar_ baz__" ==-> - "

foo bar baz

\n" - it "CM400" $ - "__foo __bar__ baz__" ==-> - "

foo bar baz

\n" - it "CM401" $ - "____foo__ bar__" ==-> - "

foo bar

\n" - it "CM402" $ - "**foo **bar****" ==-> - "

foo bar

\n" - it "CM403" $ - "**foo *bar* baz**" ==-> - "

foo bar baz

\n" - it "CM404" $ - let s = "**foo*bar*baz**\n" - in s ~-> err (posN 5 s) (utoks "*b" <> etoks "**" <> eic) - it "CM405" $ - "***foo* bar**" ==-> - "

foo bar

\n" - it "CM406" $ - "**foo *bar***" ==-> - "

foo bar

\n" - it "CM407" $ - "**foo *bar **baz**\nbim* bop**" ==-> - "

foo bar baz\nbim bop

\n" - it "CM408" $ - "**foo [*bar*](/url)**" ==-> - "

foo bar

\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 *\\**" ==-> "

foo *

\n" - it "CM413" $ - "foo *\\_*\n" ==-> "

foo _

\n" - it "CM414" $ - let s = "foo *****\n" - in s ~-> errFancy (posN 8 s) (nonFlanking "*") - it "CM415" $ - "foo **\\***" ==-> "

foo *

\n" - it "CM416" $ - "foo **\\_**\n" ==-> "

foo _

\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 _\\__" ==-> "

foo _

\n" - it "CM425" $ - "foo _\\*_" ==-> "

foo *

\n" - it "CM426" $ - let s = "foo _____\n" - in s ~-> errFancy (posN 8 s) (nonFlanking "_") - it "CM427" $ - "foo __\\___" ==-> "

foo _

\n" - it "CM428" $ - "foo __\\*__" ==-> "

foo *

\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**" ==-> "

foo

\n" - it "CM436" $ - "*_foo_*" ==-> "

foo

\n" - it "CM437" $ - "__foo__" ==-> "

foo

\n" - it "CM438" $ - "_*foo*_" ==-> "

foo

\n" - it "CM439" $ - "****foo****" ==-> "

foo

\n" - it "CM440" $ - "____foo____" ==-> "

foo

\n" - it "CM441" $ - "******foo******" ==-> - "

foo

\n" - it "CM442" $ - "***foo***" ==-> "

foo

\n" - it "CM443" $ - "_____foo_____" ==-> - "

foo

\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 - "*" ==-> - "

*

\n" - xit "CM451" $ -- FIXME pending HTML inlines - "**" ==-> "

**

\n" - xit "CM452" $ - "__\n" ==-> "

__

\n" - it "CM453" $ - "*a `*`*" ==-> "

a *

\n" - it "CM454" $ - "_a `_`_" ==-> "

a _

\n" - it "CM455" $ - let s = "**a" - in s ~-> err (posN 25 s) (ueib <> etoks "**" <> eic) - it "CM456" $ - let s = "__a" - in s ~-> err (posN 26 s) (ueib <> etoks "__" <> eic) - context "6.5 Links" $ do - it "CM457" $ - "[link](/uri \"title\")" ==-> - "

link

\n" - it "CM458" $ - "[link](/uri)" ==-> - "

link

\n" - it "CM459" $ - "[link]()" ==-> - "

link

\n" - it "CM460" $ - "[link](<>)" ==-> - "

link

\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]()\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]()\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" ==-> - "

link))

\n" - it "CM467" $ - let s = "[link](foo\\(and\\(bar\\))" - in s ~-> err (posN 10 s) (utok '\\' <> etok '#' <> etok '/' <> etok '?' <> euri <> eppi) - it "CM468" $ - "[link]()" ==-> - "

link

\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" - ==-> "

link

\n

link

\n

link

\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ä)" - ==-> "

link

\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))" ==-> - "

link\nlink\nlink

\n" - xit "CM475" $ -- FIXME pending entity references - "[link](/url \"title \\\""\")\n" ==-> - "

link

\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')" ==-> - "

link

\n" - it "CM479" $ - "[link]( /uri\n \"title\" )" ==-> - "

link

\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" ==-> - "

link [bar

\n" - it "CM485" $ - "[link *foo **bar** `#`*](/uri)" ==-> - "

link foo bar #

\n" - it "CM486" $ - "[![moon](moon.jpg)](/uri)" ==-> - "

\"moon\"

\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 = "![[[foo](uri1)](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 " - 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" ==-> - "

foo<http://example.com/?search=>

\n" - it "CM496" $ - "[foo][bar]\n\n[bar]: /url \"title\"" ==-> - "

foo

\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" ==-> - "

link [bar

\n" - it "CM499" $ - "[link *foo **bar** `#`*][ref]\n\n[ref]: /uri" ==-> - "

link foo bar #

\n" - it "CM500" $ - "[![moon](moon.jpg)][ref]\n\n[ref]: /uri" ==-> - "

\"moon\"

\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 \n\n[ref]: /uri" ==-> - "

foo <bar attr="">

\n" - it "CM506" $ - let s = "[foo`][ref]`\n\n[ref]: /uri" - in s ~-> err (posN 12 s) (ueib <> etok ']' <> eic) - it "CM507" $ - "[foo\n\n[ref]: /uri" ==-> - "

foo<http://example.com/?search=>

\n" - it "CM508" $ - "[foo][BaR]\n\n[bar]: /url \"title\"" ==-> - "

foo

\n" - it "CM509" $ - "[Толпой][Толпой] is a Russian word.\n\n[ТОЛПОЙ]: /url" ==-> - "

Толпой is a Russian word.

\n" - it "CM510" $ - "[Foo\n bar]: /url\n\n[Baz][Foo bar]" ==-> - "

Baz

\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" ==-> - "

bar

\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" ==-> - "

foo

\n" - it "CM519" $ - "[bar\\\\]: /uri\n\n[bar\\\\]" ==-> - "

bar\\

\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\"" ==-> - "

foo

\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\"" ==-> - "

Foo

\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\"" ==-> - "

foo

\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\"" ==-> - "

Foo

\n" - it "CM531" $ - "[foo] bar\n\n[foo]: /url" ==-> - "

foo bar

\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" ==-> - "

foo

\n" - it "CM535" $ - "[foo][]\n\n[foo]: /url1" ==-> - "

foo

\n" - it "CM536" $ - "[foo]()\n\n[foo]: /url1" ==-> - "

foo

\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" ==-> - "

foobaz

\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\")" ==-> - "

\"foo\"

\n" - it "CM542" $ - "![foo *bar*](train.jpg \"train & tracks\")" ==-> - "

\"foo

\n" - it "CM543" $ - let s = "![foo ![bar](/url)](/url2)\n" - in s ~-> err (posN 6 s) (utok '!' <> etok ']' <> eic) - it "CM544" $ - "![foo [bar](/url)](/url2)" ==-> - "

\"foo

\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\"" ==-> - "

\"foo

\n" - it "CM547" $ - "![foo](train.jpg)" ==-> - "

\"foo\"

\n" - it "CM548" $ - "My ![foo bar](/path/to/train.jpg \"title\" )" ==-> - "

My \"foo

\n" - it "CM549" $ - "![foo]()" ==-> - "

\"foo\"

\n" - it "CM550" $ - "![](/url)" ==-> "

\n" - it "CM551" $ - "![foo][bar]\n\n[bar]: /url" ==-> - "

\"foo\"

\n" - it "CM552" $ - "![foo][bar]\n\n[BAR]: /url" ==-> - "

\"foo\"

\n" - it "CM553" $ - "![foo][]\n\n[foo]: /url \"title\"" ==-> - "

\"foo\"

\n" - it "CM554" $ - "![foo bar][]\n\n[foo bar]: /url \"title\"" ==-> - "

\"foo

\n" - it "CM555" $ - "![Foo][]\n\n[foo]: /url \"title\"" ==-> - "

\"Foo\"

\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\"" ==-> - "

\"foo\"

\n" - it "CM558" $ - "![*foo* bar]\n\n[foo bar]: /url \"title\"\n" ==-> - "

\"foo

\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\"" ==-> - "

\"Foo\"

\n" - it "CM561" $ - "!\\[foo\\]\n\n[foo]: /url \"title\"" ==-> - "

![foo]

\n" - it "CM562" $ - "\\![foo]\n\n[foo]: /url \"title\"" ==-> - "

!foo

\n" - context "6.7 Autolinks" $ do - it "CM563" $ - "" ==-> - "

http://foo.bar.baz/

\n" - it "CM564" $ - "" ==-> - "

http://foo.bar.baz/test?q=hello&id=22&boolean

\n" - it "CM565" $ - "" ==-> - "

irc://foo.bar:2233/baz

\n" - it "CM566" $ - "" ==-> - "

FOO@BAR.BAZ

\n" - it "CM567" $ - "" ==-> - "

a+b+c:d

\n" - it "CM568" $ - "" ==-> - "

made-up-scheme://foo/,bar

\n" - it "CM569" $ - "" ==-> - "

<http://../>

\n" - it "CM570" $ - "" ==-> - "

localhost:5001/foo

\n" - it "CM571" $ - "\n" ==-> - "

<http://foo.bar/baz bim>

\n" - it "CM572" $ - "" ==-> - "

<http://example.com/[>

\n" - it "CM573" $ - "" ==-> - "

foo@bar.example.com

\n" - it "CM574" $ - "" ==-> - "

foo+special@Bar.baz-bar0.com

\n" - it "CM575" $ - "" ==-> - "

<foo+@bar.example.com>

\n" - it "CM576" $ - "<>" ==-> - "

<>

\n" - it "CM577" $ - "< http://foo.bar >" ==-> - "

< http://foo.bar >

\n" - it "CM578" $ - "" ==-> - "

m:abc

\n" - it "CM579" $ - "" ==-> - "

foo.bar.baz

\n" - it "CM580" $ - "http://example.com" ==-> - "

http://example.com

\n" - it "CM581" $ - "foo@bar.example.com" ==-> - "

foo@bar.example.com

\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" ==-> "

foo
\nbaz

\n" - it "CM604" $ - "foo\\\nbaz\n" ==-> "

foo
\nbaz

\n" - xit "CM605" $ - "foo \nbaz" ==-> "

foo
\nbaz

\n" - xit "CM606" $ - "foo \n bar" ==-> "

foo
\nbar

\n" - it "CM607" $ - "foo\\\n bar" ==-> "

foo
\nbar

\n" - xit "CM608" $ - "*foo \nbar*" ==-> "

foo
\nbar

\n" - it "CM609" $ - "*foo\\\nbar*" ==-> "

foo
\nbar

\n" - it "CM610" $ - "`code \nspan`" ==-> "

code span

\n" - it "CM611" $ - "`code\\\nspan`" ==-> "

code\\ span

\n" - xit "CM612" $ - "" ==-> "

\n" - xit "CM613" $ -- FIXME pending HTML inlines - "" ==-> "

\n" - it "CM614" $ - "foo\\" ==-> "

foo\\

\n" - xit "CM615" $ - "foo " ==-> "

foo

\n" - it "CM616" $ - "### foo\\" ==-> "

foo\\

\n" - it "CM617" $ - "### foo " ==-> "

foo

\n" - context "6.10 Soft line breaks" $ do - it "CM618" $ - "foo\nbaz" ==-> "

foo\nbaz

\n" - it "CM619" $ - "foo \n baz" ==-> "

foo\nbaz

\n" - context "6.11 Textual content" $ do - it "CM620" $ - "hello $.;'there" ==-> "

hello $.;'there

\n" - it "CM621" $ - "Foo χρῆν" ==-> "

Foo χρῆν

\n" - it "CM622" $ - "Multiple spaces" ==-> "

Multiple spaces

\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: +-- +-- + +spec :: Spec +spec = parallel $ do + describe "parse and render" $ do + context "2.2 Tabs" $ do + it "CM1" $ + "\tfoo\tbaz\t\tbim" ==-> + "
foo\tbaz\t\tbim\n
\n" + it "CM2" $ + " \tfoo\tbaz\t\tbim" ==-> + "
foo\tbaz\t\tbim\n
\n" + it "CM3" $ + " a\ta\n ὐ\ta" ==-> + "
a\ta\nὐ\ta\n
\n" + it "CM4" $ + " - foo\n\n\tbar" ==-> + "
    \n
  • \n

    foo

    \n

    bar

    \n
    • \n
\n" + it "CM5" $ + "- foo\n\n\t\tbar" ==-> + "
    \n
  • \n

    foo

    \n
      bar\n
    \n
    • \n
\n" + it "CM6" $ + ">\t\tfoo" ==-> + "
\n
  foo\n
\n
\n" + it "CM7" $ + "-\t\tfoo" ==-> + "
    \n
  • \n
      foo\n
    \n
    • \n
\n" + it "CM8" $ + " foo\n\tbar" ==-> + "
foo\nbar\n
\n" + it "CM9" $ + " - foo\n - bar\n\t - baz" ==-> + "
    \n
  • \nfoo\n
      \n
    • \nbar\n
        \n
      • \nbaz\n
        • \n
      \n
      • \n
    \n
    • \n
\n" + it "CM10" $ + "#\tFoo" ==-> "

Foo

\n" + it "CM11" $ + "*\t*\t*\t" ==-> "
\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___" ==-> "
\n
\n
\n" + it "CM14" $ + "+++" ==-> "

+++

\n" + it "CM15" $ + "===" ==-> "

===

\n" + it "CM16" $ + let s = "--\n**\n__\n" + in s ~-> errFancy (posN 3 s) (nonFlanking "**") + it "CM17" $ + " ***\n ***\n ***" ==-> "
\n
\n
\n" + it "CM18" $ + " ***" ==-> "
***\n
\n" + it "CM19" $ + let s = "Foo\n ***\n" + in s ~-> errFancy (posN 8 s) (nonFlanking "***") + it "CM20" $ + "_____________________________________" ==-> + "
\n" + it "CM21" $ + " - - -" ==-> "
\n" + it "CM22" $ + " ** * ** * ** * **" ==-> "
\n" + it "CM23" $ + "- - - -" ==-> "
\n" + it "CM24" $ + "- - - - " ==-> "
\n" + it "CM25" $ + let s = "_ _ _ _ a\n\na------\n\n---a---\n" + in s ~-> errFancy posI (nonFlanking "_") + it "CM26" $ + " *\\-*" ==-> "

-

\n" + it "CM27" $ + "- foo\n***\n- bar" ==-> + "
    \n
  • \nfoo\n
    • \n
\n
\n
    \n
  • \nbar\n
    • \n
\n" + it "CM28" $ + "Foo\n***\nbar" ==-> + "

Foo

\n
\n

bar

\n" + it "CM29" $ + "Foo\n---\nbar" ==-> + "

Foo

\n
\n

bar

\n" + it "CM30" $ + "* Foo\n* * *\n* Bar" ==-> + "
    \n
  • \nFoo\n
    • \n
  • \n
      \n
    • \n
        \n
      • \n\n
        • \n
      \n
      • \n
    \n
    • \n
  • \nBar\n
    • \n
\n" + it "CM31" $ + "- Foo\n- * * *" ==-> + "
    \n
  • \nFoo\n
    • \n
  • \n
    \n
    • \n
\n" + context "4.2 ATX headings" $ do + it "CM32" $ + "# foo\n## foo\n### foo\n#### foo\n##### foo\n###### foo" ==-> + "

foo

\n

foo

\n

foo

\n

foo

\n
foo
\n
foo
\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" ==-> "

## foo

\n" + it "CM36" $ + "# foo *bar* \\*baz\\*" ==-> "

foo bar *baz*

\n" + it "CM37" $ + "# foo " ==-> + "

foo

\n" + it "CM38" $ + " ### foo\n ## foo\n # foo" ==-> + "

foo

\n

foo

\n

foo

\n" + it "CM39" $ + " # foo" ==-> "
# foo\n
\n" + it "CM40" $ + "foo\n # bar" ==-> "

foo\n# bar

\n" + it "CM41" $ + "## foo ##\n ### bar ###" ==-> + "

foo

\n

bar

\n" + it "CM42" $ + "# foo ##################################\n##### foo ##" ==-> + "

foo

\n
foo
\n" + it "CM43" $ + "### foo ### " ==-> "

foo

\n" + it "CM44" $ + "### foo ### b" ==-> "

foo ### b

\n" + it "CM45" $ + "# foo#" ==-> "

foo#

\n" + it "CM46" $ + "### foo \\###\n## foo #\\##\n# foo \\#" ==-> + "

foo ###

\n

foo ###

\n

foo #

\n" + it "CM47" $ + "****\n## foo\n****" ==-> + "
\n

foo

\n
\n" + it "CM48" $ + "Foo bar\n# baz\nBar foo" ==-> + "

Foo bar

\n

baz

\n

Bar foo

\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---------" ==-> + "

Foo bar\n=========

\n

Foo bar

\n
\n" + it "CM51" $ + "Foo *bar\nbaz*\n====" ==-> + "

Foo bar\nbaz\n====

\n" + it "CM52" $ + "Foo\n-------------------------\n\nFoo\n=" ==-> + "

Foo

\n
\n

Foo\n=

\n" + it "CM53" $ + " Foo\n---\n\n Foo\n-----\n\n Foo\n ===" ==-> + "

Foo

\n
\n

Foo

\n
\n

Foo\n===

\n" + it "CM54" $ + " Foo\n ---\n\n Foo\n---" ==-> + "
Foo\n---\n\nFoo\n
\n
\n" + it "CM55" $ + "Foo\n ---- " ==-> + "

Foo

\n
\n" + it "CM56" $ + "Foo\n ---" ==-> + "

Foo\n---

\n" + it "CM57" $ + "Foo\n= =\n\nFoo\n--- -" ==-> + "

Foo\n= =

\n

Foo

\n
\n" + it "CM58" $ + "Foo \n-----" ==-> + "

Foo

\n
\n" + it "CM59" $ + "Foo\\\n----" ==-> + "

Foo\\

\n
\n" + it "CM60" $ + let s = "`Foo\n----\n`\n\n\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---" ==-> + "
\n

Foo

\n
\n
\n" + it "CM62" $ + "> foo\nbar\n===" ==-> + "
\n

foo

\n
\n

bar\n===

\n" + it "CM63" $ + "- Foo\n---" ==-> + "
    \n
  • \nFoo\n
    • \n
\n
\n" + it "CM64" $ + "Foo\nBar\n---" ==-> + "

Foo\nBar

\n
\n" + it "CM65" $ + "---\nFoo\n---\nBar\n---\nBaz" ==-> + "

Bar

\n
\n

Baz

\n" + it "CM66" $ + "\n====" ==-> + "

====

\n" + it "CM67" $ + "---\n---" ==-> + "" -- thinks that it's got a YAML block + it "CM68" $ + "- foo\n-----" ==-> + "
    \n
  • \nfoo\n
    • \n
\n
\n" + it "CM69" $ + " foo\n---" ==-> + "
foo\n
\n
\n" + it "CM70" $ + "> foo\n-----" ==-> + "
\n

foo

\n
\n
\n" + it "CM71" $ + "\\> foo\n------" ==-> + "

> foo

\n
\n" + it "CM72" $ + "Foo\n\nbar\n---\nbaz" ==-> + "

Foo

\n

bar

\n
\n

baz

\n" + it "CM73" $ + "Foo\nbar\n\n---\n\nbaz" ==-> + "

Foo\nbar

\n
\n

baz

\n" + it "CM74" $ + "Foo\nbar\n* * *\nbaz" ==-> + "

Foo\nbar

\n
\n

baz

\n" + it "CM75" $ + "Foo\nbar\n\\---\nbaz" ==-> + "

Foo\nbar\n---\nbaz

\n" + context "4.4 Indented code blocks" $ do + it "CM76" $ + " a simple\n indented code block" ==-> + "
a simple\n  indented code block\n
\n" + it "CM77" $ + " - foo\n\n bar" ==-> + "
    \n
  • \n

    foo

    \n

    bar

    \n
    • \n
\n" + it "CM78" $ + "1. foo\n\n - bar" ==-> + "
    \n
  1. \n

    foo

    \n
      \n
    • \nbar\n
      • \n
    \n
    2. \n
\n" + it "CM79" $ + " \n *hi*\n\n - one" ==-> + "
<a/>\n*hi*\n\n- one\n
\n" + it "CM80" $ + " chunk1\n\n chunk2\n \n \n \n chunk3" ==-> + "
chunk1\n\nchunk2\n\n\n\nchunk3\n
\n" + it "CM81" $ + " chunk1\n \n chunk2" ==-> + "
chunk1\n  \n  chunk2\n
\n" + it "CM82" $ + "Foo\n bar\n" ==-> + "

Foo\nbar

\n" + it "CM83" $ + " foo\nbar" ==-> + "
foo\n
\n

bar

\n" + it "CM84" $ + "# Heading\n foo\nHeading\n------\n foo\n----\n" ==-> + "

Heading

\n
foo\n
\n

Heading

\n
\n
foo\n
\n
\n" + it "CM85" $ + " foo\n bar" ==-> + "
    foo\nbar\n
\n" + it "CM86" $ + "\n \n foo\n \n" ==-> + "
foo\n
\n" + it "CM87" $ + " foo " ==-> + "
foo  \n
\n" + context "4.5 Fenced code blocks" $ do + it "CM88" $ + "```\n<\n >\n```" ==-> + "
<\n >\n
\n" + it "CM89" $ + "~~~\n<\n >\n~~~" ==-> + "
<\n >\n
\n" + it "CM90" $ + "``\nfoo\n``\n" ==-> + "

foo

\n" + it "CM91" $ + "```\naaa\n~~~\n```" ==-> + "
aaa\n~~~\n
\n" + it "CM92" $ + "~~~\naaa\n```\n~~~" ==-> + "
aaa\n```\n
\n" + it "CM93" $ + "````\naaa\n```\n``````" ==-> + "
aaa\n```\n
\n" + it "CM94" $ + "~~~~\naaa\n~~~\n~~~~" ==-> + "
aaa\n~~~\n
\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```" ==-> + "
\n  \n
\n" + it "CM99" $ + "```\n```" ==-> + "
\n" + it "CM100" $ + " ```\n aaa\naaa\n```" ==-> + "
aaa\naaa\n
\n" + it "CM101" $ + " ```\naaa\n aaa\naaa\n ```" ==-> + "
aaa\naaa\naaa\n
\n" + it "CM102" $ + " ```\n aaa\n aaa\n aaa\n ```" ==-> + "
aaa\n aaa\naaa\n
\n" + it "CM103" $ + " ```\n aaa\n ```" ==-> + "
```\naaa\n```\n
\n" + it "CM104" $ + "```\naaa\n ```" ==-> + "
aaa\n
\n" + it "CM105" $ + " ```\naaa\n ```" ==-> + "
aaa\n
\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" ==-> + "

\naaa

\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" ==-> + "

foo

\n
bar\n
\n

baz

\n" + it "CM110" $ + "foo\n---\n~~~\nbar\n~~~\n# baz" ==-> + "

foo

\n
\n
bar\n
\n

baz

\n" + it "CM111" $ + "```ruby\ndef foo(x)\n return 3\nend\n```" ==-> + "
def foo(x)\n  return 3\nend\n
\n" + it "CM112" $ + "~~~~ ruby startline=3 $%@#$\ndef foo(x)\n return 3\nend\n~~~~~~~" ==-> + "
def foo(x)\n  return 3\nend\n
\n" + it "CM113" $ + "````;\n````" ==-> + "
\n" + it "CM114" $ + "``` aa ```\nfoo" ==-> + "

aa\nfoo

\n" + it "CM115" $ + "```\n``` aaa\n```" ==-> + "
``` aaa\n
\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]" ==-> + "

foo

\n" + it "CM160" $ + " [foo]: \n /url \n 'the title' \n\n[foo]" ==-> + "

foo

\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\n'title'\n\n[Foo bar]" ==-> + "

Foo bar

\n" + it "CM163" $ + "[foo]: /url '\ntitle\nline1\nline2\n'\n\n[foo]" ==-> + "

foo

\n" + it "CM164" $ + "[foo]: /url 'title\n\nwith blank line'\n\n[foo]" ==-> + "

foo

\n" + it "CM165" $ + "[foo]:\n/url\n\n[foo]" ==-> + "

foo

\n" + it "CM166" $ + "[foo]:\n\n[foo]" ==-> + "

foo

\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" ==-> + "

foo

\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]" ==-> + "

Foo

\n" + it "CM171" $ + "[ΑΓΩ]: /%CF%86%CE%BF%CF%85\n\n[αγω]" ==-> + "

αγω

\n" + it "CM172" $ + "[foo]: /url" ==-> + "" + it "CM173" $ + "[\nfoo\n]: /url\nbar" ==-> + "

bar

\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\"" ==-> + "
[foo]: /url "title"\n
\n" + it "CM177" $ + "```\n[foo]: /url\n```" ==-> + "
[foo]: /url\n
\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" ==-> + "

Foo

\n
\n

bar

\n
\n" + it "CM180" $ + "[foo]: /foo-url \"foo\"\n[bar]: /bar-url\n \"bar\"\n[baz]: /baz-url\n\n[foo],\n[bar],\n[baz]" ==-> + "

foo,\nbar,\nbaz

\n" + it "CM181" $ + "[foo]\n\n> [foo]: /url" ==-> + "

foo

\n
\n
\n" + context "4.8 Paragraphs" $ do + it "CM182" $ + "aaa\n\nbbb" ==-> + "

aaa

\n

bbb

\n" + it "CM183" $ + "aaa\nbbb\n\nccc\nddd" ==-> + "

aaa\nbbb

\n

ccc\nddd

\n" + it "CM184" $ + "aaa\n\n\nbbb" ==-> + "

aaa

\n

bbb

\n" + it "CM185" $ + " aaa\n bbb" ==-> + "

aaa\nbbb

\n" + it "CM186" $ + "aaa\n bbb\n ccc" ==-> + "

aaa\nbbb\nccc

\n" + it "CM187" $ + " aaa\nbbb" ==-> "

aaa\nbbb

\n" + it "CM188" $ + " aaa\nbbb" ==-> + "
aaa\n
\n

bbb

\n" + it "CM189" $ + "aaa \nbbb " ==-> + "

aaa\nbbb

\n" + context "4.9 Blank lines" $ + it "CM190" $ + " \n\naaa\n \n\n# aaa\n\n " ==-> + "

aaa

\n

aaa

\n" + context "5.1 Block quotes" $ do + it "CM191" $ + "> # Foo\n bar\n baz" ==-> + "
\n

Foo

\n

bar\nbaz

\n
\n" + it "CM192" $ + "># Foo\n bar\n baz" ==-> + "
\n

Foo

\n

bar\nbaz

\n
\n" + it "CM193" $ + " > # Foo\n bar\n baz" ==-> + "
\n

Foo

\n

bar\nbaz

\n
\n" + it "CM194" $ + " > # Foo\n > bar\n > baz" ==-> + "
> # Foo\n> bar\n> baz\n
\n" + it "CM195" $ + "> # Foo\n> bar\nbaz" ==-> + "
\n

Foo

\n
\n
\n

bar

\n
\n

baz

\n" + it "CM196" $ + "> bar\nbaz\n> foo" ==-> + "
\n

bar

\n
\n

baz

\n
\n

foo

\n
\n" + it "CM197" $ + "> foo\n---" ==-> + "
\n

foo

\n
\n
\n" + it "CM198" $ + "> - foo\n- bar" ==-> + "
\n
    \n
  • \nfoo\n
    • \n
\n
\n
    \n
  • \nbar\n
    • \n
\n" + it "CM199" $ + "> foo\n bar" ==-> + "
\n
foo\n
\n

bar

\n
\n" + it "CM200" $ + "> ```\nfoo\n```" ==-> + "
\n
foo\n
\n
\n" + it "CM201" $ + "> foo\n - bar" ==-> + "
\n

foo

\n
    \n
  • \nbar\n
    • \n
\n
\n" + it "CM202" $ + ">" ==-> + "
\n
\n" + it "CM203" $ + ">\n> \n> " ==-> + "
\n
\n
\n
\n
\n
\n" + it "CM204" $ + ">\n foo\n " ==-> + "
\n

foo

\n
\n" + it "CM205" $ + "> foo\n\n> bar" ==-> + "
\n

foo

\n
\n
\n

bar

\n
\n" + it "CM206" $ + "> foo\n bar" ==-> + "
\n

foo\nbar

\n
\n" + it "CM207" $ + "> foo\n\n bar" ==-> + "
\n

foo

\n

bar

\n
\n" + it "CM208" $ + "foo\n> bar" ==-> + "

foo

\n
\n

bar

\n
\n" + it "CM209" $ + "> aaa\n***\n> bbb" ==-> + "
\n

aaa

\n
\n
\n
\n

bbb

\n
\n" + it "CM210" $ + "> bar\n baz" ==-> + "
\n

bar\nbaz

\n
\n" + it "CM211" $ + "> bar\n\nbaz" ==-> + "
\n

bar

\n
\n

baz

\n" + it "CM212" $ + "> bar\n\nbaz" ==-> + "
\n

bar

\n
\n

baz

\n" + it "CM213" $ + "> > > foo\nbar" ==-> + "
\n
\n
\n

foo

\n
\n
\n
\n

bar

\n" + it "CM214" $ + ">>> foo\n bar\n baz" ==-> + "
\n
\n
\n

foo\nbar\nbaz

\n
\n
\n
\n" + it "CM215" $ + "> code\n\n> not code" ==-> + "
\n
code\n
\n
\n
\n

not code

\n
\n" + context "5.2 List items" $ do + it "CM216" $ + "A paragraph\nwith two lines.\n\n indented code\n\n> A block quote." ==-> + "

A paragraph\nwith two lines.

\n
indented code\n
\n
\n

A block quote.

\n
\n" + it "CM217" $ + "1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==-> + "
    \n
  1. \n

    A paragraph\nwith two lines.

    \n
    indented code\n
    \n
    \n

    A block quote.

    \n
    \n
    2. \n
\n" + it "CM218" $ + "- one\n\n two" ==-> + "
    \n
  • \none\n
    • \n
\n

two

\n" + it "CM219" $ + "- one\n\n two" ==-> + "
    \n
  • \n

    one

    \n

    two

    \n
    • \n
\n" + it "CM220" $ + " - one\n\n two" ==-> + "
    \n
  • \none\n
    • \n
\n
 two\n
\n" + it "CM221" $ + " - one\n\n two" ==-> + "
    \n
  • \n

    one

    \n

    two

    \n
    • \n
\n" + it "CM222" $ + " > > 1. one\n\n two" ==-> + "
\n
\n
    \n
  1. \none\n
    2. \n
\n

two

\n
\n
\n" + it "CM223" $ + ">>- one\n\n two" ==-> + "
\n
\n
    \n
  • \n

    one

    \n

    two

    \n
    • \n
\n
\n
\n" + it "CM224" $ + "-one\n\n2.two" ==-> + "

-one

\n

2.two

\n" + it "CM225" $ + "- foo\n\n\n bar" ==-> + "
    \n
  • \n

    foo

    \n

    bar

    \n
    • \n
\n" + it "CM226" $ + "1. foo\n\n ```\n bar\n ```\n\n baz\n\n > bam" ==-> + "
    \n
  1. \n

    foo

    \n
    bar\n
    \n

    baz

    \n
    \n

    bam

    \n
    \n
    2. \n
\n" + it "CM227" $ + "- Foo\n\n bar\n\n\n baz" ==-> + "
    \n
  • \n

    Foo

    \n
    bar\n\n\nbaz\n
    \n
    • \n
\n" + it "CM228" $ + "123456789. ok" ==-> + "
    \n
  1. \nok\n
    2. \n
\n" + it "CM229" $ + let s = "1234567890. not ok\n" + in s ~-> errFancy posI (indexTooBig 1234567890) + it "CM230" $ + "0. ok" ==-> + "
    \n
  1. \nok\n
    2. \n
\n" + it "CM231" $ + "003. ok" ==-> + "
    \n
  1. \nok\n
    2. \n
\n" + it "CM232" $ + "-1. not ok" ==-> + "

-1. not ok

\n" + it "CM233" $ + "- foo\n\n bar" ==-> + "
    \n
  • \n

    foo

    \n
    bar\n
    \n
    • \n
\n" + it "CM234" $ + " 10. foo\n\n bar" ==-> + "
    \n
  1. \n

    foo

    \n
    bar\n
    \n
    2. \n
\n" + it "CM235" $ + " indented code\n\nparagraph\n\n more code" ==-> + "
indented code\n
\n

paragraph

\n
more code\n
\n" + it "CM236" $ + "1. indented code\n\n paragraph\n\n more code" ==-> + "
    \n
  1. \n
    indented code\n
    \n

    paragraph

    \n
    more code\n
    \n
    2. \n
\n" + it "CM237" $ + "1. indented code\n\n paragraph\n\n more code" ==-> + "
    \n
  1. \n
     indented code\n
    \n

    paragraph

    \n
    more code\n
    \n
    2. \n
\n" + it "CM238" $ + " foo\n\nbar" ==-> + "

foo

\n

bar

\n" + it "CM239" $ + "- foo\n\n bar" ==-> + "
    \n
  • \nfoo\n
    • \n
\n

bar

\n" + it "CM240" $ + "- foo\n\n bar" ==-> + "
    \n
  • \n

    foo

    \n

    bar

    \n
    • \n
\n" + it "CM241" $ + "-\n foo\n-\n ```\n bar\n ```\n-\n baz" ==-> + "
    \n
  • \n

    foo

    \n
    • \n
  • \n
    bar\n
    \n
    • \n
  • \n
    baz\n
    \n
    • \n
\n" + it "CM242" $ + "- \n foo" ==-> + "
    \n
  • \nfoo\n
    • \n
\n" + it "CM243a" $ + "-\n\n foo" ==-> + "
    \n
  • \n\n
    • \n
\n

foo

\n" + it "CM243b" $ + "1.\n\n foo" ==-> + "
    \n
  1. \n\n
    2. \n
\n

foo

\n" + it "CM244" $ + "- foo\n-\n- bar" ==-> + "
    \n
  • \nfoo\n
    • \n
  • \n\n
    • \n
  • \nbar\n
    • \n
\n" + it "CM245" $ + "- foo\n- \n- bar" ==-> + "
    \n
  • \nfoo\n
    • \n
  • \n\n
    • \n
  • \nbar\n
    • \n
\n" + it "CM246" $ + "1. foo\n2.\n3. bar" ==-> + "
    \n
  1. \nfoo\n
    2. \n
  2. \n\n
    3. \n
  3. \nbar\n
    4. \n
\n" + it "CM247" $ + "*" ==-> + "
    \n
  • \n\n
    • \n
\n" + it "CM248" $ + "foo\n*\n\nfoo\n1." ==-> + "

foo

\n
    \n
  • \n\n
    • \n
\n

foo

\n
    \n
  1. \n\n
    2. \n
\n" + it "CM249" $ + " 1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==-> + "
    \n
  1. \n

    A paragraph\nwith two lines.

    \n
    indented code\n
    \n
    \n

    A block quote.

    \n
    \n
    2. \n
\n" + it "CM250" $ + " 1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==-> + "
    \n
  1. \n

    A paragraph\nwith two lines.

    \n
    indented code\n
    \n
    \n

    A block quote.

    \n
    \n
    2. \n
\n" + it "CM251" $ + " 1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==-> + "
    \n
  1. \n

    A paragraph\nwith two lines.

    \n
    indented code\n
    \n
    \n

    A block quote.

    \n
    \n
    2. \n
\n" + it "CM252" $ + " 1. A paragraph\n with two lines.\n\n indented code\n\n > A block quote." ==-> + "
1.  A paragraph\n    with two lines.\n\n        indented code\n\n    > A block quote.\n
\n" + it "CM253" $ + " 1. A paragraph\nwith two lines.\n\n indented code\n\n > A block quote." ==-> + "
    \n
  1. \nA paragraph\n
    2. \n
\n

with two lines.

\n
      indented code\n\n  > A block quote.\n
\n" + it "CM254" $ + " 1. A paragraph\n with two lines." ==-> + "
    \n
  1. \nA paragraph\n
    2. \n
\n
with two lines.\n
\n" + it "CM255" $ + "> 1. > Blockquote\ncontinued here." ==-> + "
\n
    \n
  1. \n
    \n

    Blockquote

    \n
    \n
    2. \n
\n
\n

continued here.

\n" + it "CM256" $ + "> 1. > Blockquote\n continued here." ==-> + "
\n
    \n
  1. \n
    \n

    Blockquote

    \n
    \n
    2. \n
\n

continued here.

\n
\n" + it "CM257" $ + "- foo\n - bar\n - baz\n - boo" ==-> + "
    \n
  • \nfoo\n
      \n
    • \nbar\n
        \n
      • \nbaz\n
          \n
        • \nboo\n
          • \n
        \n
        • \n
      \n
      • \n
    \n
    • \n
\n" + it "CM258" $ + "- foo\n - bar\n - baz\n - boo" ==-> + "
    \n
  • \nfoo\n
    • \n
  • \nbar\n
    • \n
  • \nbaz\n
    • \n
  • \nboo\n
    • \n
\n" + it "CM259" $ + "10) foo\n - bar" ==-> + "
    \n
  1. \nfoo\n
      \n
    • \nbar\n
      • \n
    \n
    2. \n
\n" + it "CM260" $ + "10) foo\n - bar" ==-> + "
    \n
  1. \nfoo\n
    2. \n
\n
    \n
  • \nbar\n
    • \n
\n" + it "CM261" $ + "- - foo" ==-> + "
    \n
  • \n
      \n
    • \nfoo\n
      • \n
    \n
    • \n
\n" + it "CM262" $ + "1. - 2. foo" ==-> + "
    \n
  1. \n
      \n
    • \n
        \n
      1. \nfoo\n
        2. \n
      \n
      • \n
    \n
    2. \n
\n" + it "CM263" $ + "- # Foo\n- Bar\n ---\n baz" ==-> + "
    \n
  • \n

    Foo

    \n
    • \n
  • \n

    Bar

    \n
    \n

    baz

    \n
    • \n
\n" + context "5.3 Lists" $ do + it "CM264" $ + "- foo\n- bar\n+ baz" ==-> + "
    \n
  • \nfoo\n
    • \n
  • \nbar\n
    • \n
\n
    \n
  • \nbaz\n
    • \n
\n" + it "CM265" $ + "1. foo\n2. bar\n3) baz" ==-> + "
    \n
  1. \nfoo\n
    2. \n
  2. \nbar\n
    3. \n
\n
    \n
  1. \nbaz\n
    2. \n
\n" + it "CM266" $ + "Foo\n- bar\n- baz" ==-> + "

Foo

\n
    \n
  • \nbar\n
    • \n
  • \nbaz\n
    • \n
\n" + it "CM267" $ + "The number of windows in my house is\n14. The number of doors is 6." ==-> + "

The number of windows in my house is

\n
    \n
  1. \nThe number of doors is 6.\n
    2. \n
\n" + it "CM268" $ + "The number of windows in my house is\n1. The number of doors is 6." ==-> + "

The number of windows in my house is

\n
    \n
  1. \nThe number of doors is 6.\n
    2. \n
\n" + it "CM269" $ + "- foo\n\n- bar\n\n\n- baz" ==-> + "
    \n
  • \n

    foo

    \n
    • \n
  • \n

    bar

    \n
    • \n
  • \n

    baz

    \n
    • \n
\n" + it "CM270" $ + "- foo\n - bar\n - baz\n\n\n bim" ==-> + "
    \n
  • \nfoo\n
      \n
    • \nbar\n
        \n
      • \n

        baz

        \n

        bim

        \n
        • \n
      \n
      • \n
    \n
    • \n
\n" + it "CM271" $ + "- foo\n- bar\n\n\n\n- baz\n- bim" ==-> + "
    \n
  • \nfoo\n
    • \n
  • \nbar\n
    • \n
\n

<!-- -->

\n
    \n
  • \nbaz\n
    • \n
  • \nbim\n
    • \n
\n" + it "CM272" $ + "- foo\n\n notcode\n\n- foo\n\n\n\n code" ==-> + "
    \n
  • \n

    foo

    \n

    notcode

    \n
    • \n
  • \n

    foo

    \n
    • \n
\n

<!-- -->

\n
code\n
\n" + it "CM273" $ + "- a\n - b\n - c\n - d\n - e\n - f\n - g\n - h\n- i" ==-> + "
    \n
  • \na\n
    • \n
  • \nb\n
    • \n
  • \nc\n
    • \n
  • \nd\n
    • \n
  • \ne\n
    • \n
  • \nf\n
    • \n
  • \ng\n
    • \n
  • \nh\n
    • \n
  • \ni\n
    • \n
\n" + it "CM274" $ + "1. a\n\n 2. b\n\n 3. c" ==-> + "
    \n
  1. \n

    a

    \n
    2. \n
  2. \n

    b

    \n
    3. \n
  3. \n

    c

    \n
    4. \n
\n" + it "CM275" $ + "- a\n- b\n\n- c" ==-> + "
    \n
  • \n

    a

    \n
    • \n
  • \n

    b

    \n
    • \n
  • \n

    c

    \n
    • \n
\n" + it "CM276" $ + "* a\n*\n\n* c" ==-> + "
    \n
  • \n

    a

    \n
    • \n
  • \n

    \n
    • \n
  • \n

    c

    \n
    • \n
\n" + it "CM277" $ + "- a\n- b\n\n c\n- d" ==-> + "
    \n
  • \n

    a

    \n
    • \n
  • \n

    b

    \n

    c

    \n
    • \n
  • \n

    d

    \n
    • \n
\n" + it "CM278" $ + "- a\n- b\n\n [ref]: /url\n- d" ==-> + "
    \n
  • \n

    a

    \n
    • \n
  • \n

    b

    \n
    • \n
  • \n

    d

    \n
    • \n
\n" + it "CM279" $ + "- a\n- ```\n b\n\n\n ```\n- c" ==-> + "
    \n
  • \n

    a

    \n
    • \n
  • \n
    b\n\n\n
    \n
    • \n
  • \n

    c

    \n
    • \n
\n" + it "CM280" $ + "- a\n - b\n\n c\n- d" ==-> + "
    \n
  • \na\n
      \n
    • \n

      b

      \n

      c

      \n
      • \n
    \n
    • \n
  • \nd\n
    • \n
\n" + it "CM281" $ + "* a\n > b\n >\n* c" ==-> + "
    \n
  • \n

    a

    \n
    \n

    b

    \n
    \n
    \n
    \n
    • \n
  • \n

    c

    \n
    • \n
\n" + it "CM282" $ + "- a\n > b\n ```\n c\n ```\n- d" ==-> + "
    \n
  • \n

    a

    \n
    \n

    b

    \n
    \n
    c\n
    \n
    • \n
  • \n

    d

    \n
    • \n
\n" + it "CM283" $ + "- a" ==-> + "
    \n
  • \na\n
    • \n
\n" + it "CM284" $ + "- a\n - b" ==-> + "
    \n
  • \na\n
      \n
    • \nb\n
      • \n
    \n
    • \n
\n" + it "CM285" $ + "1. ```\n foo\n ```\n\n bar" ==-> + "
    \n
  1. \n
    foo\n
    \n

    bar

    \n
    2. \n
\n" + it "CM286" $ + "* foo\n * bar\n\n baz" ==-> + "
    \n
  • \nfoo\n
      \n
    • \nbar\n
      • \n
    \nbaz\n
    • \n
\n" + it "CM287" $ + "- a\n - b\n - c\n\n- d\n - e\n - f" ==-> + "
    \n
  • \na\n
      \n
    • \nb\n
      • \n
    • \nc\n
      • \n
    \n
    • \n
  • \nd\n
      \n
    • \ne\n
      • \n
    • \nf\n
      • \n
    \n
    • \n
\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" + ==-> "

!"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~

\n" + it "CM290" $ + "\\\t\\A\\a\\ \\3\\φ\\«" ==-> + "

\\\t\\A\\a\\ \\3\\φ\\«

\n" + it "CM291" $ + "\\*not emphasized\\*\n\\
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" ==-> + "

*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" + it "CM292" $ + let s = "\\\\*emphasis*" + in s ~-> errFancy (posN 2 s) (nonFlanking "*") + it "CM293" $ + "foo\\\nbar" ==-> + "

foo
\nbar

\n" + it "CM294" $ + "`` \\[\\` ``" ==-> + "

\\[\\`

\n" + it "CM295" $ + " \\[\\]" ==-> + "
\\[\\]\n
\n" + it "CM296" $ + "~~~\n\\[\\]\n~~~" ==-> + "
\\[\\]\n
\n" + it "CM297" $ + "" ==-> + "

http://example.com/?find=*

\n" + it "CM298" $ + "" ==-> + "

<a href="/bar/)">

\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```" ==-> + "
foo\n
\n" + context "6.2 Entity and numeric character references" $ do + it "CM302" $ + "  & © Æ Ď\n¾ ℋ ⅆ\n∲ ≧̸" ==-> + "

  & © Æ Ď\n¾ ℋ ⅆ\n∲ ≧̸

\n" + it "CM303a" $ + "# Ӓ Ϡ" ==-> + "

# Ӓ Ϡ

\n" + it "CM303b" $ + "�" ~-> errFancy posI (invalidNumChar 98765432) + it "CM303c" $ + "�" ~-> errFancy posI (invalidNumChar 0) + it "CM304" $ + "" ആ ಫ" ==-> + "

" ആ ಫ

\n" + it "CM305a" $ + " " ==-> "

&nbsp

\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?;" ==-> "

&hi?;

\n" + it "CM306" $ + "©" ==-> + "

&copy

\n" + it "CM307" $ + let s = "&MadeUpEntity;" + in s ~-> errFancy posI (unknownEntity "MadeUpEntity") + it "CM308" $ + "" ==-> + "

<a href="\246\246.html">

\n" + it "CM309" $ + "[foo](/föö \"föö\")" ==-> + "

foo

\n" + it "CM310" $ + "[foo]\n\n[foo]: /föö \"föö\"" ==-> + "

foo

\n" + it "CM311" $ + "``` föö\nfoo\n```" ==-> + "
foo\n
\n" + it "CM312" $ + "`föö`" ==-> + "

föö

\n" + it "CM313" $ + " föfö" ==-> + "
f&ouml;f&ouml;\n
\n" + context "6.3 Code spans" $ do + it "CM314" $ + "`foo`" ==-> "

foo

\n" + it "CM315" $ + "`` foo ` bar ``" ==-> + "

foo ` bar

\n" + it "CM316" $ + "` `` `" ==-> "

``

\n" + it "CM317" $ + "``\nfoo\n``" ==-> "

foo

\n" + it "CM318" $ + "`foo bar\n baz`" ==-> "

foo bar baz

\n" + it "CM319" $ + "`a  b`" ==-> "

a  b

\n" + it "CM320" $ + "`foo `` bar`" ==-> "

foo `` bar

\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 = "``\n" + in s ~-> err (posN 14 s) (ueib <> etok '`' <> elabel "code span content") + it "CM325" $ + "`" ==-> + "

<a href="\">

\n" + it "CM326" $ + let s = "``\n" + in s ~-> err (posN 23 s) (ueib <> etok '`' <> elabel "code span content") + it "CM327" $ + "`" ==-> + "

<http://foo.bar.baz>

\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*" ==-> "

foo bar

\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_" ==-> "

foo bar

\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" ==-> "

(bar).

\n" + it "CM358" $ + "**foo bar**\n" ==-> "

foo bar

\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__" ==-> "

foo bar

\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__" ==-> + "

foo, bar, baz

\n" + it "CM370" $ + "foo-__\\(bar\\)__" ==-> "

foo-(bar)

\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*)**" ==-> + "

Gomphocarpus (Gomphocarpus physocarpus, syn.\nAsclepias physocarpa)

\n" + it "CM375" $ + "**foo \"*bar*\" foo**" ==-> + "

foo "bar" foo

\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__" ==-> + "

foo__bar__baz

\n" + it "CM383" $ + "__\\(bar\\)__." ==-> + "

(bar).

\n" + it "CM384" $ + "*foo [bar](/url)*" ==-> + "

foo bar

\n" + it "CM385" $ + "*foo\nbar*" ==-> + "

foo\nbar

\n" + it "CM386" $ + "_foo __bar__ baz_" ==-> + "

foo bar baz

\n" + it "CM387" $ + "_foo _bar_ baz_" ==-> + "

foo bar baz

\n" + it "CM388" $ + let s = "__foo_ bar_" + in s ~-> err (posN 5 s) (utoks "_ " <> etoks "__" <> eic) + it "CM389" $ + "*foo *bar**" ==-> + "

foo bar

\n" + it "CM390" $ + "*foo **bar** baz*" ==-> + "

foo bar baz

\n" + it "CM391" $ + let s = "*foo**bar**baz*\n" + in s ~-> errFancy (posN 5 s) (nonFlanking "*") + it "CM392" $ + "***foo** bar*\n" ==-> "

foo bar

\n" + it "CM393" $ + "*foo **bar***\n" ==-> "

foo bar

\n" + it "CM394" $ + let s = "*foo**bar***\n" + in s ~-> errFancy (posN 5 s) (nonFlanking "*") + it "CM395" $ + "*foo **bar *baz* bim** bop*\n" ==-> + "

foo bar baz bim bop

\n" + it "CM396" $ + "*foo [*bar*](/url)*\n" ==-> + "

foo bar

\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)**" ==-> + "

foo bar

\n" + it "CM400" $ + "**foo\nbar**" ==-> + "

foo\nbar

\n" + it "CM401" $ + "__foo _bar_ baz__" ==-> + "

foo bar baz

\n" + it "CM402" $ + "__foo __bar__ baz__" ==-> + "

foo bar baz

\n" + it "CM403" $ + "____foo__ bar__" ==-> + "

foo bar

\n" + it "CM404" $ + "**foo **bar****" ==-> + "

foo bar

\n" + it "CM405" $ + "**foo *bar* baz**" ==-> + "

foo bar baz

\n" + it "CM406" $ + let s = "**foo*bar*baz**\n" + in s ~-> err (posN 5 s) (utoks "*b" <> etoks "**" <> eic) + it "CM407" $ + "***foo* bar**" ==-> + "

foo bar

\n" + it "CM408" $ + "**foo *bar***" ==-> + "

foo bar

\n" + it "CM409" $ + "**foo *bar **baz**\nbim* bop**" ==-> + "

foo bar baz\nbim bop

\n" + it "CM410" $ + "**foo [*bar*](/url)**" ==-> + "

foo bar

\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 *\\**" ==-> "

foo *

\n" + it "CM415" $ + "foo *\\_*\n" ==-> "

foo _

\n" + it "CM416" $ + let s = "foo *****\n" + in s ~-> errFancy (posN 8 s) (nonFlanking "*") + it "CM417" $ + "foo **\\***" ==-> "

foo *

\n" + it "CM418" $ + "foo **\\_**\n" ==-> "

foo _

\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 _\\__" ==-> "

foo _

\n" + it "CM427" $ + "foo _\\*_" ==-> "

foo *

\n" + it "CM428" $ + let s = "foo _____\n" + in s ~-> errFancy (posN 8 s) (nonFlanking "_") + it "CM429" $ + "foo __\\___" ==-> "

foo _

\n" + it "CM430" $ + "foo __\\*__" ==-> "

foo *

\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**" ==-> "

foo

\n" + it "CM438" $ + "*_foo_*" ==-> "

foo

\n" + it "CM439" $ + "__foo__" ==-> "

foo

\n" + it "CM440" $ + "_*foo*_" ==-> "

foo

\n" + it "CM441" $ + "****foo****" ==-> "

foo

\n" + it "CM442" $ + "____foo____" ==-> "

foo

\n" + it "CM443" $ + "******foo******" ==-> + "

foo

\n" + it "CM444" $ + "***foo***" ==-> "

foo

\n" + it "CM445" $ + "_____foo_____" ==-> + "

foo

\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 = "*\n" + in s ~-> errFancy (posN 23 s) (nonFlanking "*") + it "CM453" $ + let s = "**" + in s ~-> errFancy (posN 11 s) (nonFlanking "**") + it "CM454" $ + let s = "__\n" + in s ~-> errFancy (posN 11 s) (nonFlanking "__") + it "CM455" $ + "*a `*`*" ==-> "

a *

\n" + it "CM456" $ + "_a `_`_" ==-> "

a _

\n" + it "CM457" $ + let s = "**a" + in s ~-> err (posN 25 s) (ueib <> etoks "**" <> eic) + it "CM458" $ + let s = "__a" + in s ~-> err (posN 26 s) (ueib <> etoks "__" <> eic) + context "6.5 Links" $ do + it "CM459" $ + "[link](/uri \"title\")" ==-> + "

link

\n" + it "CM460" $ + "[link](/uri)" ==-> + "

link

\n" + it "CM461" $ + "[link]()" ==-> + "

link

\n" + it "CM462" $ + "[link](<>)" ==-> + "

link

\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]()\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]()\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" ==-> + "

link))

\n" + it "CM469" $ + let s = "[link](foo\\(and\\(bar\\))" + in s ~-> err (posN 10 s) (utok '\\' <> etok '#' <> etok '/' <> etok '?' <> euri <> eppi) + it "CM470" $ + "[link]()" ==-> + "

link

\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" + ==-> "

link

\n

link

\n

link

\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ä)" + ==-> "

link

\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))" ==-> + "

link\nlink\nlink

\n" + it "CM477" $ + "[link](/url \"title \\\""\")\n" ==-> + "

link

\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')" ==-> + "

link

\n" + it "CM481" $ + "[link]( /uri\n \"title\" )" ==-> + "

link

\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" ==-> + "

link [bar

\n" + it "CM487" $ + "[link *foo **bar** `#`*](/uri)" ==-> + "

link foo bar #

\n" + it "CM488" $ + "[![moon](moon.jpg)](/uri)" ==-> + "

\"moon\"

\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 = "![[[foo](uri1)](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 " ==-> + "

foo <bar attr="">

\n" + it "CM496" $ + let s = "[foo`](/uri)`\n" + in s ~-> err (posN 13 s) (ueib <> etok ']' <> eic) + it "CM497" $ + "[foo" ==-> + "

foo<http://example.com/?search=>

\n" + it "CM498" $ + "[foo][bar]\n\n[bar]: /url \"title\"" ==-> + "

foo

\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" ==-> + "

link [bar

\n" + it "CM501" $ + "[link *foo **bar** `#`*][ref]\n\n[ref]: /uri" ==-> + "

link foo bar #

\n" + it "CM502" $ + "[![moon](moon.jpg)][ref]\n\n[ref]: /uri" ==-> + "

\"moon\"

\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 \n\n[ref]: /uri" ==-> + "

foo <bar attr="">

\n" + it "CM508" $ + let s = "[foo`][ref]`\n\n[ref]: /uri" + in s ~-> err (posN 12 s) (ueib <> etok ']' <> eic) + it "CM509" $ + "[foo\n\n[ref]: /uri" ==-> + "

foo<http://example.com/?search=>

\n" + it "CM510" $ + "[foo][BaR]\n\n[bar]: /url \"title\"" ==-> + "

foo

\n" + it "CM511" $ + "[Толпой][Толпой] is a Russian word.\n\n[ТОЛПОЙ]: /url" ==-> + "

Толпой is a Russian word.

\n" + it "CM512" $ + "[Foo\n bar]: /url\n\n[Baz][Foo bar]" ==-> + "

Baz

\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" ==-> + "

bar

\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" ==-> + "

foo

\n" + it "CM521" $ + "[bar\\\\]: /uri\n\n[bar\\\\]" ==-> + "

bar\\

\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\"" ==-> + "

foo

\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\"" ==-> + "

Foo

\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\"" ==-> + "

foo

\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\"" ==-> + "

Foo

\n" + it "CM533" $ + "[foo] bar\n\n[foo]: /url" ==-> + "

foo bar

\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" ==-> + "

foo

\n" + it "CM537" $ + "[foo][]\n\n[foo]: /url1" ==-> + "

foo

\n" + it "CM538" $ + "[foo]()\n\n[foo]: /url1" ==-> + "

foo

\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" ==-> + "

foobaz

\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\")" ==-> + "

\"foo\"

\n" + it "CM544" $ + "![foo *bar*](train.jpg \"train & tracks\")" ==-> + "

\"foo

\n" + it "CM545" $ + let s = "![foo ![bar](/url)](/url2)\n" + in s ~-> err (posN 6 s) (utok '!' <> etok ']' <> eic) + it "CM546" $ + "![foo [bar](/url)](/url2)" ==-> + "

\"foo

\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\"" ==-> + "

\"foo

\n" + it "CM549" $ + "![foo](train.jpg)" ==-> + "

\"foo\"

\n" + it "CM550" $ + "My ![foo bar](/path/to/train.jpg \"title\" )" ==-> + "

My \"foo

\n" + it "CM551" $ + "![foo]()" ==-> + "

\"foo\"

\n" + it "CM552" $ + "![](/url)" ==-> "

\n" + it "CM553" $ + "![foo][bar]\n\n[bar]: /url" ==-> + "

\"foo\"

\n" + it "CM554" $ + "![foo][bar]\n\n[BAR]: /url" ==-> + "

\"foo\"

\n" + it "CM555" $ + "![foo][]\n\n[foo]: /url \"title\"" ==-> + "

\"foo\"

\n" + it "CM556" $ + "![foo bar][]\n\n[foo bar]: /url \"title\"" ==-> + "

\"foo

\n" + it "CM557" $ + "![Foo][]\n\n[foo]: /url \"title\"" ==-> + "

\"Foo\"

\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\"" ==-> + "

\"foo\"

\n" + it "CM560" $ + "![*foo* bar]\n\n[foo bar]: /url \"title\"\n" ==-> + "

\"foo

\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\"" ==-> + "

\"Foo\"

\n" + it "CM563" $ + "!\\[foo\\]\n\n[foo]: /url \"title\"" ==-> + "

![foo]

\n" + it "CM564" $ + "\\![foo]\n\n[foo]: /url \"title\"" ==-> + "

!foo

\n" + context "6.7 Autolinks" $ do + it "CM565" $ + "" ==-> + "

http://foo.bar.baz/

\n" + it "CM566" $ + "" ==-> + "

http://foo.bar.baz/test?q=hello&id=22&boolean

\n" + it "CM567" $ + "" ==-> + "

irc://foo.bar:2233/baz

\n" + it "CM568" $ + "" ==-> + "

FOO@BAR.BAZ

\n" + it "CM569" $ + "" ==-> + "

a+b+c:d

\n" + it "CM570" $ + "" ==-> + "

made-up-scheme://foo/,bar

\n" + it "CM571" $ + "" ==-> + "

<http://../>

\n" + it "CM572" $ + "" ==-> + "

localhost:5001/foo

\n" + it "CM573" $ + "\n" ==-> + "

<http://foo.bar/baz bim>

\n" + it "CM574" $ + "" ==-> + "

<http://example.com/[>

\n" + it "CM575" $ + "" ==-> + "

foo@bar.example.com

\n" + it "CM576" $ + "" ==-> + "

foo+special@Bar.baz-bar0.com

\n" + it "CM577" $ + "" ==-> + "

<foo+@bar.example.com>

\n" + it "CM578" $ + "<>" ==-> + "

<>

\n" + it "CM579" $ + "< http://foo.bar >" ==-> + "

< http://foo.bar >

\n" + it "CM580" $ + "" ==-> + "

m:abc

\n" + it "CM581" $ + "" ==-> + "

foo.bar.baz

\n" + it "CM582" $ + "http://example.com" ==-> + "

http://example.com

\n" + it "CM583" $ + "foo@bar.example.com" ==-> + "

foo@bar.example.com

\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" ==-> + "

foo\nbaz

\n" + it "CM606" $ + "foo\\\nbaz\n" ==-> + "

foo
\nbaz

\n" + it "CM607" $ + "foo \nbaz" ==-> + "

foo\nbaz

\n" + it "CM608" $ + "foo \n bar" ==-> + "

foo\nbar

\n" + it "CM609" $ + "foo\\\n bar" ==-> + "

foo
\nbar

\n" + it "CM610" $ + "*foo \nbar*" ==-> + "

foo\nbar

\n" + it "CM611" $ + "*foo\\\nbar*" ==-> + "

foo
\nbar

\n" + it "CM612" $ + "`code \nspan`" ==-> + "

code span

\n" + it "CM613" $ + "`code\\\nspan`" ==-> + "

code\\ span

\n" + it "CM614" $ + "" ==-> + "

<a href="foo\nbar">

\n" + it "CM615" $ + "" ==-> + "

<a href="foo
\nbar">

\n" + it "CM616" $ + "foo\\" ==-> + "

foo\\

\n" + it "CM617" $ + "foo " ==-> + "

foo

\n" + it "CM618" $ + "### foo\\" ==-> + "

foo\\

\n" + it "CM619" $ + "### foo " ==-> + "

foo

\n" + context "6.10 Soft line breaks" $ do + it "CM620" $ + "foo\nbaz" ==-> + "

foo\nbaz

\n" + it "CM621" $ + "foo \n baz" ==-> + "

foo\nbaz

\n" + context "6.11 Textual content" $ do + it "CM622" $ + "hello $.;'there" ==-> + "

hello $.;'there

\n" + it "CM623" $ + "Foo χρῆν" ==-> + "

Foo χρῆν

\n" + it "CM624" $ + "Multiple spaces" ==-> + "

Multiple spaces

\n" -- NOTE I don't test these so extensively because they share -- implementation with emphasis and strong emphasis which are thoroughly -- tested already.