From 43a0734f623e8ed782500e58269510a04fcf7c3f Mon Sep 17 00:00:00 2001
From: Yan Pashkovsky <yanpaso@gmail.com>
Date: Sat, 3 Nov 2018 00:26:12 +0300
Subject: [PATCH] table tests

---
 test/Tests/Readers/Man.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)

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"]]
     ]
   ]