{-# LANGUAGE OverloadedStrings #-}

module Tests.Readers.JATS (tests) where

import Data.Text (Text)

import Test.Tasty

import Tests.Helpers

import Text.Pandoc

import Text.Pandoc.Arbitrary ()

import Text.Pandoc.Builder

jats :: Text -> Pandoc

jats = purely $ readJATS def

tests :: [TestTree]

tests = [ testGroup "inline code"

          [ test jats "basic" $ "
\n  <monospace>@&</monospace>\n
" =?> para (code "@&")

          , test jats "lang" $ "
\n  @&\n
" =?> para (codeWith ("", ["c"], []) "@&")

          ]

        , testGroup "block code"

          [ test jats "basic" $ "<preformat>@&</preformat>" =?> codeBlock "@&"

          , test jats "lang" $ "@&" =?> codeBlockWith ("", ["c"], []) "@&"

          ]

        , testGroup "images"

          [ test jats "basic" $ "<graphic mimetype=\"image\" mime-subtype=\"\" xlink:href=\"/url\" xlink:title=\"title\" />"

            =?> para (image "/url" "title" mempty)

          ]

        , test jats "bullet list" $

                            "<list list-type=\"bullet\">\n\

                            \  <list-item>\n\

                            \    
\n\

                            \      first\n\

                            \    
\n\

                            \  </list-item>\n\

                            \  <list-item>\n\

                            \    
\n\

                            \      second\n\

                            \    
\n\

                            \  </list-item>\n\

                            \  <list-item>\n\

                            \    
\n\

                            \      third\n\

                            \    
\n\

                            \  </list-item>\n\

                            \</list>"

                =?> bulletList [ para $ text "first"

                               , para $ text "second"

                               , para $ text "third"

                               ]

        , testGroup "definition lists"

          [ test jats "with internal link" $

            "<def-list>\n\

            \  <def-item>\n\

            \    <term>\n\

            \      <xref alt=\"testing\" rid=\"go\">testing</xref>\n\

            \    </term>\n\

            \    <def>\n\

            \      
\n\

            \        hi there\n\

            \      
\n\

            \    </def>\n\

            \  </def-item>\n\

            \</def-list>"

            =?> definitionList [(link "#go" "" (str "testing"),

                [para (text "hi there")])]

          ]

        , testGroup "math"

          [ test jats "escape |" $

            "
\n\

            \  <inline-formula><alternatives>\n\

            \  <tex-math></tex-math>\n\

            \  <mml:math display=\"inline\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\"><mml:mrow><mml:mi>σ</mml:mi><mml:msub><mml:mo stretchy=\"false\" form=\"prefix\">|</mml:mo><mml:mrow><mml:mo stretchy=\"false\" form=\"prefix\">{</mml:mo><mml:mi>x</mml:mi><mml:mo stretchy=\"false\" form=\"postfix\">}</mml:mo></mml:mrow></mml:msub></mml:mrow></mml:math></alternatives></inline-formula>\n\

            \
"

            =?> para (math "\\sigma|_{\\{x\\}}")

          , test jats "tex-math only" $

            "
\n\

            \  <inline-formula><alternatives>\n\

            \  <tex-math></tex-math>\n\

            \
"

            =?> para (math "\\sigma|_{\\{x\\}}")

          , test jats "math ml only" $

            "
\n\

            \  <inline-formula><alternatives>\n\

            \  <mml:math display=\"inline\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\"><mml:mrow><mml:mi>σ</mml:mi><mml:msub><mml:mo stretchy=\"false\" form=\"prefix\">|</mml:mo><mml:mrow><mml:mo stretchy=\"false\" form=\"prefix\">{</mml:mo><mml:mi>x</mml:mi><mml:mo stretchy=\"false\" form=\"postfix\">}</mml:mo></mml:mrow></mml:msub></mml:mrow></mml:math></alternatives></inline-formula>\n\

            \
"

            =?> para (math "\\sigma|_{\\{ x\\}}")

          ]

        , testGroup "headers"

-- TODO fix footnotes in headers

--          [ test jats "unnumbered header" $

--            "<sec>\n\

--            \  <title>Header 1<fn>\n\

--            \    
\n\

--            \      note\n\

--            \    
\n\

--            \  </fn></title>\n\

--            \</sec>"

--            =?> header 1

--                (text "Header 1" <> note (plain $ text "note"))

          [ test jats "unnumbered sub header" $

            "<sec id=\"foo\">\n\

            \  <title>Header</title>\n\

            \  <sec id=\"foo2\">\n\

            \    <title>Sub-Header</title>\n\

            \  </sec>\n\

            \</sec>"

            =?> headerWith ("foo", [], []) 1

                  (text "Header")

                <> headerWith  ("foo2", [], []) 2

                  (text "Sub-Header")

          , test jats "containing image" $

            "<sec>\n\

            \  <title><inline-graphic mimetype=\"image\" mime-subtype=\"jpeg\" xlink:href=\"imgs/foo.jpg\" /></title>\n\

            \</sec>"

            =?> header 1 (image "imgs/foo.jpg" "" mempty)

          ]

        ]