aboutsummaryrefslogtreecommitdiff
path: root/test/Tests
diff options
context:
space:
mode:
Diffstat (limited to 'test/Tests')
-rw-r--r--test/Tests/Readers/Org/Directive.hs18
1 files changed, 18 insertions, 0 deletions
diff --git a/test/Tests/Readers/Org/Directive.hs b/test/Tests/Readers/Org/Directive.hs
index 6d6609d4e..d8a8a8733 100644
--- a/test/Tests/Readers/Org/Directive.hs
+++ b/test/Tests/Readers/Org/Directive.hs
@@ -184,6 +184,24 @@ tests =
] =?>
headerWith ("wichtig", mempty, mempty) 1 "Wichtig"
]
+
+ , testGroup "unknown options"
+ [ "unknown options are ignored" =:
+ T.unlines [ "#+OPTIONS: does-not-exist:t "] =?>
+ (mempty :: Pandoc)
+
+ , "highlighting after unknown option" =:
+ T.unlines [ "#+OPTIONS: nope"
+ , "/yup/"
+ ] =?>
+ para (emph "yup")
+
+ , "unknown option interleaved with known" =:
+ T.unlines [ "#+OPTIONS: tags:nil foo:bar todo:nil"
+ , "* DONE ignore things :easy:"
+ ] =?>
+ headerWith ("ignore-things", [], mempty) 1 "ignore things"
+ ]
]
, testGroup "Include"