Updated TAP tests to use PostgreSQL::Test packages [skip ci]

This commit is contained in:
Andrew Kane
2024-07-27 12:24:15 -07:00
parent f1d283f565
commit 1e9e355175
43 changed files with 133 additions and 128 deletions

View File

@@ -52,7 +52,7 @@ ifeq ($(PROVE),)
PROVE = prove
endif
# for Postgres 15+
# for Postgres < 15
PROVE_FLAGS += -I ./test/perl
prove_installcheck:

View File

@@ -0,0 +1,11 @@
package PostgreSQL::Test::Cluster;
use PostgresNode;
sub new
{
my ($class, $name) = @_;
return get_new_node($name);
}
1;

View File

@@ -0,0 +1,5 @@
package PostgreSQL::Test::Utils;
use TestLib;
1;

View File

@@ -1,8 +0,0 @@
use PostgreSQL::Test::Cluster;
sub get_new_node
{
return PostgreSQL::Test::Cluster->new(@_);
}
1;

View File

@@ -1,3 +0,0 @@
use PostgreSQL::Test::Utils;
1;

View File

@@ -3,8 +3,8 @@
# Test generic xlog record work for ivfflat index replication.
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $dim = 32;
@@ -49,7 +49,7 @@ sub test_index_replay
my $array_sql = join(",", ('random()') x $dim);
# Initialize primary node
$node_primary = get_new_node('primary');
$node_primary = PostgreSQL::Test::Cluster->new('primary');
$node_primary->init(allows_streaming => 1);
if ($dim > 32)
{
@@ -67,7 +67,7 @@ my $backup_name = 'my_backup';
$node_primary->backup($backup_name);
# Create streaming replica linking to primary
$node_replica = get_new_node('replica');
$node_replica = PostgreSQL::Test::Cluster->new('replica');
$node_replica->init_from_backup($node_primary, $backup_name, has_streaming => 1);
$node_replica->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $dim = 3;
@@ -15,7 +15,7 @@ for (1 .. $dim)
my $array_sql = join(", ", @r);
# Initialize node
my $node = get_new_node('node');
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $node;
@@ -49,7 +49,7 @@ sub test_recall
}
# Initialize node
$node = get_new_node('node');
$node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $node;
@@ -48,7 +48,7 @@ sub test_recall
}
# Initialize node
$node = get_new_node('node');
$node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,11 +1,11 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
# Initialize node
my $node = get_new_node('node');
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,11 +1,11 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
# Initialize node
my $node = get_new_node('node');
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $dim = 768;
@@ -9,7 +9,7 @@ my $dim = 768;
my $array_sql = join(",", ('random()') x $dim);
# Initialize node
my $node = get_new_node('node');
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,11 +1,11 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
# Initialize node
my $node = get_new_node('node');
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $dim = 3;
@@ -11,7 +11,7 @@ my $limit = 20;
my $array_sql = join(",", ('random()') x $dim);
# Initialize node
my $node = get_new_node('node');
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -3,8 +3,8 @@
# Test generic xlog record work for hnsw index replication.
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $dim = 32;
@@ -49,7 +49,7 @@ sub test_index_replay
my $array_sql = join(",", ('random()') x $dim);
# Initialize primary node
$node_primary = get_new_node('primary');
$node_primary = PostgreSQL::Test::Cluster->new('primary');
$node_primary->init(allows_streaming => 1);
if ($dim > 32)
{
@@ -67,7 +67,7 @@ my $backup_name = 'my_backup';
$node_primary->backup($backup_name);
# Create streaming replica linking to primary
$node_replica = get_new_node('replica');
$node_replica = PostgreSQL::Test::Cluster->new('replica');
$node_replica->init_from_backup($node_primary, $backup_name, has_streaming => 1);
$node_replica->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $dim = 3;
@@ -15,7 +15,7 @@ for (1 .. $dim)
my $array_sql = join(", ", @r);
# Initialize node
my $node = get_new_node('node');
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $node;
@@ -47,7 +47,7 @@ sub test_recall
}
# Initialize node
$node = get_new_node('node');
$node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $node;
@@ -47,7 +47,7 @@ sub test_recall
}
# Initialize node
$node = get_new_node('node');
$node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $node;
@@ -48,7 +48,7 @@ sub test_recall
}
# Initialize node
$node = get_new_node('node');
$node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,11 +1,11 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
# Initialize node
my $node = get_new_node('node');
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
# Ensures elements and neighbors on both same and different pages
@@ -10,7 +10,7 @@ my $dim = 1900;
my $array_sql = join(",", ('random()') x $dim);
# Initialize node
my $node = get_new_node('node');
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $dim = 3;
@@ -11,7 +11,7 @@ my $limit = 20;
my $array_sql = join(",", ('random()') x $dim);
# Initialize node
my $node = get_new_node('node');
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,11 +1,11 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
# Initialize node
my $node = get_new_node('node');
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,13 +1,13 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $dim = 1024;
# Initialize node
my $node = get_new_node('node');
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $node;
@@ -51,7 +51,7 @@ sub test_recall
}
# Initialize node
$node = get_new_node('node');
$node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $node;
@@ -51,7 +51,7 @@ sub test_recall
}
# Initialize node
$node = get_new_node('node');
$node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $node;
@@ -51,7 +51,7 @@ sub test_recall
}
# Initialize node
$node = get_new_node('node');
$node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,11 +1,11 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
# Initialize node
my $node = get_new_node('node');
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $node;
@@ -48,7 +48,7 @@ sub test_recall
}
# Initialize node
$node = get_new_node('node');
$node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $node;
@@ -48,7 +48,7 @@ sub test_recall
}
# Initialize node
$node = get_new_node('node');
$node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $node;
@@ -48,7 +48,7 @@ sub test_recall
}
# Initialize node
$node = get_new_node('node');
$node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,11 +1,11 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
# Initialize node
my $node = get_new_node('node');
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $node;
@@ -47,7 +47,7 @@ sub test_recall
}
# Initialize node
$node = get_new_node('node');
$node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $node;
@@ -47,7 +47,7 @@ sub test_recall
}
# Initialize node
$node = get_new_node('node');
$node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $node;
@@ -48,7 +48,7 @@ sub test_recall
}
# Initialize node
$node = get_new_node('node');
$node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,11 +1,11 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
# Initialize node
my $node = get_new_node('node');
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $node;
@@ -51,7 +51,7 @@ sub test_recall
}
# Initialize node
$node = get_new_node('node');
$node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,14 +1,14 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $node;
my $array_sql = join(",", ('floor(random() * 2)::int - 1') x 3);
# Initialize node
$node = get_new_node('node');
$node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $node;
@@ -10,7 +10,7 @@ my $dim = 5;
my $array_sql = join(",", ('floor(random() * 4)::int - 2') x $dim);
# Initialize node
$node = get_new_node('node');
$node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,7 +1,7 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
my $node;
@@ -51,7 +51,7 @@ sub test_recall
}
# Initialize node
$node = get_new_node('node');
$node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,11 +1,11 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
# Initialize node
my $node = get_new_node('node');
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,11 +1,11 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
# Initialize node
my $node = get_new_node('node');
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

View File

@@ -1,11 +1,11 @@
use strict;
use warnings;
use PostgresNode;
use TestLib;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;
# Initialize node
my $node = get_new_node('node');
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;