forked from mirrors/org-mode
tests: more thorough testing of inline call lines -- passing all tests
This commit is contained in:
parent
7cfca9a969
commit
328202cf62
|
@ -1,4 +1,5 @@
|
|||
#+Title: a collection of examples for Babel tests
|
||||
#+OPTIONS: ^:nil
|
||||
|
||||
* =:noweb= header argument expansion
|
||||
:PROPERTIES:
|
||||
|
@ -152,6 +153,8 @@
|
|||
#+call: echo[:var input="testing"]() :results vector
|
||||
#+call: echo("testing")
|
||||
#+call: echo("testing") :results vector
|
||||
This is an inline call call_echo(input="testing") embedded in prose.
|
||||
This is an inline call call_echo(input="testing")[:results vector] embedded in prose.
|
||||
|
||||
* parsing header arguments
|
||||
:PROPERTIES:
|
||||
|
|
|
@ -48,7 +48,13 @@
|
|||
(org-babel-lob-get-info))))
|
||||
(forward-line 1)
|
||||
(should (string= "testing" (caar (org-babel-lob-execute
|
||||
(org-babel-lob-get-info)))))))
|
||||
(org-babel-lob-get-info)))))
|
||||
(forward-line 1) (beginning-of-line) (forward-char 27)
|
||||
(should (string= "testing" (org-babel-lob-execute
|
||||
(org-babel-lob-get-info))))
|
||||
(forward-line 1) (beginning-of-line) (forward-char 27)
|
||||
(should (string= "testing" (caar (org-babel-lob-execute
|
||||
(org-babel-lob-get-info)))))))
|
||||
|
||||
(provide 'test-ob-lob)
|
||||
|
||||
|
|
Loading…
Reference in a new issue