From 527d9ccb91e698a2ff4b4b6323a792e77db60992 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Thu, 24 Jan 2019 19:35:52 -0500
Subject: tests: Drop pointless buffer-string calls

These are cruft left from copying the (should-error ...) sexps from a
(should (string= ...) one.
---
 test-org-link-edit.el | 21 +++++++--------------
 1 file changed, 7 insertions(+), 14 deletions(-)

diff --git a/test-org-link-edit.el b/test-org-link-edit.el
index 643e26c..51f4b30 100644
--- a/test-org-link-edit.el
+++ b/test-org-link-edit.el
@@ -151,8 +151,7 @@ website is"
   (should-error
    (org-test-with-temp-text
        "\[\[http://orgmode.org/\]\[Org's\]\] website is"
-     (org-link-edit-forward-slurp 3)
-     (buffer-string))
+     (org-link-edit-forward-slurp 3))
    :type 'user-error))
 
 (ert-deftest test-org-link-edit/backward-slurp ()
@@ -260,8 +259,7 @@ website is"
   (should-error
    (org-test-with-temp-text
        "Here is <point>\[\[http://orgmode.org/\]\[Org's\]\] website"
-     (org-link-edit-backward-slurp 3)
-     (buffer-string))
+     (org-link-edit-backward-slurp 3))
    :type 'user-error))
 
 (ert-deftest test-org-link-edit/slurp-negative-argument ()
@@ -346,8 +344,7 @@ website is"
   (should-error
    (org-test-with-temp-text
        "Org's <point>\[\[http://orgmode.org/\]\[website is\]\]"
-     (org-link-edit-forward-barf 3)
-     (buffer-string))
+     (org-link-edit-forward-barf 3))
    :type 'user-error))
 
 (ert-deftest test-org-link-edit/backward-barf ()
@@ -413,8 +410,7 @@ website is"
   (should-error
    (org-test-with-temp-text
        "Org's <point>\[\[http://orgmode.org/\]\[website is\]\]"
-     (org-link-edit-backward-barf 3)
-     (buffer-string))
+     (org-link-edit-backward-barf 3))
    :type 'user-error))
 
 (ert-deftest test-org-link-edit/barf-negative-argument ()
@@ -565,22 +561,19 @@ website"
   (should-error
    (org-test-with-temp-text
        "Here is Org's website http://orgmode.org/<point>"
-     (org-link-edit-transport-next-link)
-     (buffer-string))
+     (org-link-edit-transport-next-link))
    :type 'user-error)
   (should-error
    (org-test-with-temp-text
        "Here is Org's website <point>http://orgmode.org/"
      (org-link-edit-transport-next-link
-      nil (point-min) (point))
-     (buffer-string))
+      nil (point-min) (point)))
    :type 'user-error)
   ;; Fail if link already has a description.
   (should-error
    (org-test-with-temp-text
        "Here is <point>Org's website \[\[http://orgmode.org/\]\[description\]\]"
-     (org-link-edit-transport-next-link)
-     (buffer-string))
+     (org-link-edit-transport-next-link))
    :type 'user-error))
 
 
-- 
cgit v1.2.3