From e34a0703f557ed4ceeadaa6cb29edb6239255d96 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Sun, 28 Oct 2018 03:52:25 +0300 Subject: Muse reader: try to parse lists before trying to parse table This ensures that tables inside lists are parsed correctly. --- test/Tests/Readers/Muse.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'test/Tests/Readers/Muse.hs') 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 ::" -- cgit v1.2.3