diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-05-06 09:00:10 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-05-06 09:00:10 -0700 |
| commit | 5999a36f07f62a062644e195506a83fe4b058e01 (patch) | |
| tree | acbb40b7183277915d9e5ed9cc0fdd200b34ca51 /tests/Tests | |
| parent | ef8de35505833938c70253fb11659400fc3e18fb (diff) | |
| parent | 71bd4fb2b3778d3906a63938625ebcadca40b8c8 (diff) | |
| download | pandoc-5999a36f07f62a062644e195506a83fe4b058e01.tar.gz | |
Merge pull request #1280 from tarleb/org-inline-blocks
Org reader: Read inline code blocks
Diffstat (limited to 'tests/Tests')
| -rw-r--r-- | tests/Tests/Readers/Org.hs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs index 78684f0f1..949976aba 100644 --- a/tests/Tests/Readers/Org.hs +++ b/tests/Tests/Readers/Org.hs @@ -207,6 +207,24 @@ tests = "<<anchor>> Link here later." =?> (para $ spanWith ("anchor", [], []) mempty <> "Link" <> space <> "here" <> space <> "later.") + + , "Inline code block" =: + "src_emacs-lisp{(message \"Hello\")}" =?> + (para $ codeWith ( "" + , [ "commonlisp", "rundoc-block" ] + , [ ("rundoc-language", "emacs-lisp") ]) + "(message \"Hello\")") + + , "Inline code block with arguments" =: + "src_sh[:export both :results output]{echo 'Hello, World'}" =?> + (para $ codeWith ( "" + , [ "bash", "rundoc-block" ] + , [ ("rundoc-language", "sh") + , ("rundoc-export", "both") + , ("rundoc-results", "output") + ] + ) + "echo 'Hello, World'") ] , testGroup "Meta Information" $ |