summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2019-01-24 19:35:52 -0500
committerKyle Meyer <kyle@kyleam.com>2019-01-24 20:01:42 -0500
commit527d9ccb91e698a2ff4b4b6323a792e77db60992 (patch)
treefc5c07bd09366c613202bd565e29196d7558a2dd
parenta3ad9cd18a985fb8942769a18cc848ee3be860db (diff)
downloadorg-link-edit-527d9ccb91e698a2ff4b4b6323a792e77db60992.tar.gz
tests: Drop pointless buffer-string calls
These are cruft left from copying the (should-error ...) sexps from a (should (string= ...) one.
-rw-r--r--test-org-link-edit.el21
1 files 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))