JATS reader: parse abstract element into metadata field of same name (#6482)

Closes: #6480

1 files changed, 17 insertions, 0 deletions

diff --git a/test/Tests/Readers/JATS.hs b/test/Tests/Readers/JATS.hs
index 2ac0f6d8f..3c61f602f 100644
--- a/test/Tests/Readers/JATS.hs
+++ b/test/Tests/Readers/JATS.hs
@@ -21,6 +21,8 @@ import Text.Pandoc
 import Text.Pandoc.Arbitrary ()
 import Text.Pandoc.Builder
 
+import qualified Data.Text as T
+
 jats :: Text -> Pandoc
 jats = purely $ readJATS def
 
@@ -126,4 +128,19 @@ tests = [ testGroup "inline code"
             \</sec>"
             =?> header 1 (image "imgs/foo.jpg" "" mempty)
           ]
+
+        , testGroup "metadata"
+          [ test jats "abstract" $
+            T.unlines [ "<front>"
+                      , "<article-meta>"
+                      , "<abstract>"
+                      , "<p>Paragraph 1</p>"
+                      , "<p>Paragraph 2</p>"
+                      , "</abstract>"
+                      , "</article-meta>"
+                      , "</front>"
+                      ] =?>
+            let abstract = para "Paragraph 1" <> para "Paragraph 2"
+            in setMeta "abstract" abstract $ doc mempty
+          ]
         ]