From 19175af811b7a95c4e732466cddac04947c01917 Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Sun, 28 Jun 2020 19:35:50 +0200
Subject: JATS reader: parse abstract element into metadata field of same name
 (#6482)

Closes: #6480
---
 test/Tests/Readers/JATS.hs | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'test')

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
+          ]
         ]
-- 
cgit v1.2.3