# invoke pgbench
sub pgbench
{
+ local $Test::Builder::Level = $Test::Builder::Level + 1;
+
my ($opts, $stat, $out, $err, $name, $files) = @_;
my @cmd = ('pgbench', split /\s+/, $opts);
my @filenames = ();
# check log contents and cleanup
sub check_pgbench_logs
{
+ local $Test::Builder::Level = $Test::Builder::Level + 1;
+
my ($prefix, $nb, $min, $max, $re) = @_;
my @logs = glob "$prefix.*";
# invoke pgbench
sub pgbench
{
+ local $Test::Builder::Level = $Test::Builder::Level + 1;
+
my ($opts, $stat, $out, $err, $name) = @_;
print STDERR "opts=$opts, stat=$stat, out=$out, err=$err, name=$name";
command_checks_all([ 'pgbench', split(/\s+/, $opts) ],
# invoke pgbench with scripts
sub pgbench_scripts
{
+ local $Test::Builder::Level = $Test::Builder::Level + 1;
+
my ($opts, $stat, $out, $err, $name, $files) = @_;
my @cmd = ('pgbench', split /\s+/, $opts);
my @filenames = ();