From 5d10d4c02b050cfbd73e67b47877f79655cc4464 Mon Sep 17 00:00:00 2001
From: Joseph Lenox <lenox.joseph@gmail.com>
Date: Sat, 11 Mar 2017 09:42:44 -0600
Subject: [PATCH] Added a timeout to the exception test to (hopefully) fail
 test on broken perl instead of waiting forever.

---
 xs/t/22_exception.t | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/xs/t/22_exception.t b/xs/t/22_exception.t
index ca2ffea89..b57255fa5 100644
--- a/xs/t/22_exception.t
+++ b/xs/t/22_exception.t
@@ -8,7 +8,10 @@ use Test::More tests => 1;
 
 {
     eval {
+        local $SIG{ALRM} = sub { die "Timed out waiting for exception\n" }; # NB: \n required
+        alarm 30;
         Slic3r::xspp_test_croak_hangs_on_strawberry();
+        alarm 0;
     };
     is $@, "xspp_test_croak_hangs_on_strawberry: exception catched\n", 'croak from inside a C++ exception delivered';
 }