Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

table tests

Browse source
This commit is contained in:
Yan Pashkovsky 2018-11-03 00:26:12 +03:00 • committed by John MacFarlane
parent 165e3bfffc
commit 43a0734f62
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
test/Tests/Readers/Man.hs
View file

@ -106,5 +106,16 @@ tests = [
"cb1"=: "cb1"=:
".nf\naa\n\tbb\n.fi" ".nf\naa\n\tbb\n.fi"
=?> codeBlock "aa\n\tbb" =?> 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"]]
] ]
] ]