1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980 |
- (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 :results output
- s = \"1\"
- s = \"2\"
- s = \"3\"
- puts s
- #+end_src"
- (org-babel-execute-maybe)
- (substring-no-properties
- (buffer-string)))
- "#+begin_src ruby :session :results output
- s = \"1\"
- s = \"2\"
- s = \"3\"
- puts s
- #+end_src
- #+RESULTS:
- : 3
- ")))
- (ert-deftest test-ob-ruby/session-output-2 ()
- (should (equal (org-test-with-temp-text "#+begin_src ruby :session :results output
- s = \"5\"
- puts s
- #+end_src"
- (org-babel-execute-maybe)
- (substring-no-properties
- (buffer-string)))
- "#+begin_src ruby :session :results output
- s = \"5\"
- puts s
- #+end_src
- #+RESULTS:
- : 5
- ")))
- (ert-deftest test-ob-ruby/session-output-3 ()
- (should (equal (org-test-with-temp-text "#+begin_src ruby :session :results output
- puts s
- #+end_src"
- (org-babel-execute-maybe)
- (substring-no-properties
- (buffer-string)))
- "#+begin_src ruby :session :results output
- puts s
- #+end_src
- #+RESULTS:
- : 5
- ")))
- (provide 'test-ob-ruby)
|