mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-22 06:18:39 +00:00
Ruby tests have been failing for quite some time, here's my fix. From 2f1bbaab939f6b6ceceb72862470e0576a8e2cba Mon Sep 17 00:00:00 2001 From: Achim Gratz <Stromeko@Stromeko.DE> Date: Sun, 12 May 2019 13:14:04 +0200 Subject: [PATCH 1/1] test-ob-ruby.el: fix tests * testing/lisp/test-ob-ruby.el: Output no longer contains a trailing newline, remove from the template to compare against. Session must be named for the tests to actually work, also add some extra code to ascertain that the code after the output statement has actually run in the session.
82 lines
2 KiB
EmacsLisp
82 lines
2 KiB
EmacsLisp
;;; test-ob-ruby.el --- tests for ob-ruby.el
|
|
|
|
;; Copyright (c) 2013-2015, 2019 Oleh Krehel
|
|
;; Authors: Oleh Krehel
|
|
|
|
;; This program is free software; you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
;;; Code:
|
|
(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)
|
|
|
|
;;; test-ob-ruby.el ends here
|