ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
org-mode/testing/lisp/test-ob-R.el

78 lines
1.7 KiB
EmacsLisp
Raw Normal View History

fix leftover cruft in test-ob-R.el
2011-09-21 15:31:38 -04: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 08:57:07 -04:00
Manually revert back to commit e85080. This fixes a wrong merge that should not have happened: commit 7e903a merges the master branch into the maint branch, while we really want to keep the maint branch a bugfix-only branch. This commit reverts back the maint branch to its state before merging the master branch. From there, we will fix remaining problems with the maint branch (e.g. copyright issues) then release this maint branch as Org-mode 7.8.05.
2012-03-17 09:34:01 -04:00
;; Copyright (c) 2011 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 08:57:07 -04:00
;; Authors: Eric Schulte
;; Released under the GNU General Public License version 3
;; see: http://www.gnu.org/licenses/gpl-3.0.html
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 18:34:43 -04: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 14:30:25 -05:00
(signal 'missing-test-dependency "ESS"))
Manually revert back to commit e85080. This fixes a wrong merge that should not have happened: commit 7e903a merges the master branch into the maint branch, while we really want to keep the maint branch a bugfix-only branch. This commit reverts back the maint branch to its state before merging the master branch. From there, we will fix remaining problems with the maint branch (e.g. copyright issues) then release this maint branch as Org-mode 7.8.05.
2012-03-17 09:34:01 -04:00
(let ((load-path (cons (expand-file-name
".." (file-name-directory
(or load-file-name buffer-file-name)))
load-path)))
(require 'org-test)
(require 'org-test-ob-consts))
(require '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 08:57:07 -04:00
(ert-deftest test-ob-R/simple-session ()
(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)))))
tests for the colnames header argument
2011-11-28 03:55:28 -05: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 15:31:38 -04: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 08:57:07 -04:00
fix leftover cruft in test-ob-R.el
2011-09-21 15:31:38 -04:00
;;; test-ob-R.el ends here