summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHenry Blevins <heblevi@gmail.com>2018-06-21 14:56:48 -0400
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2018-06-21 22:00:50 +0200
commitf2500e06f3af994f30a2688804c69ed4f7bdafba (patch)
treec5fe6eaac0c41535ea4e3f34fc7d433f32d96596
parent9c8de985a57261975986d1080204b7c435028543 (diff)
downloadorg-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.el20
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