diff options
| author | Eric Schulte <schulte.eric@gmail.com> | 2010-10-14 07:32:21 -0600 |
|---|---|---|
| committer | Eric Schulte <schulte.eric@gmail.com> | 2010-10-14 07:32:21 -0600 |
| commit | 38df64b4f634aa0371d62bd1ccc21cf90d55abf0 (patch) | |
| tree | c7ea34adf64e0c8544354169939aab05b947cd27 | |
| parent | 19785d667f284a6dd66e5350f7adcaaed7c7f043 (diff) | |
| download | org-mode-38df64b4f634aa0371d62bd1ccc21cf90d55abf0.tar.gz | |
tests: adding test for eval'd elisp forms in header arguments
| -rw-r--r-- | testing/examples/babel.org | 14 | ||||
| -rw-r--r-- | testing/lisp/test-ob.el | 8 |
2 files changed, 22 insertions, 0 deletions
diff --git a/testing/examples/babel.org b/testing/examples/babel.org index 491b6c5..c1ae57d 100644 --- a/testing/examples/babel.org +++ b/testing/examples/babel.org @@ -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 + diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el index 38696a0..69859f3 100644 --- a/testing/lisp/test-ob.el +++ b/testing/lisp/test-ob.el @@ -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) |