eb184d9148
Code blocks that are not marked as a language supported by Jira are
rendered as preformatted text with `{noformat}` blocks.
Fixes: tarleb/jira-wiki-markup#4
82 lines
2.4 KiB
Haskell
82 lines
2.4 KiB
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
module Tests.Writers.Jira (tests) where
|
|
|
|
import Data.Text (unpack)
|
|
import Test.Tasty
|
|
import Test.Tasty.HUnit (HasCallStack)
|
|
import Tests.Helpers
|
|
import Text.Pandoc
|
|
import Text.Pandoc.Arbitrary ()
|
|
import Text.Pandoc.Builder
|
|
|
|
jira :: (ToPandoc a) => a -> String
|
|
jira = unpack . purely (writeJira def) . toPandoc
|
|
|
|
infix 4 =:
|
|
(=:) :: (ToString a, ToPandoc a, HasCallStack)
|
|
=> String -> (a, String) -> TestTree
|
|
(=:) = test jira
|
|
|
|
tests :: [TestTree]
|
|
tests =
|
|
[ testGroup "inlines"
|
|
[ "underlined text" =:
|
|
underline "underlined text" =?>
|
|
"+underlined text+"
|
|
|
|
, "image with attributes" =:
|
|
imageWith ("", [], [("align", "right"), ("height", "50")])
|
|
"image.png" "" mempty =?>
|
|
"!image.png|align=right, height=50!"
|
|
|
|
, testGroup "links"
|
|
[ "external link" =:
|
|
link "https://example.com/test.php" "" "test" =?>
|
|
"[test|https://example.com/test.php]"
|
|
|
|
, "external link without description" =:
|
|
link "https://example.com/tmp.js" "" "https://example.com/tmp.js" =?>
|
|
"[https://example.com/tmp.js]"
|
|
|
|
, "email link" =:
|
|
link "mailto:me@example.com" "" "Jane" =?>
|
|
"[Jane|mailto:me@example.com]"
|
|
|
|
, "email link without description" =:
|
|
link "mailto:me@example.com" "" "me@example.com" =?>
|
|
"[mailto:me@example.com]"
|
|
|
|
, "attachment link" =:
|
|
linkWith ("", ["attachment"], []) "foo.txt" "" "My file" =?>
|
|
"[My file^foo.txt]"
|
|
|
|
, "attachment link without description" =:
|
|
linkWith ("", ["attachment"], []) "foo.txt" "" "foo.txt" =?>
|
|
"[^foo.txt]"
|
|
|
|
, "user link" =:
|
|
linkWith ("", ["user-account"], []) "~johndoe" "" "John Doe" =?>
|
|
"[John Doe|~johndoe]"
|
|
|
|
, "user link with user as description" =:
|
|
linkWith ("", ["user-account"], []) "~johndoe" "" "~johndoe" =?>
|
|
"[~johndoe]"
|
|
]
|
|
|
|
, testGroup "spans"
|
|
[ "id is used as anchor" =:
|
|
spanWith ("unicorn", [], []) (str "Unicorn") =?>
|
|
"{anchor:unicorn}Unicorn"
|
|
]
|
|
|
|
, testGroup "code"
|
|
[ "code block with known language" =:
|
|
codeBlockWith ("", ["java"], []) "Book book = new Book(\"Algebra\")" =?>
|
|
"{code:java}\nBook book = new Book(\"Algebra\")\n{code}"
|
|
|
|
, "code block without language" =:
|
|
codeBlockWith ("", [], []) "preformatted\n text.\n" =?>
|
|
"{noformat}\npreformatted\n text.\n{noformat}"
|
|
]
|
|
]
|
|
]
|