database/postgres
database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-05-02 11:44:50 +03:00
Code

Add $Test::Builder::Level to pgbench test functions

Browse Source 
same as c4309f4aeeae54e4c5281d68e29288af1d0d1ed2
This commit is contained in:
Peter Eisentraut 2018-07-03 18:23:50 +02:00
parent 6837078687
commit 2c059c86ba
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -13,6 +13,8 @@ $node->start;
# invoke pgbench # invoke pgbench
sub pgbench sub pgbench
{ {
local $Test::Builder::Level = $Test::Builder::Level + 1;
my ($opts, $stat, $out, $err, $name, $files) = @_; my ($opts, $stat, $out, $err, $name, $files) = @_;
my @cmd = ('pgbench', split /\s+/, $opts); my @cmd = ('pgbench', split /\s+/, $opts);
my @filenames = (); my @filenames = ();
@ -798,6 +800,8 @@ pgbench(
# check log contents and cleanup # check log contents and cleanup
sub check_pgbench_logs sub check_pgbench_logs
{ {
local $Test::Builder::Level = $Test::Builder::Level + 1;
my ($prefix, $nb, $min, $max, $re) = @_; my ($prefix, $nb, $min, $max, $re) = @_;
my @logs = glob "$prefix.*"; my @logs = glob "$prefix.*";

4
src/bin/pgbench/t/002_pgbench_no_server.pl
View File

@ -20,6 +20,8 @@ mkdir $testdir
# invoke pgbench # invoke pgbench
sub pgbench sub pgbench
{ {
local $Test::Builder::Level = $Test::Builder::Level + 1;
my ($opts, $stat, $out, $err, $name) = @_; my ($opts, $stat, $out, $err, $name) = @_;
print STDERR "opts=$opts, stat=$stat, out=$out, err=$err, name=$name"; print STDERR "opts=$opts, stat=$stat, out=$out, err=$err, name=$name";
command_checks_all([ 'pgbench', split(/\s+/, $opts) ], command_checks_all([ 'pgbench', split(/\s+/, $opts) ],
@ -30,6 +32,8 @@ sub pgbench
# invoke pgbench with scripts # invoke pgbench with scripts
sub pgbench_scripts sub pgbench_scripts
{ {
local $Test::Builder::Level = $Test::Builder::Level + 1;
my ($opts, $stat, $out, $err, $name, $files) = @_; my ($opts, $stat, $out, $err, $name, $files) = @_;
my @cmd = ('pgbench', split /\s+/, $opts); my @cmd = ('pgbench', split /\s+/, $opts);
my @filenames = (); my @filenames = ();