diff options
| author | Vaibhav Sagar <vaibhavsagar@gmail.com> | 2020-04-28 22:53:06 +0800 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-04-28 07:53:06 -0700 |
| commit | 9c2b659eeb196145f62d8eae0072c279a7c2d751 (patch) | |
| tree | f3c97feb0f1d063e2a7c65904c9fbe1591104a05 /test/Tests | |
| parent | 8d09a92d979126a53ec72ec73294ad04f811e9a7 (diff) | |
| download | pandoc-9c2b659eeb196145f62d8eae0072c279a7c2d751.tar.gz | |
Support new Underline element in readers and writers (#6277)
Deprecate `underlineSpan` in Shared in favor of `Text.Pandoc.Builder.underline`.
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Readers/DokuWiki.hs | 5 | ||||
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 3 | ||||
| -rw-r--r-- | test/Tests/Readers/Org/Inline.hs | 3 | ||||
| -rw-r--r-- | test/Tests/Readers/Txt2Tags.hs | 5 |
4 files changed, 6 insertions, 10 deletions
diff --git a/test/Tests/Readers/DokuWiki.hs b/test/Tests/Readers/DokuWiki.hs index 15a6a6982..d5f0c45a9 100644 --- a/test/Tests/Readers/DokuWiki.hs +++ b/test/Tests/Readers/DokuWiki.hs @@ -22,7 +22,6 @@ import Tests.Helpers import Text.Pandoc import Text.Pandoc.Arbitrary () import Text.Pandoc.Builder -import Text.Pandoc.Shared (underlineSpan) dokuwiki :: Text -> Pandoc dokuwiki = purely $ readDokuWiki def{ readerStandalone = True } @@ -42,7 +41,7 @@ tests = [ testGroup "inlines" para (emph "italic") , "Underlined" =: "__underlined__" =?> - para (underlineSpan "underlined") + para (underline "underlined") , "Monospaced" =: "''monospaced''" =?> para (code "monospaced") @@ -51,7 +50,7 @@ tests = [ testGroup "inlines" para (code "monospaced") , "Combined" =: "**__//''combine''//__**" =?> - para (strong $ underlineSpan $ emph $ code "combine") + para (strong $ underline $ emph $ code "combine") , "Nowiki" =: T.unlines [ "<nowiki>" , "This is some text which contains addresses like this: http://www.splitbrain.org and **formatting**, but nothing is done with it." diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 77108eb83..60a5e4b56 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -25,7 +25,6 @@ import Tests.Helpers import Text.Pandoc import Text.Pandoc.Arbitrary () import Text.Pandoc.Builder -import Text.Pandoc.Shared (underlineSpan) import Text.Pandoc.Writers.Shared (toLegacyTable) import Text.Pandoc.Walk @@ -209,7 +208,7 @@ tests = para (strong . emph $ "foo******bar") , test emacsMuse "Underline" - ("_Underline_" =?> para (underlineSpan "Underline")) + ("_Underline_" =?> para (underline "Underline")) , "Superscript tag" =: "<sup>Superscript</sup>" =?> para (superscript "Superscript") diff --git a/test/Tests/Readers/Org/Inline.hs b/test/Tests/Readers/Org/Inline.hs index 5bd86f0cd..19a20fd06 100644 --- a/test/Tests/Readers/Org/Inline.hs +++ b/test/Tests/Readers/Org/Inline.hs @@ -19,7 +19,6 @@ import Test.Tasty (TestTree, testGroup) import Tests.Helpers ((=?>)) import Tests.Readers.Org.Shared ((=:), spcSep) import Text.Pandoc.Builder -import Text.Pandoc.Shared (underlineSpan) import qualified Data.Text as T import qualified Tests.Readers.Org.Inline.Citation as Citation import qualified Tests.Readers.Org.Inline.Note as Note @@ -49,7 +48,7 @@ tests = , "Underline" =: "_underline_" =?> - para (underlineSpan "underline") + para (underline "underline") , "Strikeout" =: "+Kill Bill+" =?> diff --git a/test/Tests/Readers/Txt2Tags.hs b/test/Tests/Readers/Txt2Tags.hs index a56f814ae..3989b2434 100644 --- a/test/Tests/Readers/Txt2Tags.hs +++ b/test/Tests/Readers/Txt2Tags.hs @@ -23,7 +23,6 @@ import Tests.Helpers import Text.Pandoc import Text.Pandoc.Arbitrary () import Text.Pandoc.Builder -import Text.Pandoc.Shared (underlineSpan) t2t :: Text -> Pandoc -- t2t = handleError . readTxt2Tags (T2TMeta "date" "mtime" "in" "out") def @@ -94,12 +93,12 @@ tests = , "Inline markup is greedy" =: "***** ///// _____ ----- ````` \"\"\"\"\" '''''" =?> - para (spcSep [strong "*", emph "/", underlineSpan "_" + para (spcSep [strong "*", emph "/", underline "_" , strikeout "-", code "`", text "\"" , rawInline "html" "'"]) , "Markup must be greedy" =: "********** ////////// __________ ---------- `````````` \"\"\"\"\"\"\"\"\"\" ''''''''''" =?> - para (spcSep [strong "******", emph "//////", underlineSpan "______" + para (spcSep [strong "******", emph "//////", underline "______" , strikeout "------", code "``````", text "\"\"\"\"\"\"" , rawInline "html" "''''''"]) , "Inlines must be glued" =: |