diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-08-17 16:01:44 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-08-17 16:01:44 -0700 |
commit | d1444b4ecdd7bc2f3b6180ceb2635d51382c4ab8 (patch) | |
tree | 516291b660fd34b98bb1ff825936310c6974ae1f /test/Tests/Readers/RST.hs | |
parent | b1f6fb4af5e6df40fe72d6224512f60be082a8cd (diff) | |
download | pandoc-d1444b4ecdd7bc2f3b6180ceb2635d51382c4ab8.tar.gz |
RST reader/writer: support unknown interpreted text roles...
...by parsing them as Span with "role" attributes.
This way they can be manipulated in the AST.
Closes #3407.
Diffstat (limited to 'test/Tests/Readers/RST.hs')
-rw-r--r-- | test/Tests/Readers/RST.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/test/Tests/Readers/RST.hs b/test/Tests/Readers/RST.hs index cbca1564f..61a2673f5 100644 --- a/test/Tests/Readers/RST.hs +++ b/test/Tests/Readers/RST.hs @@ -162,7 +162,8 @@ tests = [ "line block with blank line" =: , "role with recursive inheritance" =: ".. role:: haskell(code)\n.. role:: lhs(haskell)\n\n:lhs:`text`" =?> para (codeWith ("", ["lhs", "haskell", "sourceCode"], []) "text") - , "unknown role" =: ":unknown:`text`" =?> para (str "text") + , "unknown role" =: ":unknown:`text`" =?> + para (spanWith ("",[],[("role","unknown")]) (str "text")) ] , testGroup "footnotes" [ "remove space before note" =: T.unlines |