diff options
| author | Yan Pashkovsky <yanpaso@gmail.com> | 2018-11-03 00:26:12 +0300 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-11-02 22:42:51 -0700 |
| commit | 43a0734f623e8ed782500e58269510a04fcf7c3f (patch) | |
| tree | 77f3690b1b4e36b0316518f0cfe8e94d51f950f8 /test/Tests/Readers | |
| parent | 165e3bfffc9852efb9087bd637a51de34e503696 (diff) | |
| download | pandoc-43a0734f623e8ed782500e58269510a04fcf7c3f.tar.gz | |
table tests
Diffstat (limited to 'test/Tests/Readers')
| -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"]] ] ] |