testing/lisp/test-ob-R.el

   1 ;;; test-ob-R.el --- tests for ob-R.el
   2
   3 ;; Copyright (c) 2011 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 (org-test-for-executable "R")
  10 (unless (featurep 'ess)
  11   (throw 'missing-test-dependency "ESS"))
  12
  13 (let ((load-path (cons (expand-file-name
  14                         ".." (file-name-directory
  15                               (or load-file-name buffer-file-name)))
  16                        load-path)))
  17   (require 'org-test)
  18   (require 'org-test-ob-consts))
  19
  20 (require 'ob-R)
  21
  22 (ert-deftest test-ob-R/simple-session ()
  23   (org-test-with-temp-text
  24       "#+begin_src R :session R\n  paste(\"Yep!\")\n#+end_src\n"
  25     (should (string= "Yep!" (org-babel-execute-src-block)))))
  26
  27 (provide 'test-ob-R)
  28
  29 ;;; test-ob-R.el ends here
  30