diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2017-05-05 19:30:31 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2017-05-05 19:30:31 -0400 |
| commit | bfb8a6390a77e8578fae33781795da4592baa577 (patch) | |
| tree | b73ca2d1d563b45abc7b5d66286c57adf2b5cc39 | |
| parent | 8cdff0424851104934d3ede09144968f842c1e45 (diff) | |
| download | org-link-edit-bfb8a6390a77e8578fae33781795da4592baa577.tar.gz | |
tests: Don't wrap a single error type in a list
The function should-error allows "(list 'error)" to be shortened to
"'error".
| -rw-r--r-- | test-org-link-edit.el | 8 |
1 files changed, 4 insertions, 4 deletions
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 <point>\[\[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 <point>\[\[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 <point>\[\[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 |