diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Org/Directive.hs | 18 |
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" |