forked from mirrors/org-mode
failing test of named caching call line
This commit is contained in:
parent
48c952f23c
commit
93d272b449
|
@ -113,6 +113,24 @@ for export
|
||||||
(setq temporary-value-for-test (not temporary-value-for-test))
|
(setq temporary-value-for-test (not temporary-value-for-test))
|
||||||
#+end_src
|
#+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
|
#+call: call-line-caching-example(\"qux\") :cache yes
|
||||||
"
|
"
|
||||||
(goto-char (point-max)) (forward-line -1)
|
(goto-char (point-max)) (forward-line -1)
|
||||||
|
|
Loading…
Reference in New Issue