HTML reader tests: accept Blocks in round trip test
commitca420983aa83a9988ec3c0093c494ca4357fab7f
authorAlexander Krotov <ilabdsf@gmail.com>
dateTue 11 Sep 2018, 19:23 (8 years ago)
parent0ac3512
test/Tests/Readers/HTML.hs+2−2
@@ -30,9 +30,9 @@ removeRawInlines :: Inline -> Inline
3030removeRawInlines RawInline{} = Str "raw inline was here"
3131removeRawInlines x = x
3232
33−roundTrip :: Block -> Bool
33+roundTrip :: Blocks -> Bool
3434roundTrip b = d'' == d'''
35− where d = walk removeRawInlines $ walk makeRoundTrip $ Pandoc nullMeta [b]
35+ where d = walk removeRawInlines $ walk makeRoundTrip $ Pandoc nullMeta $ toList b
3636 d' = rewrite d
3737 d'' = rewrite d'
3838 d''' = rewrite d''