diff options
Diffstat (limited to 'test/Tests/Readers/Man.hs')
-rw-r--r-- | test/Tests/Readers/Man.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/test/Tests/Readers/Man.hs b/test/Tests/Readers/Man.hs index f358630bb..7623dcb71 100644 --- a/test/Tests/Readers/Man.hs +++ b/test/Tests/Readers/Man.hs @@ -122,12 +122,16 @@ tests = [ testGroup "Tables" [ "t1" =: ".TS\nallbox;\nl l l.\na\tb\tc\nd\te\tf\n.TE" - =?> table mempty (replicate 3 (AlignLeft, Nothing)) [] [ + =?> table mempty (replicate 3 (AlignLeft, ColWidthDefault)) [] [ map (plain . str ) ["a", "b", "c"], map (plain . str ) ["d", "e", "f"] ], "longcell" =: ".TS\n;\nr.\nT{\na\nb\nc d\nT}\nf\n.TE" - =?> table mempty [(AlignRight, Nothing)] [] [[plain $ text "a b c d"], [plain $ str "f"]] + =?> table + mempty + [(AlignRight, ColWidthDefault)] + [] + [[plain $ text "a b c d"], [plain $ str "f"]] ] ] |