From bfb8a6390a77e8578fae33781795da4592baa577 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Fri, 5 May 2017 19:30:31 -0400 Subject: tests: Don't wrap a single error type in a list The function should-error allows "(list 'error)" to be shortened to "'error". --- test-org-link-edit.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'test-org-link-edit.el') diff --git a/test-org-link-edit.el b/test-org-link-edit.el index 44d7204..5999dce 100644 --- a/test-org-link-edit.el +++ b/test-org-link-edit.el @@ -153,7 +153,7 @@ website is" "\[\[http://orgmode.org/\]\[Org's\]\] website is" (org-link-edit-forward-slurp 3) (buffer-string)) - :type (list 'user-error))) + :type 'user-error)) (ert-deftest test-org-link-edit/backward-slurp () "Test `org-link-edit-backward-slurp'." @@ -262,7 +262,7 @@ website is" "Here is \[\[http://orgmode.org/\]\[Org's\]\] website" (org-link-edit-backward-slurp 3) (buffer-string)) - :type (list 'user-error))) + :type 'user-error)) (ert-deftest test-org-link-edit/slurp-negative-argument () "Test `org-link-edit-forward-slurp' and @@ -348,7 +348,7 @@ website is" "Org's \[\[http://orgmode.org/\]\[website is\]\]" (org-link-edit-forward-barf 3) (buffer-string)) - :type (list 'user-error))) + :type 'user-error)) (ert-deftest test-org-link-edit/backward-barf () "Test `org-link-edit-backward-barf'." @@ -415,7 +415,7 @@ website is" "Org's \[\[http://orgmode.org/\]\[website is\]\]" (org-link-edit-backward-barf 3) (buffer-string)) - :type (list 'user-error))) + :type 'user-error)) (ert-deftest test-org-link-edit/barf-negative-argument () "Test `org-link-edit-forward-barf' and -- cgit v1.2.3