aboutsummaryrefslogtreecommitdiff
path: root/test/Tests
diff options
context:
space:
mode:
authorAlbert Krewinkel <albert@zeitkraut.de>2019-12-18 21:57:14 +0100
committerAlbert Krewinkel <albert@zeitkraut.de>2019-12-18 22:28:26 +0100
commit5bd2d28b1946baf37ba880578b3b01d9b36a36d3 (patch)
tree57baca31e0c13515ded2dbe37ead8de599fc3bfa /test/Tests
parent89bbfa189199b1abd67b5ab21b967b1fa049fbb3 (diff)
downloadpandoc-5bd2d28b1946baf37ba880578b3b01d9b36a36d3.tar.gz
Org reader: wrap named table in div, using name as id
Closes: #5984
Diffstat (limited to 'test/Tests')
-rw-r--r--test/Tests/Readers/Org/Block/Table.hs7
1 files changed, 7 insertions, 0 deletions
diff --git a/test/Tests/Readers/Org/Block/Table.hs b/test/Tests/Readers/Org/Block/Table.hs
index c8b0a1375..102623735 100644
--- a/test/Tests/Readers/Org/Block/Table.hs
+++ b/test/Tests/Readers/Org/Block/Table.hs
@@ -160,4 +160,11 @@ tests =
[ [ plain "x", plain "6" ]
, [ plain "9", plain "42" ]
]
+
+ , "named table" =:
+ T.unlines [ "#+NAME: x-marks-the-spot"
+ , "| x |"
+ ] =?>
+ divWith ("x-marks-the-spot", mempty, mempty)
+ (simpleTable' 1 mempty [ [ plain "x" ] ])
]