diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2014-01-18 13:20:43 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2014-01-18 13:40:57 -0700 |
commit | 93d272b4498d6f2893c1f8583adcf29f350c58bb (patch) | |
tree | a330f80e2e7883203846db39e94df4abc115873f | |
parent | 48c952f23c83d1348c556d46cd233354c8c5ffa4 (diff) | |
download | org-mode-93d272b4498d6f2893c1f8583adcf29f350c58bb.tar.gz |
failing test of named caching call line
-rw-r--r-- | testing/lisp/test-ob-lob.el | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/testing/lisp/test-ob-lob.el b/testing/lisp/test-ob-lob.el index db01416..3a4411d 100644 --- a/testing/lisp/test-ob-lob.el +++ b/testing/lisp/test-ob-lob.el @@ -121,6 +121,24 @@ for export ;; 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) + ;; 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)))))) + (provide 'test-ob-lob) ;;; test-ob-lob.el ends here |