git.iko.soy/typeable/pandoc
on master help sign in
HTML reader tests: accept Blocks in round trip test
ca42098Alexander Krotov
test/Tests/Readers/HTML.hs+2−2
compare with master
unifiedsplit
@@ -30,9 +30,9 @@ removeRawInlines :: Inline -> Inline
30removeRawInlines RawInline{} = Str "raw inline was here"
30removeRawInlines RawInline{} = Str "raw inline was here"
31removeRawInlines x = x
31removeRawInlines x = x
32
32
33−roundTrip :: Block -> Bool
33+roundTrip :: Blocks -> Bool
34roundTrip b = d'' == d'''
34roundTrip b = d'' == d'''
35− where d = walk removeRawInlines $ walk makeRoundTrip $ Pandoc nullMeta [b]
35+ where d = walk removeRawInlines $ walk makeRoundTrip $ Pandoc nullMeta $ toList b
36 d' = rewrite d
36 d' = rewrite d
37 d'' = rewrite d'
37 d'' = rewrite d'
38 d''' = rewrite d''
38 d''' = rewrite d''