diff options
| author | Peter Eisentraut <peter_e@gmx.net> | 2018-05-22 14:25:01 -0400 |
|---|---|---|
| committer | Peter Eisentraut <peter_e@gmx.net> | 2018-07-01 12:58:32 +0200 |
| commit | c4309f4aeeae54e4c5281d68e29288af1d0d1ed2 (patch) | |
| tree | 706fa479aa19f3128ee71ef8c0884569204dd04a /src/bin/pg_rewind/RewindTest.pm | |
| parent | 65782346a4812482bfb09f9e1117c908146e67b5 (diff) | |
Use $Test::Builder::Level in TAP test functions
In TAP test functions, that is, those that produce test results, locally
increment $Test::Builder::Level. This has the effect that test failures
are reported at the callers location rather than somewhere in the test
support libraries.
Reviewed-by: Heikki Linnakangas <hlinnaka@iki.fi>
Diffstat (limited to 'src/bin/pg_rewind/RewindTest.pm')
| -rw-r--r-- | src/bin/pg_rewind/RewindTest.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/bin/pg_rewind/RewindTest.pm b/src/bin/pg_rewind/RewindTest.pm index 60b54119e7a..057b08f9a49 100644 --- a/src/bin/pg_rewind/RewindTest.pm +++ b/src/bin/pg_rewind/RewindTest.pm @@ -87,6 +87,8 @@ sub standby_psql # expected sub check_query { + local $Test::Builder::Level = $Test::Builder::Level + 1; + my ($query, $expected_stdout, $test_name) = @_; my ($stdout, $stderr); |