The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

my $dir_name = 'msb_XXXX';
my $ver = '5.5.31';
my $TEST_VERSION = $ENV{TEST_VERSION} || $ver;
my @users = (
'newuser@127.0.0.1',
'newuser',
);
for my $user (@users) {
my $custom_user_name= $user;
my $custom_password= 'newpassword';
ok_exec( {
command => "make_sandbox $TEST_VERSION -- "
." --no_confirm "
." --sandbox_directory=$dir_name "
." --db_user=$custom_user_name "
." --db_password=$custom_password ",
expected => 'sandbox server started',
msg => "custom server started"
});
$ENV{MYCLIENT_OPTIONS} = '-h 127.0.0.1';
ok_sql({
path => "$sandbox_home/$dir_name",
query => "SELECT 10 * 10",
expected => "100",
msg => 'server is accessible',
});
# $ENV{MYCLIENT_OPTIONS} = '';
ok_exec( {
command => "sbtool -o delete -s $sandbox_home/$dir_name ",
expected => 'has been removed',
msg => "$dir_name removed"
});
}