From d0665bb32268d92f501f1ce2f604bc0827fd598a Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Tue, 31 Jul 2012 08:18:50 -0600 Subject: [PATCH] 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. --- testing/lisp/test-ob-sh.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/testing/lisp/test-ob-sh.el b/testing/lisp/test-ob-sh.el index 297c86e13..d10486a75 100644 --- a/testing/lisp/test-ob-sh.el +++ b/testing/lisp/test-ob-sh.el @@ -25,6 +25,13 @@ unless the body of the tangled block does." returned empty results." (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) ;;; test-ob-sh.el ends here