postgres.git / summary / log / commit / refs

commit    de1d4fef71cb00370aa5f794fe05355c1d063aea
Author:   Michael Paquier <michael@paquier.xyz>
Date:     Wed Sep 01 01:28:01 2021 +0000
First released in: 15.0

    Add PostgresNode::command_fails_like()
    
    This is useful to test for a command failure with some default
    connection parameters associated to a node, in combination with checks
    on error patterns expected.  This routine will be used by an upcoming
    future patch, but could be also plugged into some of the existing
    tests.
    
    Extracted from a larger patch by the same author.
    
    Author: Ronan Dunklau
    Discussion: https://postgr.es/m/5742739.ga3mSNWIix@aivenronan


 src/test/perl/PostgresNode.pm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm
index 8158ea5b2f5..c59da758c7e 100644
--- a/src/test/perl/PostgresNode.pm
+++ b/src/test/perl/PostgresNode.pm
@@ -2267,6 +2267,26 @@ sub command_like
 
 =pod
 
+=item $node->command_fails_like(...)
+
+TestLib::command_fails_like with our connection parameters. See command_ok(...)
+
+=cut
+
+sub command_fails_like
+{
+	local $Test::Builder::Level = $Test::Builder::Level + 1;
+
+	my $self = shift;
+
+	local %ENV = $self->_get_env();
+
+	TestLib::command_fails_like(@_);
+	return;
+}
+
+=pod
+
 =item $node->command_checks_all(...)
 
 TestLib::command_checks_all with our connection parameters. See


[parent: 0f6aa893cb58]