diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-15 16:32:47 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-15 18:17:24 +0300 |
| commit | 82a0ceaf18e589e8916fbd70e0b13e5945bcc99a (patch) | |
| tree | e312e1512c1d68b4903cca414b19bc9d6d4c144c /test | |
| parent | 9131d62c9b9a70829e0d938d0d201a09b2cec179 (diff) | |
Muse reader: fix directive parsing
This fixes bugs introduced in commit 4bfab8f04c105f111d8d4e1c3ed7f7b5c75dbd19.
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 5f379c44b..faa21513a 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -537,6 +537,21 @@ tests = , test emacsMuse "Disable tables" ("#disable-tables t" =?> Pandoc (setMeta "disable-tables" (MetaInlines $ toList "t") nullMeta) mempty) + , "Multiple directives" =: + T.unlines [ "#title Document title" + , "#subtitle Document subtitle" + ] =?> + Pandoc (setMeta "title" (MetaInlines $ toList "Document title") $ + setMeta "subtitle" (MetaInlines $ toList "Document subtitle") nullMeta) mempty + , "Multiline directive" =: + T.unlines [ "#title Document title" + , "#notes First line" + , "and second line" + , "#author Name" + ] =?> + Pandoc (setMeta "title" (MetaInlines $ toList "Document title") $ + setMeta "notes" (MetaInlines $ toList "First line\nand second line") $ + setMeta "author" (MetaInlines $ toList "Name") nullMeta) mempty ] , testGroup "Anchors" [ "Anchor" =: |