mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 11:02:53 +00:00
test-ob-shell.el: Split test-ob-shell/dont-error-on-empty-results
* testing/lisp/test-ob-shell.el (test-ob-shell/dont-error-on-empty-results): Explicitly test handling of empty results. (test-ob-shell/dont-error-on-babel-error): Explicitly test handling of Babel errors. On pass, remove buffers created during test. Original test conflated empty results (a valid Babel return) and Babel errors.
This commit is contained in:
parent
597ecaa5c1
commit
875845de1b
|
@ -34,12 +34,16 @@ unless the body of the tangled block does."
|
|||
(should-not (string-match "^[\n\r][\t ]*[\n\r]"
|
||||
(org-babel-expand-body:generic "echo 2" '())))
|
||||
(should (string-match "^[\n\r][\t ]*[\n\r]"
|
||||
(org-babel-expand-body:generic "\n\necho 2" '()))))
|
||||
(org-babel-expand-body:generic "\n\necho 2" '()))))
|
||||
|
||||
(ert-deftest test-ob-shell/dont-error-on-empty-results ()
|
||||
"Was throwing an elisp error when shell blocks threw errors and
|
||||
returned empty results."
|
||||
(should (null (org-babel-execute:sh "ls NoSuchFileOrDirectory.txt" nil))))
|
||||
"Empty results should not cause a Lisp error."
|
||||
(should (null (org-babel-execute:sh "" nil))))
|
||||
|
||||
(ert-deftest test-ob-shell/dont-error-on-babel-error ()
|
||||
"Errors within Babel execution should not cause Lisp errors."
|
||||
(if (should (null (org-babel-execute:sh "ls NoSuchFileOrDirectory.txt" nil)))
|
||||
(kill-buffer "*Org-Babel Error Output*")))
|
||||
|
||||
(ert-deftest test-ob-shell/session ()
|
||||
"This also tests `org-babel-comint-with-output' in
|
||||
|
|
Loading…
Reference in a new issue