From 5bd2d28b1946baf37ba880578b3b01d9b36a36d3 Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Wed, 18 Dec 2019 21:57:14 +0100
Subject: Org reader: wrap named table in div, using name as id

Closes: #5984
---
 test/Tests/Readers/Org/Block/Table.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'test/Tests/Readers/Org')

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