diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-10-22 22:10:25 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-10-22 22:10:25 -0700 |
| commit | c712d13b67a92c887d5ef185064aecf0972d4496 (patch) | |
| tree | bc0d865572ace48a63ece57560011fe3f5bb28f5 /test | |
| parent | 64d55d5a7dae93dd9ba8f68c8e9acee9837af023 (diff) | |
| download | pandoc-c712d13b67a92c887d5ef185064aecf0972d4496.tar.gz | |
Org reader: allow an initial :PROPERTIES: drawer to add to metadata.
Closes #7520.
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Org/Meta.hs | 2 | ||||
| -rw-r--r-- | test/command/7520.md | 22 |
2 files changed, 23 insertions, 1 deletions
diff --git a/test/Tests/Readers/Org/Meta.hs b/test/Tests/Readers/Org/Meta.hs index 6363d84b0..41a41cb00 100644 --- a/test/Tests/Readers/Org/Meta.hs +++ b/test/Tests/Readers/Org/Meta.hs @@ -238,7 +238,7 @@ tests = , " :setting: foo" , " :END:" ] =?> - (mempty::Blocks) + (setMeta "setting" ("foo" :: T.Text) (doc mempty)) , "Logbook drawer" =: T.unlines [ " :LogBook:" diff --git a/test/command/7520.md b/test/command/7520.md new file mode 100644 index 000000000..0300a9e45 --- /dev/null +++ b/test/command/7520.md @@ -0,0 +1,22 @@ +``` +% pandoc -f org -t native -s +:PROPERTIES: +:ID: d5b18943-98a3-4b2a-a545-41d17bf50f3e +:END: +#+title: Common Ground +^D +Pandoc + Meta + { unMeta = + fromList + [ ( "id" + , MetaString "d5b18943-98a3-4b2a-a545-41d17bf50f3e" + ) + , ( "title" + , MetaInlines [ Str "Common" , Space , Str "Ground" ] + ) + ] + } + [] + +``` |