aboutsummaryrefslogtreecommitdiff
path: root/src/Tests/Writers/Native.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Tests/Writers/Native.hs')
-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