diff options
Diffstat (limited to 'contrib')
-rw-r--r-- | contrib/amcheck/t/001_verify_heapam.pl | 8 | ||||
-rw-r--r-- | contrib/test_decoding/t/001_repl_stats.pl | 2 |
2 files changed, 10 insertions, 0 deletions
diff --git a/contrib/amcheck/t/001_verify_heapam.pl b/contrib/amcheck/t/001_verify_heapam.pl index ba40f64b58..8e02a8db2a 100644 --- a/contrib/amcheck/t/001_verify_heapam.pl +++ b/contrib/amcheck/t/001_verify_heapam.pl @@ -209,6 +209,8 @@ sub corrupt_first_page sub detects_heap_corruption { + local $Test::Builder::Level = $Test::Builder::Level + 1; + my ($function, $testname) = @_; detects_corruption( @@ -224,6 +226,8 @@ sub detects_heap_corruption sub detects_corruption { + local $Test::Builder::Level = $Test::Builder::Level + 1; + my ($function, $testname, @re) = @_; my $result = $node->safe_psql('postgres', qq(SELECT * FROM $function)); @@ -232,6 +236,8 @@ sub detects_corruption sub detects_no_corruption { + local $Test::Builder::Level = $Test::Builder::Level + 1; + my ($function, $testname) = @_; my $result = $node->safe_psql('postgres', qq(SELECT * FROM $function)); @@ -247,6 +253,8 @@ sub detects_no_corruption # and should be unique. sub check_all_options_uncorrupted { + local $Test::Builder::Level = $Test::Builder::Level + 1; + my ($relname, $prefix) = @_; for my $stop (qw(true false)) diff --git a/contrib/test_decoding/t/001_repl_stats.pl b/contrib/test_decoding/t/001_repl_stats.pl index fdef6cb1ff..e8644e1cbc 100644 --- a/contrib/test_decoding/t/001_repl_stats.pl +++ b/contrib/test_decoding/t/001_repl_stats.pl @@ -19,6 +19,8 @@ $node->start; # Check that replication slot stats are expected. sub test_slot_stats { + local $Test::Builder::Level = $Test::Builder::Level + 1; + my ($node, $expected, $msg) = @_; my $result = $node->safe_psql( |