Native writer test: in block list test, limit to list < 20 blocks.
commit1a19f96a5b9b65115323033f567a225dd479bf60
authorJohn MacFarlane <jgm@berkeley.edu>
dateFri 4 Feb 2011, 18:33 (16 years ago)
parentc686010
src/Tests/Writers/Native.hs+3−2
@@ -11,8 +11,9 @@ p_write_rt d =
1111 read (writeNative defaultWriterOptions{ writerStandalone = True } d) == d
1212
1313p_write_blocks_rt :: [Block] -> Bool
14−p_write_blocks_rt bs =
15− read (writeNative defaultWriterOptions (Pandoc (Meta [] [] []) bs)) == bs
14+p_write_blocks_rt bs = length bs > 20 ||
15+ read (writeNative defaultWriterOptions (Pandoc (Meta [] [] []) bs)) ==
16+ bs
1617
1718tests :: [Test]
1819tests = [ property "p_write_rt" p_write_rt