From 77c9236957a195a4ad0f50e8f19653a5c6918c8e Mon Sep 17 00:00:00 2001
From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 17 Nov 2019 07:26:14 +0100
Subject: [PATCH] add comp-tests-signal

---
 test/src/comp-test-funcs.el | 4 ++++
 test/src/comp-tests.el      | 6 ++++++
 2 files changed, 10 insertions(+)

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 ;;
 ;;;;;;;;;;;;;;;;;;;;
-- 
2.39.5