add comp-tests-signal

diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el
index 214e07e6dde1c77fb77da4f2e45027a5061ebe7a..3ba12dc2a6ac38f655e1c32ee3be318846443c59 100644 (file)
--- a/test/src/comp-test-funcs.el
+++ b/test/src/comp-test-funcs.el
@@ -244,6 +244,10 @@
 (defun comp-tests-trampoline-removal-f ()
   (make-hash-table))
 
+(defun comp-tests-signal-f ()
+  (signal 'foo t))
+
+\f
 ;;;;;;;;;;;;;;;;;;;;
 ;; Tromey's tests ;;
 ;;;;;;;;;;;;;;;;;;;;

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 2a4c849a7c8211a768aa2996c50096abcfe1bfed..a76a4a8c469afe59e73d436f2b5e219d60ddb996 100644 (file)
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -308,6 +308,12 @@ Check that the resulting binaries do not differ."
   ;; At speed >= 2 the trampoline will not be used.
   (should (hash-table-p (comp-tests-trampoline-removal-f))))
 
+(ert-deftest comp-tests-signal ()
+  (should (equal (condition-case err
+                     (comp-tests-signal-f)
+                   (t err))
+                 '(foo . t))))
+\f
 ;;;;;;;;;;;;;;;;;;;;
 ;; Tromey's tests ;;
 ;;;;;;;;;;;;;;;;;;;;