diff options
author | John MacFarlane <jgm@berkeley.edu> | 2016-11-27 11:52:42 +0100 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-25 17:07:39 +0100 |
commit | 1673bda95e83aa124241ffdf14d25282d4cad055 (patch) | |
tree | 08af8f0afda6fb46341f348a96b64f0bda33a80a /tests/Tests/Writers/RST.hs | |
parent | b969863e0787ae560d55ca14238a94ac28d302cf (diff) | |
download | pandoc-1673bda95e83aa124241ffdf14d25282d4cad055.tar.gz |
Update tests to work with runPure.
Diffstat (limited to 'tests/Tests/Writers/RST.hs')
-rw-r--r-- | tests/Tests/Writers/RST.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/Tests/Writers/RST.hs b/tests/Tests/Writers/RST.hs index 77dafeb4c..68a890ca8 100644 --- a/tests/Tests/Writers/RST.hs +++ b/tests/Tests/Writers/RST.hs @@ -10,7 +10,7 @@ import Text.Pandoc.Arbitrary() infix 4 =: (=:) :: (ToString a, ToPandoc a) => String -> (a, String) -> Test -(=:) = test (writeRST def{ writerHighlight = True } . toPandoc) +(=:) = test (purely (writeRST def{ writerHighlight = True }) . toPandoc) tests :: [Test] tests = [ testGroup "rubrics" @@ -47,7 +47,7 @@ tests = [ testGroup "rubrics" [ "foo" , "==="] -- note: heading normalization is only done in standalone mode - , test (writeRST def{ writerTemplate = Just "$body$\n" } . toPandoc) + , test (purely (writeRST def{ writerTemplate = Just "$body$\n" }) . toPandoc) "heading levels" $ header 1 (text "Header 1") <> header 3 (text "Header 2") <> @@ -77,7 +77,7 @@ tests = [ testGroup "rubrics" , "" , "Header 2" , "--------"] - , test (writeRST def{ writerTemplate = Just "$body$\n" } . toPandoc) + , test (purely (writeRST def{ writerTemplate = Just "$body$\n" }) . toPandoc) "minimal heading levels" $ header 2 (text "Header 1") <> header 3 (text "Header 2") <> |