forked from mirrors/org-mode
I started from the 78ec8e commit then cherry-picked and squashed commits that have been done in master since then, except the bad commits that overwrote the tree (in master) with the tree in maint. This commit also bumps the version number to 7.8.06. The only "fix" that was made between 78ec8e and the previous commit is e0072f which has been reported to break stuff.
31 lines
989 B
EmacsLisp
31 lines
989 B
EmacsLisp
;;; test-ob-sh.el
|
|
|
|
;; Copyright (c) 2010-2012 Eric Schulte
|
|
;; Authors: Eric Schulte
|
|
|
|
;; Released under the GNU General Public License version 3
|
|
;; see: http://www.gnu.org/licenses/gpl-3.0.html
|
|
|
|
;; Template test file for Org-mode tests
|
|
|
|
;;; Code:
|
|
(unless (featurep 'ob-sh)
|
|
(signal 'missing-test-dependency "Support for Sh code blocks"))
|
|
|
|
(ert-deftest test-ob-sh/dont-insert-spaces-on-expanded-bodies ()
|
|
"Expanded shell bodies should not start with a blank line
|
|
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" '()))))
|
|
|
|
(ert-deftest test-ob-sh/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))))
|
|
|
|
(provide 'test-ob-sh)
|
|
|
|
;;; test-ob-sh.el ends here
|