diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2020-09-12 20:44:15 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2020-09-12 21:49:01 +0200 |
| commit | a400d0dc623a2f08d7470788855e880291d2f222 (patch) | |
| tree | 675870cd727d57308f54ff599819a42f51404c4b /test/Tests/Old.hs | |
| parent | 22babd5382c21d32e9d73984c5d5ff3d83ba715b (diff) | |
| download | pandoc-a400d0dc623a2f08d7470788855e880291d2f222.tar.gz | |
HTML writer: render table footers if present
Part of: #6314
Diffstat (limited to 'test/Tests/Old.hs')
| -rw-r--r-- | test/Tests/Old.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/test/Tests/Old.hs b/test/Tests/Old.hs index 9ae10261e..ba6947eda 100644 --- a/test/Tests/Old.hs +++ b/test/Tests/Old.hs @@ -267,12 +267,13 @@ writerTests pandocPath format extendedWriterTests :: FilePath -> String -> [TestTree] extendedWriterTests pandocPath format = writerTests pandocPath format ++ - [ test pandocPath - "tables" - opts - ("tables" </> "planets.native") - ("tables" </> "planets" <.> format) - ] + let testForTable name = + test pandocPath + (name ++ " table") + opts + ("tables" </> name <.> "native") + ("tables" </> name <.> format) + in map testForTable ["planets", "nordics"] where opts = ["-r", "native", "-w", format, "--columns=78", "--variable", "pandoc-version="] |