From a8122987fc3301bc6c0b799312cc2f676bec8042 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Mon, 16 Apr 2018 15:08:34 +0300 Subject: Muse reader: allow verse to be indented Muse writer indents verse blocks in definition list more than necessary, so Muse reader should parse them. --- test/Tests/Readers/Muse.hs | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'test/Tests/Readers') diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 86f0d7888..8474b2509 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -1153,6 +1153,24 @@ tests = definitionList [ ("First term", [ para "Definition of first term\nand its continuation." ]) , ("Second term", [ para "Definition of second term." ]) ] + , "Definition list with verse" =: + T.unlines + [ " First term :: Definition of first term" + , " > First verse" + , " > Second line of first verse" + , "" + , " > Second verse" + , " > Second line of second verse" + ] =?> + definitionList [ ("First term", [ para "Definition of first term" <> + lineBlock [ text "First verse" + , text "Second line of first verse" + ] <> + lineBlock [ text "Second verse" + , text "Second line of second verse" + ] + ]) + ] , test emacsMuse "Multi-line definition lists from Emacs Muse manual" (T.unlines [ "Term1 ::" -- cgit v1.2.3