branch: externals/org
commit fe51304a1ed7beec54ef06f34a854b4e75068b8d
Author: Morgan Smith <[email protected]>
Commit: Ihor Radchenko <[email protected]>
Testing: Remove useless calls to `buffer-string'
* testing/lisp/test-ob-exp.el
(ob-exp/evaluate-all-executables-in-order):
* testing/lisp/test-ob-tangle.el
(ob-tangle/comment-links-numbering)
(ob-tangle/comment-links-relative-file)
(ob-tangle/comment-noweb-relative)
(ob-tangle/comment-noweb-absolute):
* testing/lisp/test-ob.el
(test-ob/replace-special-block-result):
Remove useless calls to `buffer-string'.
---
testing/lisp/test-ob-exp.el | 1 -
testing/lisp/test-ob-tangle.el | 5 -----
testing/lisp/test-ob.el | 1 -
3 files changed, 7 deletions(-)
diff --git a/testing/lisp/test-ob-exp.el b/testing/lisp/test-ob-exp.el
index 6749284d76..1706d83810 100644
--- a/testing/lisp/test-ob-exp.el
+++ b/testing/lisp/test-ob-exp.el
@@ -189,7 +189,6 @@ a table."
(let ((org-export-use-babel t) *evaluation-collector*)
(org-test-at-id "96cc7073-97ec-4556-87cf-1f9bffafd317"
(org-narrow-to-subtree)
- (buffer-string)
(org-test-with-expanded-babel-code *evaluation-collector*))))))
(ert-deftest ob-exp/exports-inline ()
diff --git a/testing/lisp/test-ob-tangle.el b/testing/lisp/test-ob-tangle.el
index 4410e293e5..640d910b5e 100644
--- a/testing/lisp/test-ob-tangle.el
+++ b/testing/lisp/test-ob-tangle.el
@@ -135,7 +135,6 @@ echo 1
(org-babel-tangle)
(with-temp-buffer
(insert-file-contents "test-ob-tangle.el")
- (buffer-string)
(goto-char (point-min))
(and (search-forward "[H:1]]" nil t)
(search-forward "[H:2]]" nil t))))
@@ -156,7 +155,6 @@ echo 1
(org-babel-tangle)
(with-temp-buffer
(insert-file-contents "test-ob-tangle.el")
- (buffer-string)
(goto-char (point-min))
(search-forward
(concat "[file:" (file-name-nondirectory file))
@@ -175,7 +173,6 @@ echo 1
(org-babel-tangle)
(with-temp-buffer
(insert-file-contents "test-ob-tangle.el")
- (buffer-string)
(goto-char (point-min))
(search-forward (concat "[file:" file) nil t)))
(delete-file "test-ob-tangle.el")))))
@@ -202,7 +199,6 @@ echo 1
(org-babel-tangle)
(with-temp-buffer
(insert-file-contents "test-ob-tangle.el")
- (buffer-string)
(goto-char (point-min))
(and
(search-forward (concat ";; [[file:" (file-name-nondirectory
file) "::inner") nil t)
@@ -231,7 +227,6 @@ echo 1
(org-babel-tangle)
(with-temp-buffer
(insert-file-contents "test-ob-tangle.el")
- (buffer-string)
(goto-char (point-min))
(and
(search-forward (concat ";; [[file:" file "::inner") nil t)
diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el
index a41f214cd6..9073ab29ab 100644
--- a/testing/lisp/test-ob.el
+++ b/testing/lisp/test-ob.el
@@ -687,7 +687,6 @@ duplicate results block."
#+end_src"
(org-babel-execute-src-block)
(org-babel-execute-src-block)
- (buffer-string)
(search-forward "#+begin_special" nil nil 2))))
(ert-deftest test-ob/catches-all-references ()
