Fixed round-trip HTML tests.

Exclude tables with cells with line breaks because they don't
currently round-trip.  (Table goes from being simple to having
explicit widths.)
This commit is contained in:
John MacFarlane
2020-04-18 20:57:28 -07:00
parent 671bb42c43
commit 573214a06a
+5
View File
@@ -36,11 +36,16 @@ makeRoundTrip :: Block -> Block
makeRoundTrip CodeBlock{} = Para [Str "code block was here"]
makeRoundTrip LineBlock{} = Para [Str "line block was here"]
makeRoundTrip RawBlock{} = Para [Str "raw block was here"]
makeRoundTrip b@Table{} = walk rmLineBreaks b
makeRoundTrip (Div attr bs) = Div attr $ filter (not . isHeaderBlock) bs
-- avoids round-trip failures related to makeSections
-- e.g. with [Div ("loc",[],[("a","11"),("b_2","a b c")]) [Header 3 ("",[],[]) []]]
makeRoundTrip x = x
rmLineBreaks :: Inline -> Inline
rmLineBreaks LineBreak = SoftBreak
rmLineBreaks x = x
removeRawInlines :: Inline -> Inline
removeRawInlines RawInline{} = Str "raw inline was here"
removeRawInlines x = x