aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2015-10-25 12:10:07 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2015-10-25 12:10:07 -0700
commit45df87cf15b36815c28ea6306a380e673bcd0e68 (patch)
tree2deed0218712961fd84b6a5abf69b2470cd20ad3 /tests
parentf3e559c43c72ef399321abfd5569bb609ba3b6a8 (diff)
parent27a8603278529cf3e1fcf0cdbaf94bc005c5472a (diff)
downloadpandoc-45df87cf15b36815c28ea6306a380e673bcd0e68.tar.gz
Merge pull request #2477 from tarleb/org-toggling-header-args
Org reader: allow toggling header args
Diffstat (limited to 'tests')
-rw-r--r--tests/Tests/Readers/Org.hs19
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs
index 2d23eaebf..66f284b28 100644
--- a/tests/Tests/Readers/Org.hs
+++ b/tests/Tests/Readers/Org.hs
@@ -264,6 +264,16 @@ tests =
)
"echo 'Hello, World'")
+ , "Inline code block with toggle" =:
+ "src_sh[:toggle]{echo $HOME}" =?>
+ (para $ codeWith ( ""
+ , [ "bash", "rundoc-block" ]
+ , [ ("rundoc-language", "sh")
+ , ("rundoc-toggle", "yes")
+ ]
+ )
+ "echo $HOME")
+
, "Citation" =:
"[@nonexistent]" =?>
let citation = Citation
@@ -1102,6 +1112,15 @@ tests =
, ": 65" ] =?>
rawBlock "html" ""
+ , "Source block with toggling header arguments" =:
+ unlines [ "#+BEGIN_SRC sh :noeval"
+ , "echo $HOME"
+ , "#+END_SRC"
+ ] =?>
+ let classes = [ "bash", "rundoc-block" ]
+ params = [ ("rundoc-language", "sh"), ("rundoc-noeval", "yes") ]
+ in codeBlockWith ("", classes, params) "echo $HOME\n"
+
, "Example block" =:
unlines [ "#+begin_example"
, "A chosen representation of"