a test exercising org-babel-comint-with-output

* testing/lisp/test-ob-sh.el (test-ob-sh/session): Shell session
  execution uses this function which was not previously tested.
This commit is contained in:
Eric Schulte 2012-07-31 08:18:50 -06:00
parent 2817f68c17
commit d0665bb322
1 changed files with 7 additions and 0 deletions

View File

@ -25,6 +25,13 @@ unless the body of the tangled block does."
returned empty results." returned empty results."
(should (null (org-babel-execute:sh "ls NoSuchFileOrDirectory.txt" nil)))) (should (null (org-babel-execute:sh "ls NoSuchFileOrDirectory.txt" nil))))
(ert-deftest test-ob-sh/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))))
(provide 'test-ob-sh) (provide 'test-ob-sh)
;;; test-ob-sh.el ends here ;;; test-ob-sh.el ends here