diff --git a/testing/examples/babel.org b/testing/examples/babel.org
index 491b6c5ab..c1ae57d7d 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 38696a056..69859f3de 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)