From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 17 Nov 2019 06:26:14 +0000 (+0100)
Subject: add comp-tests-signal
X-Git-Tag: emacs-28.0.90~2727^2~976
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=77c9236957a195a4ad0f50e8f19653a5c6918c8e;p=emacs.git

add comp-tests-signal
---

diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el
index 214e07e6dde..3ba12dc2a6a 100644
--- 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))
+
+
 ;;;;;;;;;;;;;;;;;;;;
 ;; Tromey's tests ;;
 ;;;;;;;;;;;;;;;;;;;;
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 2a4c849a7c8..a76a4a8c469 100644
--- 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))))
+
 ;;;;;;;;;;;;;;;;;;;;
 ;; Tromey's tests ;;
 ;;;;;;;;;;;;;;;;;;;;