testing/lisp/test-ob-R.el

   1 ;;; test-ob-R.el --- tests for ob-R.el
   2
   3 ;; Copyright (c) 2011-2012 Eric Schulte
   4 ;; Authors: Eric Schulte
   5
   6 ;; Released under the GNU General Public License version 3
   7 ;; see: http://www.gnu.org/licenses/gpl-3.0.html
   8
   9 ;;; Code:
  10 (org-test-for-executable "R")
  11 (unless (featurep 'ess)
  12   (signal 'missing-test-dependency "ESS"))
  13 (unless (featurep 'ob-R)
  14   (signal 'missing-test-dependency "Support for R code blocks"))
  15
  16 (ert-deftest test-ob-R/simple-session ()
  17   (let ((ess-ask-for-ess-directory nil))
  18     (org-test-with-temp-text
  19      "#+begin_src R :session R\n  paste(\"Yep!\")\n#+end_src\n"
  20      (should (string= "Yep!" (org-babel-execute-src-block))))))
  21
  22 (ert-deftest test-ob-R/colnames-yes-header-argument ()
  23   (org-test-with-temp-text "#+name: eg
  24 | col |
  25 |-----|
  26 | a   |
  27 | b   |
  28
  29 #+header: :colnames yes
  30 #+header: :var x = eg
  31 #+begin_src R
  32 x
  33 #+end_src"
  34     (org-babel-next-src-block)
  35     (should (equal '(("col") hline ("a") ("b"))
  36                    (org-babel-execute-src-block)))))
  37
  38 (ert-deftest test-ob-R/colnames-nil-header-argument ()
  39   (org-test-with-temp-text "#+name: eg
  40 | col |
  41 |-----|
  42 | a   |
  43 | b   |
  44
  45 #+header: :colnames nil
  46 #+header: :var x = eg
  47 #+begin_src R
  48 x
  49 #+end_src"
  50     (org-babel-next-src-block)
  51     (should (equal '(("col") hline ("a") ("b"))
  52                    (org-babel-execute-src-block)))))
  53
  54 (ert-deftest test-ob-R/colnames-no-header-argument ()
  55   (org-test-with-temp-text "#+name: eg
  56 | col |
  57 |-----|
  58 | a   |
  59 | b   |
  60
  61 #+header: :colnames no
  62 #+header: :var x = eg
  63 #+begin_src R
  64 x
  65 #+end_src"
  66     (org-babel-next-src-block)
  67     (should (equal '(("col") ("a") ("b"))
  68                    (org-babel-execute-src-block)))))
  69
  70 (provide 'test-ob-R)
  71
  72 ;;; test-ob-R.el ends here