git.iko.soy/typeable/pandoc
on master help sign in
Muse reader tests: accept Blocks instead of Block in round trip test

This way testcase can be shrinked better up to removing all blocks completely.

commit0ac3512cfe39761bb7ced6d9b624315c94c2cc8d authorAlexander Krotov <ilabdsf@gmail.com> dateTue 11 Sep 2018, 14:22 (8 years ago) parent1aac754
1 file changed+2−2
compare with master
unifiedsplit
test/Tests/Readers/Muse.hs+2−2
test/Tests/Readers/Muse.hs+2−2
@@ -39,9 +39,9 @@ makeRoundTrip x = x
3939
4040-- Demand that any AST produced by Muse reader and written by Muse writer can be read back exactly the same way.
4141-- Currently we remove tables and compare first rewrite to the second.
42−roundTrip :: Block -> Bool
42+roundTrip :: Blocks -> Bool
4343roundTrip b = d' == d''
44− where d = walk makeRoundTrip $ Pandoc nullMeta [b]
44+ where d = walk makeRoundTrip $ Pandoc nullMeta $ toList b
4545 d' = rewrite d
4646 d'' = rewrite d'
4747 rewrite = amuse . T.pack . (++ "\n") . T.unpack .