123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081 |
- (org-test-for-executable "ruby")
- (unless (featurep 'ob-ruby)
- (signal 'missing-test-dependency "Support for Ruby code blocks"))
- (ert-deftest test-ob-ruby/session-output-1 ()
- (should (equal (org-test-with-temp-text "#+begin_src ruby :session org-test-ruby :results output
- s = \"1\"
- s = \"2\"
- s = \"3\"
- puts s
- s = \"4\"
- #+end_src"
- (org-babel-execute-maybe)
- (substring-no-properties
- (buffer-string)))
- "#+begin_src ruby :session org-test-ruby :results output
- s = \"1\"
- s = \"2\"
- s = \"3\"
- puts s
- s = \"4\"
- #+end_src
- #+RESULTS:
- : 3
- ")))
- (ert-deftest test-ob-ruby/session-output-2 ()
- (should (equal (org-test-with-temp-text "#+begin_src ruby :session org-test-ruby :results output
- puts s
- s = \"5\"
- #+end_src"
- (org-babel-execute-maybe)
- (substring-no-properties
- (buffer-string)))
- "#+begin_src ruby :session org-test-ruby :results output
- puts s
- s = \"5\"
- #+end_src
- #+RESULTS:
- : 4
- ")))
- (ert-deftest test-ob-ruby/session-output-3 ()
- (should (equal (org-test-with-temp-text "#+begin_src ruby :session org-test-ruby :results output
- puts s
- s = \"6\"
- #+end_src"
- (org-babel-execute-maybe)
- (substring-no-properties
- (buffer-string)))
- "#+begin_src ruby :session org-test-ruby :results output
- puts s
- s = \"6\"
- #+end_src
- #+RESULTS:
- : 5
- ")))
- (provide 'test-ob-ruby)
|