blob: c20ae4d73b91872ff8bac5ec1759465400935535 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
From 00202116b49691de109c397f298c55960d2b9896 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Sat, 25 Nov 2017 09:57:00 +0100
Subject: timeout tests on inactivity
Bug: https://rt.cpan.org/Ticket/Display.html?id=123736
---
test.pl | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/test.pl b/test.pl
index 8436a47..209a6a6 100644
--- a/test.pl
+++ b/test.pl
@@ -91,9 +91,19 @@ $gc = getGC($win, $font);
$x->MapWindow($win);
+$SIG{ALRM} = sub { die "Timeout" };
+alarm(5);
while (1)
{
- $x->handle_input until %e = $x->dequeue_event;
+ eval { $x->handle_input until %e = $x->dequeue_event; };
+ if ($@)
+ {
+ if ($@ =~ /Timeout/) {
+ print "ok 3\n";
+ last;
+ }
+ die $@;
+ }
if ($e{name} eq "Expose")
{
next unless $e{count} == 0;
--
2.16.2
|