forked from mirrors/org-mode
Merge branch 'bugfix'
This commit is contained in:
commit
4166f55da1
|
@ -78,8 +78,7 @@ sombrero;
|
||||||
file)
|
file)
|
||||||
(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 (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*")
|
||||||
|
@ -98,8 +97,7 @@ sombrero;
|
||||||
(org-babel-execute-src-block)
|
(org-babel-execute-src-block)
|
||||||
(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 (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)
|
||||||
|
|
Loading…
Reference in a new issue