[elpa] externals/org c033814 2/3: test-ob-R.el: add tests for output with substrings matching prompt

[ELPA Syncer]

branch: externals/org
commit c0338142b77f5be5bd0512793341f668fb39289a
Author: Jeremie Juste <jeremiejuste@gmail.com>
Commit: Jeremie Juste <jeremiejuste@gmail.com>

    test-ob-R.el: add tests for output with substrings matching prompt
    
    * testing/lisp/test-ob-R.el (test-ob-r/output-with-<>): new test for output
      angle brackets
     (test-ob-R/output-nonprinted): New test for output results that aren't
    explicitly printed.  (Here all the lines are expected to be printed
    not just the last one)
    
    Patch suggested by Jack Kamm:
    https://orgmode.org/list/87h7slgbi5.fsf@gmail.com/
---
 testing/lisp/test-ob-R.el | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

diff --git a/testing/lisp/test-ob-R.el b/testing/lisp/test-ob-R.el
index 62d25ba..12eac83 100644
--- a/testing/lisp/test-ob-R.el
+++ b/testing/lisp/test-ob-R.el
@@ -97,6 +97,52 @@ x
      (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)))))))
+
+
+
+(ert-deftest test-ob-r/output-with-<> ()
+  "make sure angle brackets are well formatted"
+    (let (ess-ask-for-ess-directory ess-history-file)
+      (should (string="[1] \"<X> <Y> <!>\"
+[1] \"one <two> three\"
+[1] \"end35\"
+"
+  (org-test-with-temp-text "#+begin_src R :results output
+     print(\"<X> <Y> <!>\")
+     print(\"one <two> three\")
+     print(\"end35\")
+   #+end_src
+"
+    (org-babel-execute-src-block))
+))))
+
+
+;; (ert-deftest test-ob-r/output-with-error ()
+;;   "make sure angle brackets are well formatted"
+;;     (let (ess-ask-for-ess-directory ess-history-file)
+;;       (should (string="Error in print(1/a) : object 'a' not found"
+;;   (org-test-with-temp-text "#+begin_src R :results output
+;;   print(1/a)
+;;  #+end_src
+;; "
+;;     (org-babel-execute-src-block))
+;; ))))
+
+
+(ert-deftest test-ob-R/output-nonprinted ()
+  (let (ess-ask-for-ess-directory ess-history-file)
+    (org-test-with-temp-text
+     "#+begin_src R :results output
+4.0 * 3.5
+log(10)
+log10(10)
+(3 + 1) * 5
+3^-1
+1/0
+#+end_src"
+     (should (string= "[1] 14\n[1] 2.302585\n[1] 1\n[1] 20\n[1] 0.3333333\n[1] 
Inf\n" (org-babel-execute-src-block))))))
+
 (provide 'test-ob-R)
 
 ;;; test-ob-R.el ends here
+