forked from mirrors/org-mode
test-ob-octave.el: wrap get-buffer in buffer-live-p
* testing/lisp/test-ob-octave.el (ob-octave/graphics-file): (ob-octave/graphics-file-session): (ob-octave/graphics-file-space): Wrap GET-BUFFER in BUFFER-LIVE-P. This ensures that a killed buffer does not cause an incorrect failure of a test. Link: https://orgmode.org/list/87bknh5nva.fsf@localhost
This commit is contained in:
parent
28a9664844
commit
41ebc2e40c
|
@ -79,7 +79,7 @@ sombrero;
|
||||||
(org-babel-execute-src-block)
|
(org-babel-execute-src-block)
|
||||||
(should (search-forward (format "[[file:%s]]" file) nil nil))
|
(should (search-forward (format "[[file:%s]]" file) nil nil))
|
||||||
(should (file-readable-p file))
|
(should (file-readable-p file))
|
||||||
(should-not (get-buffer "*Org-Babel Error Output*")))
|
(should-not (buffer-live-p (get-buffer "*Org-Babel Error Output*"))))
|
||||||
;; clean-up
|
;; clean-up
|
||||||
(delete-file file)
|
(delete-file file)
|
||||||
(when (get-buffer "*Org-Babel Error Output*")
|
(when (get-buffer "*Org-Babel Error Output*")
|
||||||
|
@ -99,7 +99,7 @@ sombrero;
|
||||||
(should (get-buffer "*Inferior Octave*"))
|
(should (get-buffer "*Inferior Octave*"))
|
||||||
(should (search-forward (format "[[file:%s]]" file) nil nil))
|
(should (search-forward (format "[[file:%s]]" file) nil nil))
|
||||||
(should (file-readable-p file))
|
(should (file-readable-p file))
|
||||||
(should-not (get-buffer "*Org-Babel Error Output*")))
|
(should-not (buffer-live-p (get-buffer "*Org-Babel Error Output*"))))
|
||||||
;; clean-up
|
;; clean-up
|
||||||
(delete-file file)
|
(delete-file file)
|
||||||
(let (kill-buffer-query-functions kill-buffer-hook)
|
(let (kill-buffer-query-functions kill-buffer-hook)
|
||||||
|
@ -119,7 +119,7 @@ sombrero;
|
||||||
(org-babel-execute-src-block)
|
(org-babel-execute-src-block)
|
||||||
(should (search-forward (format "[[file:%s]]" file) nil nil))
|
(should (search-forward (format "[[file:%s]]" file) nil nil))
|
||||||
(should (file-readable-p file))
|
(should (file-readable-p file))
|
||||||
(should-not (get-buffer "*Org-Babel Error Output*")))
|
(should-not (buffer-live-p (get-buffer "*Org-Babel Error Output*"))))
|
||||||
;; clean-up
|
;; clean-up
|
||||||
(delete-file file)
|
(delete-file file)
|
||||||
(when (get-buffer "*Org-Babel Error Output*")
|
(when (get-buffer "*Org-Babel Error Output*")
|
||||||
|
|
Loading…
Reference in a new issue