From: Jess Robinson <castaway@desert-island.me.uk>
Date: Fri, 19 Apr 2013 11:08:34 +0000 (+0100)
Subject: t/op/sigdispatch.t: TODO tests that don't work on some Android builds
X-Git-Tag: upstream/5.20.0~614^2~29
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=5322aba44a4816b9ace3a734c93c47a393c0cc32;p=platform%2Fupstream%2Fperl.git

t/op/sigdispatch.t: TODO tests that don't work on some Android builds
---

diff --git a/t/op/sigdispatch.t b/t/op/sigdispatch.t
index 1105504..9c583f7 100644
--- a/t/op/sigdispatch.t
+++ b/t/op/sigdispatch.t
@@ -97,7 +97,9 @@ TODO:
 	# of a reliable way to probe for this, so for now, just skip the
 	# tests on production releases
 	skip("some OSes hang here", 3) if (int($]*1000) & 1) == 0;
-
+    
+  TODO: {
+	local $::TODO = "Issues on Android" if $^O =~ /android/;
 	my $action = POSIX::SigAction->new(sub { $gotit--, die }, POSIX::SigSet->new, 0);
 	POSIX::sigaction(&POSIX::SIGALRM, $action);
 	eval {
@@ -110,6 +112,7 @@ TODO:
 	is $gotit, 0, 'Received both signals';
     }
 }
+}
 
 SKIP: {
     skip("alarm cannot interrupt blocking system calls on $^O", 2)