diff options
author | Sidharth Kapur <sidharthkapur1@gmail.com> | 2016-05-01 22:32:26 -0500 |
---|---|---|
committer | Sidharth Kapur <sidharthkapur1@gmail.com> | 2016-05-01 22:32:26 -0500 |
commit | d7bc8c06324a0ca0ce32ece35a5dc157dadc4187 (patch) | |
tree | 5006655b093078f502d4e37680c16bf3342a1e84 /tests | |
parent | 72d1900b30d20e369df5f4201e224e8edf314386 (diff) | |
download | pandoc-d7bc8c06324a0ca0ce32ece35a5dc157dadc4187.tar.gz |
Use `codeBlockWith`
Diffstat (limited to 'tests')
-rw-r--r-- | tests/Tests/Readers/RST.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/Tests/Readers/RST.hs b/tests/Tests/Readers/RST.hs index 8fa2e4828..0fc8ecc32 100644 --- a/tests/Tests/Readers/RST.hs +++ b/tests/Tests/Readers/RST.hs @@ -8,7 +8,6 @@ import Tests.Arbitrary() import Text.Pandoc.Builder import Text.Pandoc import Text.Pandoc.Error -import qualified Data.Sequence as Seq rst :: String -> Pandoc rst = handleError . readRST def{ readerStandalone = True } @@ -103,11 +102,12 @@ tests = [ "line block with blank line" =: , " def func(x):" , " return y" ] =?> - ( doc . Many . Seq.singleton $ - CodeBlock ( "" - , ["sourceCode", "python", "numberLines", "class1", "class2", "class3"] - , [ ("startFrom", "34") ] - ) "def func(x):\n return y" + ( doc $ codeBlockWith + ( "" + , ["sourceCode", "python", "numberLines", "class1", "class2", "class3"] + , [ ("startFrom", "34") ] + ) + "def func(x):\n return y" ) , testGroup "literal / line / code blocks" [ "indented literal block" =: unlines |