@@ -8,7 +8,6 @@ import Tests.Arbitrary()
88import Text.Pandoc.Builder
99import Text.Pandoc
1010import Text.Pandoc.Error
11−import qualified Data.Sequence as Seq
1211
1312rst :: String -> Pandoc
1413rst = handleError . readRST def{ readerStandalone = True }
@@ -103,11 +102,12 @@ tests = [ "line block with blank line" =:
103102 , " def func(x):"
104103 , " return y"
105104 ] =?>
106− ( doc . Many . Seq.singleton $
107− CodeBlock ( ""
108− , ["sourceCode", "python", "numberLines", "class1", "class2", "class3"]
109− , [ ("startFrom", "34") ]
110− ) "def func(x):\n return y"
105+ ( doc $ codeBlockWith
106+ ( ""
107+ , ["sourceCode", "python", "numberLines", "class1", "class2", "class3"]
108+ , [ ("startFrom", "34") ]
109+ )
110+ "def func(x):\n return y"
111111 )
112112 , testGroup "literal / line / code blocks"
113113 [ "indented literal block" =: unlines