diff options
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Readers/Jira.hs | 18 | ||||
| -rw-r--r-- | test/Tests/Writers/Jira.hs | 5 |
2 files changed, 21 insertions, 2 deletions
diff --git a/test/Tests/Readers/Jira.hs b/test/Tests/Readers/Jira.hs index 05fc9a3ab..8e37968eb 100644 --- a/test/Tests/Readers/Jira.hs +++ b/test/Tests/Readers/Jira.hs @@ -14,8 +14,8 @@ Tests for the RST reader. -} module Tests.Readers.Jira (tests) where -import Prelude -import Data.Text (Text) +import Prelude hiding (unlines) +import Data.Text (Text, unlines) import Test.Tasty (TestTree, testGroup) import Tests.Helpers (ToString, purely, test, (=?>)) import Text.Pandoc (def) @@ -57,6 +57,16 @@ tests = [ "simple block quote" =: "bq. _Don't_ quote me on this." =?> blockQuote (para $ emph "Don't" <> space <> "quote me on this.") + + , "block quote between paragraphs" =: + unlines [ "Regular text." + , "bq.This is a blockquote" + , "More text." + ] =?> + mconcat [ para "Regular text." + , blockQuote (para "This is a blockquote") + , para "More text." + ] ] , testGroup "table" @@ -105,6 +115,10 @@ tests = "This is {color:red}red{color}." =?> para ("This is " <> spanWith ("", [], [("color", "red")]) "red" <> ".") + , "hexcolor" =: + "{color:#00875A}green{color}" =?> + para (spanWith ("", [], [("color", "#00875A")]) "green") + , "linebreak" =: "first\nsecond" =?> para ("first" <> linebreak <> "second") diff --git a/test/Tests/Writers/Jira.hs b/test/Tests/Writers/Jira.hs index 063497fd1..48626487e 100644 --- a/test/Tests/Writers/Jira.hs +++ b/test/Tests/Writers/Jira.hs @@ -23,5 +23,10 @@ tests = spanWith ("ignored", ["ignored", "underline"], [("foo", "bar")]) "underlined text" =?> "+underlined text+" + + , "image with attributes" =: + imageWith ("", [], [("align", "right"), ("height", "50")]) + "image.png" "" mempty =?> + "!image.png|align=right, height=50!" ] ] |