aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/test-custom-comments-comment-block-banner.el2
-rw-r--r--tests/test-custom-comments-comment-box.el2
-rw-r--r--tests/test-custom-comments-comment-heavy-box.el2
-rw-r--r--tests/test-custom-comments-comment-inline-border.el6
-rw-r--r--tests/test-custom-comments-comment-padded-divider.el2
-rw-r--r--tests/test-custom-comments-comment-simple-divider.el2
6 files changed, 9 insertions, 7 deletions
diff --git a/tests/test-custom-comments-comment-block-banner.el b/tests/test-custom-comments-comment-block-banner.el
index 6561ebfa..da0b1fa7 100644
--- a/tests/test-custom-comments-comment-block-banner.el
+++ b/tests/test-custom-comments-comment-block-banner.el
@@ -194,7 +194,7 @@ Returns the buffer string for assertions."
"Should error when decoration-char is nil."
(should-error
(test-block-banner-at-column 0 "/*" "*/" nil "Header" 70)
- :type 'wrong-type-argument))
+ :type 'user-error))
(ert-deftest test-block-banner-c-nil-text ()
"Should error when text is nil."
diff --git a/tests/test-custom-comments-comment-box.el b/tests/test-custom-comments-comment-box.el
index 10b1a67d..d7ee2830 100644
--- a/tests/test-custom-comments-comment-box.el
+++ b/tests/test-custom-comments-comment-box.el
@@ -203,7 +203,7 @@ Returns the buffer string for assertions."
"Should error when decoration-char is nil."
(should-error
(test-comment-box-at-column 0 ";;" "" nil "Header" 70)
- :type 'wrong-type-argument))
+ :type 'user-error))
(ert-deftest test-comment-box-elisp-non-integer-length ()
"Should error when length is not an integer."
diff --git a/tests/test-custom-comments-comment-heavy-box.el b/tests/test-custom-comments-comment-heavy-box.el
index 30289625..94d4aaa5 100644
--- a/tests/test-custom-comments-comment-heavy-box.el
+++ b/tests/test-custom-comments-comment-heavy-box.el
@@ -207,7 +207,7 @@ Returns the buffer string for assertions."
"Should error when decoration-char is nil."
(should-error
(test-heavy-box-at-column 0 ";;" "" nil "Header" 70)
- :type 'wrong-type-argument))
+ :type 'user-error))
(ert-deftest test-heavy-box-elisp-nil-text ()
"Should error when text is nil."
diff --git a/tests/test-custom-comments-comment-inline-border.el b/tests/test-custom-comments-comment-inline-border.el
index ca2bef06..78e86035 100644
--- a/tests/test-custom-comments-comment-inline-border.el
+++ b/tests/test-custom-comments-comment-inline-border.el
@@ -190,10 +190,12 @@ Returns the buffer string for assertions."
:type 'error))
(ert-deftest test-inline-border-elisp-nil-decoration ()
- "Should error when decoration-char is nil."
+ "Should error when decoration-char is nil.
+The decoration-char validator signals `user-error' for any non-printable
+or non-single-character input."
(should-error
(test-inline-border-at-column 0 ";;" "" nil "Header" 70)
- :type 'wrong-type-argument))
+ :type 'user-error))
(ert-deftest test-inline-border-elisp-non-integer-length ()
"Should error when length is not an integer."
diff --git a/tests/test-custom-comments-comment-padded-divider.el b/tests/test-custom-comments-comment-padded-divider.el
index 702a4c67..d4c18905 100644
--- a/tests/test-custom-comments-comment-padded-divider.el
+++ b/tests/test-custom-comments-comment-padded-divider.el
@@ -200,7 +200,7 @@ Returns the buffer string for assertions."
"Should error when decoration-char is nil."
(should-error
(test-padded-divider-at-column 0 ";;" "" nil "Header" 70 2)
- :type 'wrong-type-argument))
+ :type 'user-error))
(ert-deftest test-padded-divider-elisp-nil-text ()
"Should error when text is nil."
diff --git a/tests/test-custom-comments-comment-simple-divider.el b/tests/test-custom-comments-comment-simple-divider.el
index a61e6b4c..7979f18b 100644
--- a/tests/test-custom-comments-comment-simple-divider.el
+++ b/tests/test-custom-comments-comment-simple-divider.el
@@ -195,7 +195,7 @@ Returns the buffer string for assertions."
"Should error when decoration-char is nil."
(should-error
(test-simple-divider-at-column 0 ";;" "" nil "Header" 70)
- :type 'wrong-type-argument))
+ :type 'user-error))
(ert-deftest test-simple-divider-elisp-nil-text ()
"Should error when text is nil."