tests: adding test for eval'd elisp forms in header arguments

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
+

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)