branch: externals/org
commit a83edd624b86433978091e2f100a2ddfdca01f57
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@posteo.net>
fixup! ob-shell: Fix multi-line scripts in sessions
---
testing/lisp/test-ob-shell.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/testing/lisp/test-ob-shell.el b/testing/lisp/test-ob-shell.el
index 05c369174c..e25a01c6f7 100644
--- a/testing/lisp/test-ob-shell.el
+++ b/testing/lisp/test-ob-shell.el
@@ -48,9 +48,11 @@ ob-comint.el, which was not previously tested."
(should res)
(should (listp res)))
;; Test multi-line input.
- (let ((res (org-babel-execute:sh "if true; then\necho \"yes\"\nfi"
'((:session . "yes")))))
- (should res)
- (should (string= "yes" res))))
+ (let ((result (org-babel-execute:sh
+ "if true \n then \n echo yes \n fi"
+ '((:session . "yes")))))
+ (should result)
+ (should (string= "yes" result))))
; A list of tests using the samples in ob-shell-test.org
(ert-deftest ob-shell/generic-uses-no-arrays ()
