Merge branch 'bugfix'

This commit is contained in:
Ihor Radchenko 2023-01-23 13:28:46 +03:00
commit 4166f55da1
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 2 additions and 4 deletions

View File

@ -78,8 +78,7 @@ sombrero;
file)
(org-babel-execute-src-block)
(should (search-forward (format "[[file:%s]]" file) nil nil))
(should (file-readable-p file))
(should-not (buffer-live-p (get-buffer "*Org-Babel Error Output*"))))
(should (file-readable-p file)))
;; clean-up
(delete-file file)
(when (get-buffer "*Org-Babel Error Output*")
@ -98,8 +97,7 @@ sombrero;
(org-babel-execute-src-block)
(should (get-buffer "*Inferior Octave*"))
(should (search-forward (format "[[file:%s]]" file) nil nil))
(should (file-readable-p file))
(should-not (buffer-live-p (get-buffer "*Org-Babel Error Output*"))))
(should (file-readable-p file)))
;; clean-up
(delete-file file)
(let (kill-buffer-query-functions kill-buffer-hook)