1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192 |
- (org-test-for-executable "sh")
- (unless (featurep 'ob-shell)
- (signal 'missing-test-dependency "Support for Shell code blocks"))
- (ert-deftest test-ob-shell/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-shell/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))))
- (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))))
- (ert-deftest ob-shell/generic-uses-no-arrays ()
- "No arrays for generic"
- (org-test-at-id "0ba56632-8dc1-405c-a083-c204bae477cf"
- (org-babel-next-src-block)
- (should (equal "one two three" (org-babel-execute-src-block)))))
- (ert-deftest ob-shell/bash-uses-arrays ()
- "Bash arrays"
- (org-test-at-id "0ba56632-8dc1-405c-a083-c204bae477cf"
- (org-babel-next-src-block 2)
- (should (equal "one" (org-babel-execute-src-block)))))
- (ert-deftest ob-shell/generic-uses-no-assoc-arrays ()
- "No associative arrays for generic"
- (org-test-at-id "bec1a5b0-4619-4450-a8c0-2a746b44bf8d"
- (org-babel-next-src-block)
- (should (equal "first one second two third three"
- (org-babel-execute-src-block)))))
- (ert-deftest ob-shell/bash-uses-assoc-arrays ()
- "Bash associative arrays"
- (org-test-at-id "bec1a5b0-4619-4450-a8c0-2a746b44bf8d"
- (org-babel-next-src-block 2)
- (should (equal "two" (org-babel-execute-src-block)))))
- (ert-deftest ob-shell/generic-uses-no-assoc-arrays ()
- "No associative arrays for generic"
- (org-test-at-id "82320a48-3409-49d7-85c9-5de1c6d3ff87"
- (org-babel-next-src-block)
- (should (equal "bread 2 kg spaghetti 20 cm milk 50 dl"
- (org-babel-execute-src-block)))))
- (ert-deftest ob-shell/bash-uses-assoc-arrays ()
- "Bash associative arrays as strings for the row"
- (org-test-at-id "82320a48-3409-49d7-85c9-5de1c6d3ff87"
- (org-babel-next-src-block 2)
- (should (equal "20 cm" (org-babel-execute-src-block)))))
- (provide 'test-ob-shell)
|