@@ -106,5 +106,16 @@ tests = [
106106 "cb1"=:
107107 ".nf\naa\n\tbb\n.fi"
108108 =?> codeBlock "aa\n\tbb"
109+ ],
110+ testGroup "Tables" [
111+ "t1" =:
112+ ".TS\nallbox;\nl l l.\na\tb\tc\nd\te\tf\n.TE"
113+ =?> table mempty (replicate 3 (AlignLeft, 0.0)) [] [
114+ map (plain . str ) ["a", "b", "c"],
115+ map (plain . str ) ["d", "e", "f"]
116+ ],
117+ "longcell" =:
118+ ".TS\n;\nr.\nT{\na\nb\nc d\nT}\nf\n.TE"
119+ =?> table mempty [(AlignRight, 0.0)] [] [[plain $ text "a b c d"], [plain $ str "f"]]
109120 ]
110121 ]