diff options
Diffstat (limited to 'dev-perl/X11-Protocol/files')
-rw-r--r-- | dev-perl/X11-Protocol/files/X11-Protocol-0.56-test-tap.patch | 28 | ||||
-rw-r--r-- | dev-perl/X11-Protocol/files/X11-Protocol-0.56-test-timeout.patch | 38 |
2 files changed, 66 insertions, 0 deletions
diff --git a/dev-perl/X11-Protocol/files/X11-Protocol-0.56-test-tap.patch b/dev-perl/X11-Protocol/files/X11-Protocol-0.56-test-tap.patch new file mode 100644 index 000000000000..83c07bebc37a --- /dev/null +++ b/dev-perl/X11-Protocol/files/X11-Protocol-0.56-test-tap.patch @@ -0,0 +1,28 @@ +From 663aaa7eefbf9dcad54c8c7f4c463bf289a9b907 Mon Sep 17 00:00:00 2001 +From: Kent Fredric <kentnl@gentoo.org> +Date: Wed, 28 Mar 2018 23:46:13 +1300 +Subject: Move to a TAP::Harness friendly test layout + +--- + MANIFEST | 2 +- + test.pl => t/x11.t | 0 + 2 files changed, 1 insertion(+), 1 deletion(-) + rename test.pl => t/x11.t (100%) + +diff --git a/MANIFEST b/MANIFEST +index 24c14b7..8648607 100644 +--- a/MANIFEST ++++ b/MANIFEST +@@ -33,4 +33,4 @@ eg/widgets2.pl X11-Motif version of widget example + eg/widgets3.pl Unfinished OO-interface widget example + eg/widgets.c C Xlib version of widget example + eg/wintree.pl Window hierarchy utility example +-test.pl Short test of Protocol.pm et al. ++t/x11.t Short test of Protocol.pm et al. +diff --git a/test.pl b/t/x11.t +similarity index 100% +rename from test.pl +rename to t/x11.t +-- +2.16.2 + diff --git a/dev-perl/X11-Protocol/files/X11-Protocol-0.56-test-timeout.patch b/dev-perl/X11-Protocol/files/X11-Protocol-0.56-test-timeout.patch new file mode 100644 index 000000000000..c20ae4d73b91 --- /dev/null +++ b/dev-perl/X11-Protocol/files/X11-Protocol-0.56-test-timeout.patch @@ -0,0 +1,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 + |