From a400d0dc623a2f08d7470788855e880291d2f222 Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Sat, 12 Sep 2020 20:44:15 +0200
Subject: HTML writer: render table footers if present

Part of: #6314
---
 test/Tests/Old.hs | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'test/Tests/Old.hs')

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="]
-- 
cgit v1.2.3