More stabilizing Daemon.t.

This commit is contained in:
Daniel Nichter
2011-08-24 11:20:27 -06:00
parent e134aa665b
commit 2c7257caff
2 changed files with 22 additions and 1 deletions

View File

@@ -272,6 +272,20 @@ sub wait_for_table {
);
}
sub wait_for_files {
my (@files) = @_;
return wait_until(
sub {
foreach my $file (@files) {
return 0 if ! -f $file;
}
return 1;
},
0.25,
15,
);
}
sub _read {
my ( $fh ) = @_;
return <$fh>;