#!/usr/bin/perl
use strict;
use warnings;
use Carp;
use Test::More;
use Data::Dumper;
use lib 't';
use TestData;
BEGIN {
plan tests => 5;
use_ok('API::Plesk::SiteAlias');
}
my $api = API::Plesk->new( %TestData::plesk_valid_params );
isa_ok($api->site_alias, 'API::Plesk::SiteAlias');
is_deeply(
$api->site_alias->create(
'site-id' => 12345,
name => 'www.ru',
bulk_send => 1
),
{
'site-id' => 12345,
name => 'www.ru',
},
'create'
);
is_deeply(
$api->site_alias->set(
filter => {'site-id' => 'test.ru'},
settings => { status => 1 },
bulk_send => 1
),
{
filter => {'site-id' => 'test.ru'},
settings => { status => 1 },
},
'set'
);
is_deeply(
$api->site_alias->del(
'site-id' => 123,
bulk_send => 1
),
{
filter => {'site-id' => 123},
},
'del'
);