test-ob-R.el 670 B

1234567891011121314151617181920212223242526
  1. ;;; test-ob-R.el --- tests for ob-R.el
  2. ;; Copyright (c) 2011 Eric Schulte
  3. ;; Authors: Eric Schulte
  4. ;; Released under the GNU General Public License version 3
  5. ;; see: http://www.gnu.org/licenses/gpl-3.0.html
  6. (let ((load-path (cons (expand-file-name
  7. ".." (file-name-directory
  8. (or load-file-name buffer-file-name)))
  9. load-path)))
  10. (require 'org-test)
  11. (require 'org-test-ob-consts))
  12. (require 'ob-R)
  13. (ert-deftest test-ob-R/simple-session ()
  14. (org-test-with-temp-text
  15. "#+begin_src R :session R\n paste(\"Yep!\")\n#+end_src\n"
  16. (should (string= "Yep!" (org-babel-execute-src-block)))))
  17. (provide 'test-ob-R)
  18. ;;; test-ob-R.el ends here