Introduce new format variants for JATS (#6067)

New formats:

- `jats_archiving` for the "Archiving and Interchange Tag Set",
- `jats_publishing` for the "Journal Publishing Tag Set", and
- `jats_articleauthoring` for the "Article Authoring Tag Set."

The "jats" output format is now an alias for "jats_archiving".

Closes: #6014

2 files changed, 23 insertions, 2 deletions

diff --git a/test/Tests/Old.hs b/test/Tests/Old.hs
index 3543cdbb3..2851db5d4 100644
--- a/test/Tests/Old.hs
+++ b/test/Tests/Old.hs
@@ -94,7 +94,14 @@ tests pandocPath =
     [ testGroup "writer" $ writerTests' "docbook5"
     ]
   , testGroup "jats"
-    [ testGroup "writer" $ writerTests' "jats"
+    [ testGroup "writer"
+      [ testGroup "jats_archiving" $
+        writerTests' "jats_archiving"
+      , testGroup "jats_articleauthoring" $
+        writerTests' "jats_articleauthoring"
+      , testGroup "jats_publishing" $
+        writerTests' "jats_publishing"
+      ]
     , test' "reader" ["-r", "jats", "-w", "native", "-s"]
       "jats-reader.xml" "jats-reader.native"
     ]
diff --git a/test/Tests/Writers/JATS.hs b/test/Tests/Writers/JATS.hs
index 6de058701..7d98f979b 100644
--- a/test/Tests/Writers/JATS.hs
+++ b/test/Tests/Writers/JATS.hs
@@ -11,7 +11,14 @@ import Text.Pandoc.Arbitrary ()
 import Text.Pandoc.Builder
 
 jats :: (ToPandoc a) => a -> String
-jats = unpack . purely (writeJATS def{ writerWrapText = WrapNone }) . toPandoc
+jats = unpack
+  . purely (writeJATS def{ writerWrapText = WrapNone })
+  . toPandoc
+
+jatsArticleAuthoring :: (ToPandoc a) => a -> String
+jatsArticleAuthoring = unpack
+  . purely (writeJatsArticleAuthoring def{ writerWrapText = WrapNone })
+  . toPandoc
 
 {-
   "my test" =: X =?> Y
@@ -47,6 +54,13 @@ tests = [ testGroup "inline code"
         , testGroup "inlines"
           [ "Emphasis" =: emph "emphasized"
             =?> "<p><italic>emphasized</italic></p>"
+
+          , test jatsArticleAuthoring "footnote in articleauthoring tag set"
+            ("test" <> note (para "footnote") =?>
+             unlines [ "<p>test<fn>"
+                     , "  <p>footnote</p>"
+                     , "</fn></p>"
+                     ])
           ]
         , "bullet list" =: bulletList [ plain $ text "first"
                                       , plain $ text "second"