diff options
| -rw-r--r-- | src/bin/pg_test_timing/t/001_basic.pl | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/src/bin/pg_test_timing/t/001_basic.pl b/src/bin/pg_test_timing/t/001_basic.pl index 9912acc052a..040e62247ee 100644 --- a/src/bin/pg_test_timing/t/001_basic.pl +++ b/src/bin/pg_test_timing/t/001_basic.pl @@ -33,14 +33,23 @@ command_fails_like( ######################################### # We obviously can't check for specific output, but we can # do a simple run and make sure it produces something. - -command_like( - [ 'pg_test_timing', '--duration' => '1' ], +# Also, note the output in the log for data collection purposes. + +my $cmd = [ 'pg_test_timing', '--duration' => '1' ]; +my ($stdout, $stderr); +print("# Running: " . join(" ", @{$cmd}) . "\n"); +my $result = IPC::Run::run $cmd, '>' => \$stdout, '2>' => \$stderr; +is($result, 1, "pg_test_timing: exit code 0"); +is($stderr, '', "pg_test_timing: no stderr"); +like( + $stdout, qr/ \QTesting timing overhead for 1 second.\E.* \QHistogram of timing durations:\E.* \QObserved timing durations up to 99.9900%:\E /sx, - 'pg_test_timing: sanity check'); + 'pg_test_timing: stdout passes sanity check'); + +note "pg_test_timing results:\n$stdout\n"; done_testing(); |