timescaledb/test/perl/AccessNode.pm
Mats Kindahl 58b1eb83d4 Add TimescaleNode subclasses for TAP Testing
Use subclassing to inherit from `PostgresNode` and create a hierarchy
containing `AccessNode` and `DataNode` to simplify creating tests with
multiple nodes.

Also, two new functions are added:

`TimescaleNode::create`: Creates the new node by calling
`get_new_node`, `init` and `start` in that order.

`AccessNode::add_data_node`: Adds a new data node to the access node.

Also rewrite the test to use the new hierarchy.
2021-05-21 13:20:24 +02:00

22 lines
490 B
Perl

# This file and its contents are licensed under the Timescale License.
# Please see the included NOTICE for copyright information and
# LICENSE-TIMESCALE for a copy of the license.
package AccessNode;
use parent qw(TimescaleNode);
use strict;
use warnings;
sub add_data_node
{
my ($self, $dn) = @_;
my $name = $dn->name;
my $host = $dn->host;
my $port = $dn->port;
$self->safe_psql('postgres',
"SELECT add_data_node('$name', host => '$host', port => $port)");
return $self;
}
1;