aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Readers/DokuWiki.hs
diff options
context:
space:
mode:
authorVaibhav Sagar <vaibhavsagar@gmail.com>2020-04-28 22:53:06 +0800
committerGitHub <noreply@github.com>2020-04-28 07:53:06 -0700
commit9c2b659eeb196145f62d8eae0072c279a7c2d751 (patch)
treef3c97feb0f1d063e2a7c65904c9fbe1591104a05 /test/Tests/Readers/DokuWiki.hs
parent8d09a92d979126a53ec72ec73294ad04f811e9a7 (diff)
downloadpandoc-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/Readers/DokuWiki.hs')
-rw-r--r--test/Tests/Readers/DokuWiki.hs5
1 files changed, 2 insertions, 3 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."