diff options
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 51e249fb4..a25b41937 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -454,6 +454,19 @@ tests = ] =?> blockQuote (para "* Hi") ] + , testGroup "Directives" + [ "Title" =: + "#title Document title" =?> + let titleInline = toList $ "Document title" + meta = setMeta "title" (MetaInlines titleInline) $ nullMeta + in Pandoc meta mempty + -- Emacs Muse documentation says that "You can use any combination + -- of uppercase and lowercase letters for directives", + -- but also allows '-', which is not documented, but used for disable-tables. + , test emacsMuse "Disable tables" + ("#disable-tables t" =?> + Pandoc (setMeta "disable-tables" (MetaInlines $ toList "t") $ nullMeta) mempty) + ] , testGroup "Anchors" [ "Anchor" =: T.unlines [ "; A comment to make sure anchor is not parsed as a directive" @@ -940,11 +953,4 @@ tests = , para "Third" ]) ] - , testGroup "Meta" - [ "Title" =: - "#title Document title" =?> - let titleInline = toList $ "Document title" - meta = setMeta "title" (MetaInlines titleInline) $ nullMeta - in Pandoc meta mempty - ] ] |