1 files changed, 5 insertions, 0 deletions

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 47c61c82bdd..d2b8f56d36f 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -289,6 +289,11 @@
                      err
                      (comp-tests-setcar-f 3 10)
                    (error err))
+                 '(wrong-type-argument consp 3)))
+  (should (equal (condition-case
+                     err
+                     (comp-tests-setcdr-f 3 10)
+                   (error err))
                  '(wrong-type-argument consp 3))))
 
 (defun comp-bubble-sort ()