diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el index c0d0dcc21..d3022cc96 100644 --- a/testing/lisp/test-org-element.el +++ b/testing/lisp/test-org-element.el @@ -1706,14 +1706,16 @@ CLOSED: <2012-01-01> DEADLINE: <2012-01-01> SCHEDULED: <2012-01-01>\n")))) "Test src block interpreter." ;; With arguments. (should - (equal (org-test-parse-and-interpret - "#+BEGIN_SRC emacs-lisp :results silent\n(+ 1 1)\n#+END_SRC") - "#+BEGIN_SRC emacs-lisp :results silent\n(+ 1 1)\n#+END_SRC\n")) + (equal (let ((org-edit-src-content-indentation 2)) + (org-test-parse-and-interpret + "#+BEGIN_SRC emacs-lisp :results silent\n(+ 1 1)\n#+END_SRC")) + "#+BEGIN_SRC emacs-lisp :results silent\n (+ 1 1)\n#+END_SRC\n")) ;; With switches. (should - (equal (org-test-parse-and-interpret - "#+BEGIN_SRC emacs-lisp -n -k\n(+ 1 1)\n#+END_SRC") - "#+BEGIN_SRC emacs-lisp -n -k\n(+ 1 1)\n#+END_SRC\n"))) + (equal (let ((org-edit-src-content-indentation 2)) + (org-test-parse-and-interpret + "#+BEGIN_SRC emacs-lisp -n -k\n(+ 1 1)\n#+END_SRC")) + "#+BEGIN_SRC emacs-lisp -n -k\n (+ 1 1)\n#+END_SRC\n"))) (ert-deftest test-org-element/table-interpreter () "Test table, table-row and table-cell interpreters."