#
# test for replication and group sandbox port checking
#
my $TEST_VERSION = $ENV{TEST_VERSION};
my ($bare_version, $version) = get_bare_version ($TEST_VERSION);
my $SANDBOX_HOME= $ENV{SANDBOX_HOME} || "$ENV{HOME}/sandboxes";


ok_exec({
command     => "make_sandbox $TEST_VERSION -- --sandbox_port=8000 --no_confirm",
expected    => 'sandbox server started',
msg         => 'server 1 started',
});

ok_exec({
command     => "make_sandbox $TEST_VERSION -- --sandbox_port=8000 --check_port --no_confirm",
expected    => 'sandbox server started',
msg         => 'server 2 started',
});

ok_sql({
path        => "$SANDBOX_HOME/msb_${version}/",
query       => "show variables like 'port'",
expected    => '8000',
msg         => 'right port on server 1',
});

ok_sql({
path        => "$SANDBOX_HOME/msb_${version}_a",
query       => "show variables like 'port'",
expected    => "8001",
msg         => 'right port on server 2',
});

ok_exec ({
command     => "sbtool -o delete -s $SANDBOX_HOME/msb_${version}/",
expected    => 'has been removed',
msg         => 'server 1 stopped and removed',
});

ok_exec({
command     => "sbtool -o delete -s $SANDBOX_HOME/msb_${version}_a",
expected    => "has been removed",
msg         => "server 2 stopped and removed",
});