summaryrefslogtreecommitdiff
path: root/src/Tests/Writers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2011-02-04 18:33:32 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2011-02-04 18:33:32 -0800
commit1a19f96a5b9b65115323033f567a225dd479bf60 (patch)
treeb5363f04251dd85d28ece77b5a5a415146db1b92 /src/Tests/Writers
parentc686010a92f35eaba4056d502e47d875c9d98e94 (diff)
Native writer test: in block list test, limit to list < 20 blocks.
Diffstat (limited to 'src/Tests/Writers')
-rw-r--r--src/Tests/Writers/Native.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Tests/Writers/Native.hs b/src/Tests/Writers/Native.hs
index 234fe938a..19740e0f4 100644
--- a/src/Tests/Writers/Native.hs
+++ b/src/Tests/Writers/Native.hs
@@ -11,8 +11,9 @@ p_write_rt d =
read (writeNative defaultWriterOptions{ writerStandalone = True } d) == d
p_write_blocks_rt :: [Block] -> Bool
-p_write_blocks_rt bs =
- read (writeNative defaultWriterOptions (Pandoc (Meta [] [] []) bs)) == bs
+p_write_blocks_rt bs = length bs > 20 ||
+ read (writeNative defaultWriterOptions (Pandoc (Meta [] [] []) bs)) ==
+ bs
tests :: [Test]
tests = [ property "p_write_rt" p_write_rt