123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100 |
- (org-test-for-executable "R")
- (unless (featurep 'ess)
- (signal 'missing-test-dependency "ESS"))
- (unless (featurep 'ob-R)
- (signal 'missing-test-dependency "Support for R code blocks"))
- (ert-deftest test-ob-R/simple-session ()
- (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))))))
- (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)))))
- (ert-deftest test-ob-R/results-file ()
- (org-test-with-temp-text "#+NAME: TESTSRC
- #+BEGIN_SRC R :results file
- a <- file.path(\"junk\", \"test.org\")
- a
- #+END_SRC"
- (goto-char (point-min)) (org-babel-execute-maybe)
- (org-babel-goto-named-result "TESTSRC") (forward-line 1)
- (should (string= "[[file:junk/test.org]]"
- (buffer-substring-no-properties (point-at-bol) (point-at-eol))))
- (goto-char (point-min)) (forward-line 1)
- (insert "#+header: :session\n")
- (goto-char (point-min)) (org-babel-execute-maybe)
- (org-babel-goto-named-result "TESTSRC") (forward-line 1)
- (should (string= "[[file:junk/test.org]]"
- (buffer-substring-no-properties (point-at-bol) (point-at-eol))))))
- (provide 'test-ob-R)
|