diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2017-04-23 13:58:16 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2017-04-23 13:58:16 +0200 |
| commit | 04cb602d79df5ee386107c27107cb9c8d09b1665 (patch) | |
| tree | 17dc44041413f00a72e14211b2075cd26984a198 /test/Tests/Readers | |
| parent | 2e43e27e5c6374c0cbc3ad690f04ec95bbac1f91 (diff) | |
Org reader: allow multi-word arguments to src block params
The reader now correctly parses src block parameter list even if
parameter arguments contain multiple words.
Closes: #3477
Diffstat (limited to 'test/Tests/Readers')
| -rw-r--r-- | test/Tests/Readers/Org.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test/Tests/Readers/Org.hs b/test/Tests/Readers/Org.hs index 55fa00d1a..7a7960396 100644 --- a/test/Tests/Readers/Org.hs +++ b/test/Tests/Readers/Org.hs @@ -1559,6 +1559,15 @@ tests = params = [ ("data-org-language", "sh"), ("startFrom", "10") ] in codeBlockWith ("", classes, params) ":() { :|:& };:\n" + , "Source block with multi-word parameter values" =: + unlines [ "#+BEGIN_SRC dot :cmdline -Kdot -Tpng " + , "digraph { id [label=\"ID\"] }" + , "#+END_SRC" + ] =?> + let classes = [ "dot" ] + params = [ ("cmdline", "-Kdot -Tpng") ] + in codeBlockWith ("", classes, params) "digraph { id [label=\"ID\"] }\n" + , "Example block" =: unlines [ "#+begin_example" , "A chosen representation of" |