From d85357139748ea657f030ab314c39e70f56764f4 Mon Sep 17 00:00:00 2001
From: Hamish Mackenzie <Hamish.K.Mackenzie@googlemail.com>
Date: Wed, 20 Dec 2017 23:55:48 +1300
Subject: Improve support for code language in JATS

---
 test/Tests/Readers/JATS.hs | 5 +++++
 test/Tests/Writers/JATS.hs | 7 ++++++-
 2 files changed, 11 insertions(+), 1 deletion(-)

(limited to 'test')

diff --git a/test/Tests/Readers/JATS.hs b/test/Tests/Readers/JATS.hs
index ed6317c71..5c7dfa77c 100644
--- a/test/Tests/Readers/JATS.hs
+++ b/test/Tests/Readers/JATS.hs
@@ -14,6 +14,11 @@ jats = purely $ readJATS def
 tests :: [TestTree]
 tests = [ testGroup "inline code"
           [ test jats "basic" $ "<p>\n  <monospace>@&amp;</monospace>\n</p>" =?> para (code "@&")
+          , test jats "lang" $ "<p>\n  <code language=\"c\">@&amp;</code>\n</p>" =?> para (codeWith ("", ["c"], []) "@&")
+          ]
+        , testGroup "block code"
+          [ test jats "basic" $ "<preformat>@&amp;</preformat>" =?> codeBlock "@&"
+          , test jats "lang" $ "<code language=\"c\">@&amp;</code>" =?> codeBlockWith ("", ["c"], []) "@&"
           ]
         , testGroup "images"
           [ test jats "basic" $ "<graphic mimetype=\"image\" mime-subtype=\"\" xlink:href=\"/url\" xlink:title=\"title\" />"
diff --git a/test/Tests/Writers/JATS.hs b/test/Tests/Writers/JATS.hs
index cd4609849..f14f1c229 100644
--- a/test/Tests/Writers/JATS.hs
+++ b/test/Tests/Writers/JATS.hs
@@ -31,6 +31,11 @@ infix 4 =:
 tests :: [TestTree]
 tests = [ testGroup "inline code"
           [ "basic" =: code "@&" =?> "<p>\n  <monospace>@&amp;</monospace>\n</p>"
+          , "lang" =: codeWith ("", ["c"], []) "@&" =?> "<p>\n  <code language=\"c\">@&amp;</code>\n</p>"
+          ]
+        , testGroup "block code"
+          [ "basic" =: codeBlock "@&" =?> "<preformat>@&amp;</preformat>"
+          , "lang" =: codeBlockWith ("", ["c"], []) "@&" =?> "<code language=\"c\">@&amp;</code>"
           ]
         , testGroup "images"
           [ "basic" =:
@@ -38,7 +43,7 @@ tests = [ testGroup "inline code"
             =?> "<graphic mimetype=\"image\" mime-subtype=\"\" xlink:href=\"/url\" xlink:title=\"title\" />"
           ]
         , testGroup "inlines"
-          [ "Emphasis" =: emph ("emphasized")
+          [ "Emphasis" =: emph "emphasized"
             =?> "<p>\n  <italic>emphasized</italic>\n</p>"
           ]
         , "bullet list" =: bulletList [ plain $ text "first"
-- 
cgit v1.2.3