mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 20:37:51 +00:00
tests: adding test for eval'd elisp forms in header arguments
This commit is contained in:
parent
19785d667f
commit
38df64b4f6
|
@ -27,3 +27,17 @@
|
|||
<<noweb-example>>
|
||||
;; noweb-tangle-end
|
||||
#+end_src
|
||||
|
||||
* elisp forms in header arguments
|
||||
:PROPERTIES:
|
||||
:ID: 22d67284-bf14-4cdc-8319-f4bd876829d7
|
||||
:var: prop=(+ 2 2)
|
||||
:END:
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
prop
|
||||
#+end_src
|
||||
|
||||
#+results:
|
||||
: 4
|
||||
|
||||
|
|
|
@ -19,6 +19,7 @@
|
|||
(require 'org-test)
|
||||
(require 'org-test-ob-consts))
|
||||
|
||||
;;; ob-get-src-block-info
|
||||
(ert-deftest test-org-babel-get-src-block-info-language ()
|
||||
(org-test-at-marker nil org-test-file-ob-anchor
|
||||
(let ((info (org-babel-get-src-block-info)))
|
||||
|
@ -35,6 +36,13 @@
|
|||
(let ((info (org-babel-get-src-block-info)))
|
||||
(should (string= "no" (cdr (assoc :tangle (nth 2 info))))))))
|
||||
|
||||
;;; elisp forms in header arguments
|
||||
(ert-deftest test-org-babel-elisp-in-header-arguments ()
|
||||
;; at the babel.org:elisp-forms-in-header-arguments header
|
||||
(org-test-at-id "22d67284-bf14-4cdc-8319-f4bd876829d7"
|
||||
(org-babel-next-src-block)
|
||||
(let ((info (org-babel-get-src-block-info)))
|
||||
(should (= 4 (org-babel-execute-src-block))))))
|
||||
|
||||
(provide 'test-ob)
|
||||
|
||||
|
|
Loading…
Reference in a new issue