فهرست منبع

failing test of named caching call line

Eric Schulte 11 سال پیش
والد
کامیت
93d272b449
1فایلهای تغییر یافته به همراه18 افزوده شده و 0 حذف شده
  1. 18 0
      testing/lisp/test-ob-lob.el

+ 18 - 0
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)