From 4e899eb9c886df2200551f69a3f593ab5258f2e2 Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Mon, 23 Jul 2018 22:05:41 +0200 Subject: Org reader: fix parsers relying on parseFromString Emphasis was not parsed when it followed directly after some block types (e.g., lists). The org reader uses a wrapper for the `parseFromString` function to handle org-specific state. The last position of a character allowed before emphasis was reset incorrectly in this wrapper. Emphasized text was not recognized when placed directly behind a block which the reader parses using `parseFromString`. Fixes: #4784 --- test/Tests/Readers/Org/Block/List.hs | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'test/Tests/Readers/Org/Block') diff --git a/test/Tests/Readers/Org/Block/List.hs b/test/Tests/Readers/Org/Block/List.hs index f273b684d..bdab01404 100644 --- a/test/Tests/Readers/Org/Block/List.hs +++ b/test/Tests/Readers/Org/Block/List.hs @@ -243,4 +243,15 @@ tests = mconcat [ para "CLOSED: [2015-10-19 Mon 15:03]" , bulletList [ plain "Note taken on [2015-10-19 Mon 13:24]" ] ] + + , "Markup after header and list" =: + T.unlines [ "* headline" + , "- list" + , "" + , "~variable name~" + ] =?> + mconcat [ headerWith ("headline", [], []) 1 "headline" + , bulletList [ plain "list" ] + , para (code "variable name") + ] ] -- cgit v1.2.3