diff options
Diffstat (limited to 'test')
-rw-r--r-- | test/Tests/Readers/RST.hs | 3 | ||||
-rw-r--r-- | test/command/3407.md | 13 |
2 files changed, 15 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 diff --git a/test/command/3407.md b/test/command/3407.md new file mode 100644 index 000000000..3160d1263 --- /dev/null +++ b/test/command/3407.md @@ -0,0 +1,13 @@ +``` +% pandoc -f native -t rst +[Para [Span ("",[],[("role","foo")]) [Str "text"]]] +^D +:foo:`text` +``` + +``` +% pandoc -f rst -t native +:foo:`text` +^D +[Para [Span ("",[],[("role","foo")]) [Str "text"]]] +``` |