mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

test-ob-shell.el: Refactor test-ob-shell/session 

* testing/lisp/test-ob-shell.el (ob-shell/session): Split
`ob-shell/session' into
`test-ob-shell/session-single-return-returns-string' and
`test-ob-shell/session-multiple-returns-returns-list'.
(ob-shell/session): Rename comint from to test name. On
pass, kill process and remove process buffer.
This commit is contained in:
Matt Trzcinski 2022-12-30 11:35:10 -05:00 committed by Matthew Trzcinski
parent 875845de1b
commit 2ddbee5e63
1 changed files with 21 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
testing/lisp/test-ob-shell.el
View File

@ -45,18 +45,28 @@ unless the body of the tangled block does."
(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
ob-comint.el, which was not previously tested."
(let ((res (org-babel-execute:sh "echo 1; echo 2" '((:session . "yes")))))
(should res)
(should (listp res)))
;; Test multi-line input.
(let ((result (org-babel-execute:sh
"if true \n then \n echo yes \n fi"
'((:session . "yes")))))
(ert-deftest test-ob-shell/session-single-return-returns-string ()
"Sessions with a single result should return a string."
(let* ((session-name "test-ob-shell/session-evaluation-single-return-returns-string")
(kill-buffer-query-functions nil)
(result (org-babel-execute:sh
(format "echo %s" session-name)
`((:session . ,session-name)))))
(should result)
(should (string= "yes" result))))
(if (should (string= session-name result))
(kill-buffer session-name))))
(ert-deftest test-ob-shell/session-multiple-returns-returns-list ()
"Sessions with multiple results should return a list."
(let* ((session-name "test-ob-shell/session-multiple-returns-returns-list")
(kill-buffer-query-functions nil)
(result (org-babel-execute:sh
"echo 1; echo 2"
`((:session . ,session-name)))))
(should result)
(should (listp result))
(if (should (equal '((1) (2)) result))
(kill-buffer session-name))))
; A list of tests using the samples in ob-shell-test.org
(ert-deftest ob-shell/generic-uses-no-arrays ()