From c712d13b67a92c887d5ef185064aecf0972d4496 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 22 Oct 2021 22:10:25 -0700
Subject: Org reader: allow an initial :PROPERTIES: drawer to add to metadata.

Closes #7520.
---
 test/Tests/Readers/Org/Meta.hs |  2 +-
 test/command/7520.md           | 22 ++++++++++++++++++++++
 2 files changed, 23 insertions(+), 1 deletion(-)
 create mode 100644 test/command/7520.md

(limited to 'test')

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" ]
+            )
+          ]
+    }
+  []
+
+```
-- 
cgit v1.2.3