diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-08-10 17:23:51 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-08-10 17:24:54 -0700 |
| commit | cbfa9321066212b912583481015224f3c944ae21 (patch) | |
| tree | f858055ee94dc44214f046db2dbf5dad07da8133 /tests/Tests/Arbitrary.hs | |
| parent | e9de0f0e22b9b64b5684efe81d03539c3f57a71c (diff) | |
| download | pandoc-cbfa9321066212b912583481015224f3c944ae21.tar.gz | |
Adjustments for new Format newtype.
Diffstat (limited to 'tests/Tests/Arbitrary.hs')
| -rw-r--r-- | tests/Tests/Arbitrary.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/Tests/Arbitrary.hs b/tests/Tests/Arbitrary.hs index 5939d088d..31c0cb46a 100644 --- a/tests/Tests/Arbitrary.hs +++ b/tests/Tests/Arbitrary.hs @@ -41,8 +41,8 @@ arbInline :: Int -> Gen Inline arbInline n = frequency $ [ (60, liftM Str realString) , (60, return Space) , (10, liftM2 Code arbAttr realString) - , (5, elements [ RawInline "html" "<a id=\"eek\">" - , RawInline "latex" "\\my{command}" ]) + , (5, elements [ RawInline (Format "html") "<a id=\"eek\">" + , RawInline (Format "latex") "\\my{command}" ]) ] ++ [ x | x <- nesters, n > 1] where nesters = [ (10, liftM Emph $ arbInlines (n-1)) , (10, liftM Strong $ arbInlines (n-1)) @@ -74,9 +74,9 @@ arbBlock :: Int -> Gen Block arbBlock n = frequency $ [ (10, liftM Plain $ arbInlines (n-1)) , (15, liftM Para $ arbInlines (n-1)) , (5, liftM2 CodeBlock arbAttr realString) - , (2, elements [ RawBlock "html" + , (2, elements [ RawBlock (Format "html") "<div>\n*&*\n</div>" - , RawBlock "latex" + , RawBlock (Format "latex") "\\begin[opt]{env}\nhi\n{\\end{env}" ]) , (5, do x1 <- choose (1 :: Int, 6) |