diff options
author | Henry Blevins <heblevi@gmail.com> | 2018-06-21 14:56:48 -0400 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-06-21 22:00:50 +0200 |
commit | f2500e06f3af994f30a2688804c69ed4f7bdafba (patch) | |
tree | c5fe6eaac0c41535ea4e3f34fc7d433f32d96596 | |
parent | 9c8de985a57261975986d1080204b7c435028543 (diff) | |
download | org-mode-f2500e06f3af994f30a2688804c69ed4f7bdafba.tar.gz |
ob-scheme: Add tests for scheme result types
* test-ob-scheme.el (test-ob-scheme/verbatim, test-ob-scheme/list):
New tests.
-rw-r--r-- | testing/lisp/test-ob-scheme.el | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/testing/lisp/test-ob-scheme.el b/testing/lisp/test-ob-scheme.el index a3406d3..4e4cb20 100644 --- a/testing/lisp/test-ob-scheme.el +++ b/testing/lisp/test-ob-scheme.el @@ -39,6 +39,26 @@ (org-babel-execute-maybe) (buffer-string)))) +(ert-deftest test-ob-scheme/verbatim () + "Test verbatim output." + (should + (equal ": (1 2 3)\n" + (org-test-with-temp-text "#+begin_src scheme :results verbatim\n'(1 2 3)\n#+end_src" + (org-babel-execute-src-block) + (let ((case-fold-search t)) (search-forward "#+results")) + (buffer-substring-no-properties (line-beginning-position 2) + (point-max)))))) + +(ert-deftest test-ob-scheme/list () + "Test list output." + (should + (equal "- 1\n- 2\n- 3\n" + (org-test-with-temp-text "#+begin_src scheme :results list\n'(1 2 3)\n#+end_src" + (org-babel-execute-maybe) + (let ((case-fold-search t)) (search-forward "#+results")) + (buffer-substring-no-properties (line-beginning-position 2) + (point-max)))))) + (ert-deftest test-ob-scheme/prologue () "Test :prologue parameter." (should |