mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity
org-mode/testing/lisp/test-ob-R.el

73 lines
1.6 KiB
EmacsLisp
Raw Normal View History

fix leftover cruft in test-ob-R.el
2011-09-21 19:31:38 +00:00
;;; test-ob-R.el --- tests for ob-R.el
adding a file for R tests * testing/lisp/test-ob-R.el (test-ob-R/simple-session): Simple session test.
2011-09-21 12:57:07 +00:00
Fix the master branch. 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.
2012-03-19 20:38:12 +00:00
;; Copyright (c) 2011-2012 Eric Schulte
adding a file for R tests * testing/lisp/test-ob-R.el (test-ob-R/simple-session): Simple session test.
2011-09-21 12:57:07 +00:00
;; Authors: Eric Schulte
;; Released under the GNU General Public License version 3
;; see: http://www.gnu.org/licenses/gpl-3.0.html
Fix the master branch. 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.
2012-03-19 20:38:12 +00:00
;;; Code:
only load those test files for which the required executables are present * testing/org-test.el (org-exe-not-found): An error type used to signal a missing executable (org-test-for-executable): A function used by test files to throw an error if a required executable is not present. (org-test-load): Simply skip files for which the required executables are not present. * testing/lisp/test-ob-R.el: Conditional loading. * testing/lisp/test-ob-awk.el: Conditional loading. * testing/lisp/test-ob-fortran.el: Conditional loading.
2011-09-21 22:34:43 +00:00
(org-test-for-executable "R")
(unless (featurep 'ess)
Indicate tests with missing dependencies by adding a expected failing test * testing/lisp/test-ob-R.el (featurep): Signal missing dependencies with an error rather than a throw. * testing/org-test.el (missing-test-dependency): Define the error signal for missing dependencies. (org-test-for-executable): Signal missing dependencies with an error rather than a throw. (org-test-load): Define an expected failing test for each file with missing dependencies.
2011-11-13 19:30:25 +00:00
(signal 'missing-test-dependency "ESS"))
Fix the master branch. 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.
2012-03-19 20:38:12 +00:00
(unless (featurep 'ob-R)
(signal 'missing-test-dependency "Support for R code blocks"))
adding a file for R tests * testing/lisp/test-ob-R.el (test-ob-R/simple-session): Simple session test.
2011-09-21 12:57:07 +00:00
(ert-deftest test-ob-R/simple-session ()
do not set variables belonging to ESS * lisp/ob-R.el (org-babel-R-initiate-session): Protect against use of unbound variable `ess-ask-for-ess-directory´. The default for this variable is true, so act accordingly if it is found unbound. * lisp/ob-R.el: Remove initialization with `nil´ from `ess-ask-for-ess-directory´ and `ess-local-process-name´. Remove second declaration for `ess-local-process-name´. * testing/lisp/test-ob-R.el (test-ob-R/simple-session): Bind `ess-ask-for-ess-directory´ to nil to facilitate batch testing.
2012-09-23 09:07:18 +00:00
(let ((ess-ask-for-ess-directory nil))
(org-test-with-temp-text
"#+begin_src R :session R\n paste(\"Yep!\")\n#+end_src\n"
(should (string= "Yep!" (org-babel-execute-src-block))))))
adding a file for R tests * testing/lisp/test-ob-R.el (test-ob-R/simple-session): Simple session test.
2011-09-21 12:57:07 +00:00
tests for the colnames header argument
2011-11-28 08:55:28 +00:00
(ert-deftest test-ob-R/colnames-yes-header-argument ()
(org-test-with-temp-text "#+name: eg
| col |
|-----|
| a |
| b |
#+header: :colnames yes
#+header: :var x = eg
#+begin_src R
x
#+end_src"
(org-babel-next-src-block)
(should (equal '(("col") hline ("a") ("b"))
(org-babel-execute-src-block)))))
(ert-deftest test-ob-R/colnames-nil-header-argument ()
(org-test-with-temp-text "#+name: eg
| col |
|-----|
| a |
| b |
#+header: :colnames nil
#+header: :var x = eg
#+begin_src R
x
#+end_src"
(org-babel-next-src-block)
(should (equal '(("col") hline ("a") ("b"))
(org-babel-execute-src-block)))))
(ert-deftest test-ob-R/colnames-no-header-argument ()
(org-test-with-temp-text "#+name: eg
| col |
|-----|
| a |
| b |
#+header: :colnames no
#+header: :var x = eg
#+begin_src R
x
#+end_src"
(org-babel-next-src-block)
(should (equal '(("col") ("a") ("b"))
(org-babel-execute-src-block)))))
fix leftover cruft in test-ob-R.el
2011-09-21 19:31:38 +00:00
(provide 'test-ob-R)
adding a file for R tests * testing/lisp/test-ob-R.el (test-ob-R/simple-session): Simple session test.
2011-09-21 12:57:07 +00:00
fix leftover cruft in test-ob-R.el
2011-09-21 19:31:38 +00:00
;;; test-ob-R.el ends here