mirror of
https://github.com/gentoo-mirror/gentoo.git
synced 2025-12-21 21:17:37 -08:00
1ade029f4e
- EAPI6ify - Enable tests (w/ virtualx) - Patch tests to work without interaction and behave nicely for harness Package-Manager: Portage-2.3.24, Repoman-2.3.6
39 lines
875 B
Diff
39 lines
875 B
Diff
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
|
|
|