diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-28 03:52:25 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-28 03:52:25 +0300 |
| commit | e34a0703f557ed4ceeadaa6cb29edb6239255d96 (patch) | |
| tree | 063866e6a3ec2e7bb9ade7157526e311454d4376 /test | |
| parent | d8135b2e67aec4061386fb91da9c4a080d54e7fb (diff) | |
| download | pandoc-e34a0703f557ed4ceeadaa6cb29edb6239255d96.tar.gz | |
Muse reader: try to parse lists before trying to parse table
This ensures that tables inside lists are parsed correctly.
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index e73b1abde..bb61e848f 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -1328,6 +1328,18 @@ tests = ] ]) ] + , "Definition list with table" =: + " foo :: bar | baz" =?> + definitionList [ ("foo", [ table mempty [(AlignDefault, 0.0), (AlignDefault, 0.0)] + [] + [[plain "bar", plain "baz"]] + ])] + , "Definition list with table inside bullet list" =: + " - foo :: bar | baz" =?> + bulletList [definitionList [ ("foo", [ table mempty [(AlignDefault, 0.0), (AlignDefault, 0.0)] + [] + [[plain "bar", plain "baz"]] + ])]] , test emacsMuse "Multi-line definition lists from Emacs Muse manual" (T.unlines [ "Term1 ::" |