diff options
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Readers/HTML.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test/Tests/Readers/HTML.hs b/test/Tests/Readers/HTML.hs index f20b20b57..c359288e8 100644 --- a/test/Tests/Readers/HTML.hs +++ b/test/Tests/Readers/HTML.hs @@ -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 |