diff options
| author | hftf <hftf@users.noreply.github.com> | 2017-10-27 18:45:00 -0400 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-10-27 18:45:00 -0400 |
| commit | 7f8a3c6cb70e61666598873dbcea8ef45ab85b56 (patch) | |
| tree | 74d187a1f0f57733ecd76b331f4259e1469204e2 /test/Tests | |
| parent | 2ddf08641d5e27046ae97ebd3cb4602025016ed5 (diff) | |
| download | pandoc-7f8a3c6cb70e61666598873dbcea8ef45ab85b56.tar.gz | |
Consistent underline for Readers (#2270)
* Added underlineSpan builder function. This can be easily updated if needed. The purpose is for Readers to transform underlines consistently.
* Docx Reader: Use underlineSpan and update test
* Org Reader: Use underlineSpan and add test
* Textile Reader: Use underlineSpan and add test case
* Txt2Tags Reader: Use underlineSpan and update test
* HTML Reader: Use underlineSpan and add test case
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Readers/Org.hs | 5 | ||||
| -rw-r--r-- | test/Tests/Readers/Txt2Tags.hs | 5 |
2 files changed, 8 insertions, 2 deletions
diff --git a/test/Tests/Readers/Org.hs b/test/Tests/Readers/Org.hs index 567d63bd5..30074d6bd 100644 --- a/test/Tests/Readers/Org.hs +++ b/test/Tests/Readers/Org.hs @@ -8,6 +8,7 @@ import Test.Tasty import Tests.Helpers import Text.Pandoc import Text.Pandoc.Builder +import Text.Pandoc.Shared (underlineSpan) org :: Text -> Pandoc org = purely $ readOrg def{ readerExtensions = getDefaultExtensions "org" } @@ -57,6 +58,10 @@ tests = " */super/*" =?> para (strong . emph $ "super") + , "Underline" =: + "_underline_" =?> + para (underlineSpan $ "underline") + , "Strikeout" =: "+Kill Bill+" =?> para (strikeout . spcSep $ [ "Kill", "Bill" ]) diff --git a/test/Tests/Readers/Txt2Tags.hs b/test/Tests/Readers/Txt2Tags.hs index 041918e70..e3c4d0643 100644 --- a/test/Tests/Readers/Txt2Tags.hs +++ b/test/Tests/Readers/Txt2Tags.hs @@ -10,6 +10,7 @@ import Text.Pandoc import Text.Pandoc.Arbitrary () import Text.Pandoc.Builder import Text.Pandoc.Class +import Text.Pandoc.Shared (underlineSpan) t2t :: Text -> Pandoc -- t2t = handleError . readTxt2Tags (T2TMeta "date" "mtime" "in" "out") def @@ -69,12 +70,12 @@ tests = , "Inline markup is greedy" =: "***** ///// _____ ----- ````` \"\"\"\"\" '''''" =?> - para (spcSep [strong "*", emph "/", emph "_" + para (spcSep [strong "*", emph "/", underlineSpan "_" , strikeout "-", code "`", text "\"" , rawInline "html" "'"]) , "Markup must be greedy" =: "********** ////////// __________ ---------- `````````` \"\"\"\"\"\"\"\"\"\" ''''''''''" =?> - para (spcSep [strong "******", emph "//////", emph "______" + para (spcSep [strong "******", emph "//////", underlineSpan "______" , strikeout "------", code "``````", text "\"\"\"\"\"\"" , rawInline "html" "''''''"]) , "Inlines must be glued" =: |