diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2019-01-24 19:35:52 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2019-01-24 20:01:42 -0500 |
| commit | 527d9ccb91e698a2ff4b4b6323a792e77db60992 (patch) | |
| tree | fc5c07bd09366c613202bd565e29196d7558a2dd | |
| parent | a3ad9cd18a985fb8942769a18cc848ee3be860db (diff) | |
| download | org-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.el | 21 |
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)) |