Dokuwiki writer: Add a test for multiblock table cells.

We have to add a new file, because the original table tests don't look
for this.

3 files changed, 19 insertions, 0 deletions

diff --git a/tests/Tests/Old.hs b/tests/Tests/Old.hs
index 256855a1d..8a256b761 100644
--- a/tests/Tests/Old.hs
+++ b/tests/Tests/Old.hs
@@ -128,6 +128,8 @@ tests = [ testGroup "markdown"
           [ testGroup "writer" $ writerTests "dokuwiki"
           , test "inline_formatting" ["-r", "native", "-w", "dokuwiki", "-s"]
             "dokuwiki_inline_formatting.native" "dokuwiki_inline_formatting.dokuwiki"
+          , test "multiblock table" ["-r", "native", "-w", "dokuwiki", "-s"]
+            "dokuwiki_multiblock_table.native" "dokuwiki_multiblock_table.dokuwiki"
           ]
         , testGroup "opml"
           [ test "basic" ["-r", "native", "-w", "opml", "--columns=78", "-s"]
diff --git a/tests/dokuwiki_multiblock_table.dokuwiki b/tests/dokuwiki_multiblock_table.dokuwiki
new file mode 100644
index 000000000..9004b8aee
--- /dev/null
+++ b/tests/dokuwiki_multiblock_table.dokuwiki
@@ -0,0 +1,4 @@
+Sample grid table.
+^ Fruit ^ Price ^ Advantages ^
+| Bananas | $1.34 | built-in wrapper\\ \\ potassium |
+| Oranges | $2.10 | * cures scurvy\\ * tasty |
diff --git a/tests/dokuwiki_multiblock_table.native b/tests/dokuwiki_multiblock_table.native
new file mode 100644
index 000000000..ea6b833db
--- /dev/null
+++ b/tests/dokuwiki_multiblock_table.native
@@ -0,0 +1,13 @@
+[Table [Str "Sample",Space,Str "grid",Space,Str "table."] [AlignDefault,AlignDefault,AlignDefault] [0.2222222222222222,0.2222222222222222,0.2916666666666667]
+ [[Plain [Str "Fruit"]]
+ ,[Plain [Str "Price"]]
+ ,[Plain [Str "Advantages"]]]
+ [[[Para [Str "Bananas"]]
+  ,[Para [Str "$1.34"]]
+  ,[Para [Str "built-in",Space,Str "wrapper"]
+   ,Para [Str "potassium"]]]
+ ,[[Para [Str "Oranges"]]
+  ,[Para [Str "$2.10"]]
+  ,[BulletList
+    [[Plain [Str "cures",Space,Str "scurvy"]]
+    ,[Plain [Str "tasty"]]]]]]]
\ No newline at end of file