diff options
| -rw-r--r-- | test/Tests/Readers/Man.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test/Tests/Readers/Man.hs b/test/Tests/Readers/Man.hs index d58a59dae..e7d67e575 100644 --- a/test/Tests/Readers/Man.hs +++ b/test/Tests/Readers/Man.hs @@ -106,5 +106,16 @@ tests = [ "cb1"=: ".nf\naa\n\tbb\n.fi" =?> codeBlock "aa\n\tbb" + ], + testGroup "Tables" [ + "t1" =: + ".TS\nallbox;\nl l l.\na\tb\tc\nd\te\tf\n.TE" + =?> table mempty (replicate 3 (AlignLeft, 0.0)) [] [ + 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, 0.0)] [] [[plain $ text "a b c d"], [plain $ str "f"]] ] ] |