diff options
Diffstat (limited to 'src/test/perl/PostgreSQL/Test/Cluster.pm')
| -rw-r--r-- | src/test/perl/PostgreSQL/Test/Cluster.pm | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/src/test/perl/PostgreSQL/Test/Cluster.pm b/src/test/perl/PostgreSQL/Test/Cluster.pm index ff8e04d3a03..b105cba05a6 100644 --- a/src/test/perl/PostgreSQL/Test/Cluster.pm +++ b/src/test/perl/PostgreSQL/Test/Cluster.pm @@ -2820,33 +2820,6 @@ sub issues_sql_like =pod -=item $node->issues_sql_unlike(cmd, unexpected_sql, test_name) - -Run a command on the node, then verify that $unexpected_sql does not appear in -the server log file. - -=cut - -sub issues_sql_unlike -{ - local $Test::Builder::Level = $Test::Builder::Level + 1; - - my ($self, $cmd, $unexpected_sql, $test_name) = @_; - - local %ENV = $self->_get_env(); - - my $log_location = -s $self->logfile; - - my $result = PostgreSQL::Test::Utils::run_log($cmd); - ok($result, "@$cmd exit code 0"); - my $log = - PostgreSQL::Test::Utils::slurp_file($self->logfile, $log_location); - unlike($log, $unexpected_sql, "$test_name: SQL not found in server log"); - return; -} - -=pod - =item $node->log_content() Returns the contents of log of the node |