percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-18 01:33:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

pt-fifo-split: Fix for the blocking tests

Browse Source
This commit is contained in:
Brian Fraser
2013-03-01 06:21:28 -03:00
parent 398bd1f164
commit be048f9674
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
t/pt-fifo-split/pt-fifo-split.t
View File

@@ -41,8 +41,14 @@ my @fifo;
while (kill 0, $pid) { while (kill 0, $pid) {
if ( -e $fifo ) { if ( -e $fifo ) {
eval { eval {
local $SIG{ALRM} = sub { die "read timeout" };
alarm 3;
my $contents = slurp_file($fifo); my $contents = slurp_file($fifo);
push @fifo, $contents; push @fifo, $contents;
alarm 0;
};
if (my $e = $@) {
die $e unless $e =~ /\Aread timeout\z/;
} }
} }
} }
@@ -72,8 +78,14 @@ PerconaTest::wait_until(sub { -p $fifo });
while (kill 0, $pid) { while (kill 0, $pid) {
if ( -e $fifo ) { if ( -e $fifo ) {
eval { eval {
local $SIG{ALRM} = sub { die "read timeout" };
alarm 3;
my $contents = slurp_file($fifo); my $contents = slurp_file($fifo);
push @fifo, $contents; push @fifo, $contents;
alarm 0;
};
if (my $e = $@) {
die $e unless $e =~ /\Aread timeout\z/;
} }
} }
} }