From 93d272b4498d6f2893c1f8583adcf29f350c58bb Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Sat, 18 Jan 2014 13:20:43 -0700 Subject: [PATCH] failing test of named caching call line --- testing/lisp/test-ob-lob.el | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/testing/lisp/test-ob-lob.el b/testing/lisp/test-ob-lob.el index db0141619..3a4411d51 100644 --- a/testing/lisp/test-ob-lob.el +++ b/testing/lisp/test-ob-lob.el @@ -113,6 +113,24 @@ for export (setq temporary-value-for-test (not temporary-value-for-test)) #+end_src +#+call: call-line-caching-example(\"qux\") :cache yes +" + (goto-char (point-max)) (forward-line -1) + ;; first execution should flip value to t + (should (org-babel-lob-execute (org-babel-lob-get-info))) + ;; if cached, second evaluation will retain the t value + (should (org-babel-lob-execute (org-babel-lob-get-info)))))) + +(ert-deftest test-ob-lob/named-caching-call-line () + (require 'ox) + (let ((temporary-value-for-test nil)) + (org-test-with-temp-text " +#+name: call-line-caching-example +#+begin_src emacs-lisp :var bar=\"baz\" + (setq temporary-value-for-test (not temporary-value-for-test)) +#+end_src + +#+name: call-line-caching-called #+call: call-line-caching-example(\"qux\") :cache yes " (goto-char (point-max)) (forward-line -1)