git.iko.soy/typeable/pandoc
on master help sign in
Muse reader tests: accept Blocks instead of Block in round trip test
0ac3512Alexander Krotov
test/Tests/Readers/Muse.hs+2−2
compare with master
unifiedsplit
@@ -39,9 +39,9 @@ makeRoundTrip x = x
39
39
40-- Demand that any AST produced by Muse reader and written by Muse writer can be read back exactly the same way.
40-- Demand that any AST produced by Muse reader and written by Muse writer can be read back exactly the same way.
41-- Currently we remove tables and compare first rewrite to the second.
41-- Currently we remove tables and compare first rewrite to the second.
42−roundTrip :: Block -> Bool
42+roundTrip :: Blocks -> Bool
43roundTrip b = d' == d''
43roundTrip b = d' == d''
44− where d = walk makeRoundTrip $ Pandoc nullMeta [b]
44+ where d = walk makeRoundTrip $ Pandoc nullMeta $ toList b
45 d' = rewrite d
45 d' = rewrite d
46 d'' = rewrite d'
46 d'' = rewrite d'
47 rewrite = amuse . T.pack . (++ "\n") . T.unpack .
47 rewrite = amuse . T.pack . (++ "\n") . T.unpack .