tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

failing test of named caching call line

This commit is contained in:
Eric Schulte 2014-01-18 13:20:43 -07:00
parent 48c952f23c
commit 93d272b449
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
testing/lisp/test-ob-lob.el
View File

@ -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)