summaryrefslogtreecommitdiff
path: root/tests/Tests/Readers
diff options
context:
space:
mode:
authorAlbert Krewinkel <albert@zeitkraut.de>2016-10-30 20:23:53 +0100
committerAlbert Krewinkel <albert@zeitkraut.de>2016-10-30 20:23:53 +0100
commit4f06e6c4455b5b6be21416e9736a70f8d2b1ff1c (patch)
tree1ec45c3e3a11a67b8cd8ae35373bf3c9f6ae47e3 /tests/Tests/Readers
parent63bdc5d08f81365db15b1d9ae11c1d6af72ae35e (diff)
Org reader: support `ATTR_HTML` for special blocks
Special blocks (i.e. blocks with unrecognized names) can be prefixed with an `ATTR_HTML` block attribute. The attributes defined in that meta-directive are added to the `Div` which is used to represent the special block. Closes: #3182
Diffstat (limited to 'tests/Tests/Readers')
-rw-r--r--tests/Tests/Readers/Org.hs9
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs
index 3aa38ff0c..1b536551c 100644
--- a/tests/Tests/Readers/Org.hs
+++ b/tests/Tests/Readers/Org.hs
@@ -1625,6 +1625,15 @@ tests =
] =?>
rawBlock "html" "\n<span>boring</span>\n\n"
+ , "Accept `ATTR_HTML` attributes for generic block" =:
+ unlines [ "#+ATTR_HTML: :title hello, world :id test :class fun code"
+ , "#+BEGIN_TEST"
+ , "nonsense"
+ , "#+END_TEST"
+ ] =?>
+ let attr = ("test", ["fun", "code", "TEST"], [("title", "hello, world")])
+ in divWith attr (para "nonsense")
+
, "Non-letter chars in source block parameters" =:
unlines [ "#+BEGIN_SRC C :tangle xxxx.c :city Z├╝rich"
, "code body"