mirrors/postgres
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix perlcritic warnings

Browse Source
This commit is contained in:
Peter Eisentraut 2018-02-22 15:13:57 -05:00
parent 0db2fc98cd
commit abcba7001e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/bin/pgbench/t/001_pgbench_with_server.pl
View File

@ -584,7 +584,7 @@ sub check_pgbench_logs
{
my ($prefix, $nb, $min, $max, $re) = @_;
my @logs = <$prefix.*>;
my @logs = glob "$prefix.*";
ok(@logs == $nb, "number of log files");
ok(grep(/^$prefix\.\d+(\.\d+)?$/, @logs) == $nb, "file name format");
@ -592,14 +592,14 @@ sub check_pgbench_logs
for my $log (sort @logs)
{
eval {
open LOG, $log or die "$@";
my @contents = <LOG>;
open my $fh, '<', $log or die "$@";
my @contents = <$fh>;
my $clen = @contents;
ok( $min <= $clen && $clen <= $max,
"transaction count for $log ($clen)");
ok( grep($re, @contents) == $clen,
"transaction format for $prefix");
close LOG or die "$@";
close $fh or die "$@";
};
}
ok(unlink(@logs), "remove log files");