From 564661f586501dd235f2dad6ece45d0100dc21a9 Mon Sep 17 00:00:00 2001 From: Henry Blevins Date: Thu, 21 Jun 2018 14:56:48 -0400 Subject: [PATCH 2/2] test-ob-scheme.el: Add tests for scheme result types * test-ob-scheme.el (test-ob-scheme/verbatim, test-ob-scheme/list): Add tests for scheme source block output specify the results as 'verbatim' or 'list'. --- testing/lisp/test-ob-scheme.el | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) diff --git a/testing/lisp/test-ob-scheme.el b/testing/lisp/test-ob-scheme.el index a3406d309..a47649436 100644 --- a/testing/lisp/test-ob-scheme.el +++ b/testing/lisp/test-ob-scheme.el @@ -39,6 +39,34 @@ (org-babel-execute-maybe) (buffer-string)))) +(ert-deftest test-ob-scheme/verbatim () + "Test verbatim output." + (equal "#+begin_src scheme +'(1 2 3) +#+end_src + +#+RESULTS: +: (1 2 3) +" + (org-test-with-temp-text "#+begin_src scheme :results verbatim\n'(1 2 3)\n#+end_src" + (org-babel-execute-maybe) + (buffer-string)))) + +(ert-deftest test-ob-scheme/list () + "Test list output." + (equal "#+begin_src scheme :results list +'(1 2 3) +#+end_src + +#+RESULTS: +- 1 +- 2 +- 3 +" + (org-test-with-temp-text "#+begin_src scheme :results list\n'(1 2 3)\n#+end_src" + (org-babel-execute-maybe) + (buffer-string)))) + (ert-deftest test-ob-scheme/prologue () "Test :prologue parameter." (should -- 2.17.1