summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSebastian Miele <sebastian.miele@gmail.com>2019-03-14 19:28:47 +0000
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2019-03-14 22:58:45 +0100
commite96f055ce2ab52738bae9173ca07cb0750abef0e (patch)
tree282eb677b027d998ed81f1ce920ca49522f5aba7
parent83fb091a62d3ac69c6107eb1e2dfd99068d81320 (diff)
downloadorg-mode-e96f055ce2ab52738bae9173ca07cb0750abef0e.tar.gz
ob-emacs-lisp: Test :lexical src block header argument
* testing/lisp/test-ob-emacs-lisp.el (ob-emacs-lisp/dynamic-lexical-execute, ob-emacs-lisp/dynamic-lexical-edit): Add tests that check the correct handling of the :lexical header argument when executing source blocks and when creating editing buffers for source blocks.
-rw-r--r--testing/lisp/test-ob-emacs-lisp.el89
1 files changed, 89 insertions, 0 deletions
diff --git a/testing/lisp/test-ob-emacs-lisp.el b/testing/lisp/test-ob-emacs-lisp.el
index 078cad9..24a373f 100644
--- a/testing/lisp/test-ob-emacs-lisp.el
+++ b/testing/lisp/test-ob-emacs-lisp.el
@@ -76,6 +76,95 @@
(buffer-substring-no-properties (line-beginning-position 2)
(line-end-position 2))))))
+(ert-deftest ob-emacs-lisp/dynamic-lexical-execute ()
+ (cl-flet ((execute (text)
+ (org-test-with-temp-text-in-file text
+ (org-babel-next-src-block)
+ (org-babel-execute-maybe)
+ (re-search-forward "results" nil t)
+ (re-search-forward ": " nil t)
+ (buffer-substring-no-properties (point) (point-at-eol)))))
+
+ (should (string= "dynamic" (execute "
+#+begin_src emacs-lisp :lexical no :results verbatim
+(let ((x 'dynamic)) (funcall (let ((x 'lexical)) (lambda () x))))
+#+end_src")))
+
+ (should (string= "lexical" (execute "
+#+begin_src emacs-lisp :lexical yes :results verbatim
+(let ((x 'dynamic)) (funcall (let ((x 'lexical)) (lambda () x))))
+#+end_src")))
+
+ (should (string= "dynamic" (let ((x 'dynamic)) (execute "
+#+begin_src emacs-lisp :lexical no :results verbatim
+x
+#+end_src"))))
+
+ (should (string= "lexical" (let ((x 'dynamic)) (execute "
+#+begin_src emacs-lisp :lexical '((x . lexical)) :results verbatim
+x
+#+end_src"))))
+
+ ;; Src block execution uses `eval'. As of 2019-02-26, `eval' does
+ ;; not dynamically bind `lexical-binding' to the value of its
+ ;; LEXICAL parameter. Hence, (eval 'lexical-binding LEXICAL)
+ ;; evaluates to the same value that just `lexical-binding'
+ ;; evaluates to, even if LEXICAL is different. So tests like the
+ ;; following do not work here:
+ ;;
+ ;; (should (string= "t" (execute "
+ ;; #+begin_src emacs-lisp :lexical yes :results verbatim
+ ;; lexical-binding
+ ;; #+end_src")))
+ ;;
+ ;; However, the corresponding test in
+ ;; `ob-emacs-lisp/dynamic-lexical-edit' does work.
+ ))
+
+(ert-deftest ob-emacs-lisp/dynamic-lexical-edit ()
+ (cl-flet ((execute (text)
+ (org-test-with-temp-text-in-file text
+ (org-babel-next-src-block)
+ (org-edit-src-code)
+ (goto-char (point-max))
+ (prog1 (eval-last-sexp 0)
+ (org-edit-src-exit)))))
+
+ (should (eq 'dynamic (execute "
+#+begin_src emacs-lisp :lexical no :results verbatim
+(let ((x 'dynamic)) (funcall (let ((x 'lexical)) (lambda () x))))
+#+end_src")))
+
+ (should (eq 'lexical (execute "
+#+begin_src emacs-lisp :lexical yes :results verbatim
+(let ((x 'dynamic)) (funcall (let ((x 'lexical)) (lambda () x))))
+#+end_src")))
+
+ (should (eq 'dynamic (let ((x 'dynamic)) (execute "
+#+begin_src emacs-lisp :lexical no :results verbatim
+x
+#+end_src"))))
+
+ (should (eq 'lexical (let ((x 'dynamic)) (execute "
+#+begin_src emacs-lisp :lexical '((x . lexical)) :results verbatim
+x
+#+end_src"))))
+
+ (should (equal nil (execute "
+#+begin_src emacs-lisp :lexical no :results verbatim
+lexical-binding
+#+end_src")))
+
+ (should (equal t (execute "
+#+begin_src emacs-lisp :lexical yes :results verbatim
+lexical-binding
+#+end_src")))
+
+ (should (equal '((x . 0)) (execute "
+#+begin_src emacs-lisp :lexical '((x . 0)) :results verbatim
+lexical-binding
+#+end_src")))))
+
(provide 'test-ob-emacs-lisp)
;;; test-ob-emacs-lisp.el ends here