diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/JATS.hs | 17 |
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 + ] ] |