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)
|
||||
(should (search-forward (format "[[file:%s]]" file) nil nil))
|
||||
(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
|
||||
(delete-file file)
|
||||
(when (get-buffer "*Org-Babel Error Output*")
|
||||
|
@ -99,7 +99,7 @@ sombrero;
|
|||
(should (get-buffer "*Inferior Octave*"))
|
||||
(should (search-forward (format "[[file:%s]]" file) nil nil))
|
||||
(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
|
||||
(delete-file file)
|
||||
(let (kill-buffer-query-functions kill-buffer-hook)
|
||||
|
@ -119,7 +119,7 @@ sombrero;
|
|||
(org-babel-execute-src-block)
|
||||
(should (search-forward (format "[[file:%s]]" file) nil nil))
|
||||
(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
|
||||
(delete-file file)
|
||||
(when (get-buffer "*Org-Babel Error Output*")
|
||||
|
|
Loading…
Reference in a new issue