#!/usr/bin/perl

use strict;
use warnings;

use Carp;
use Test::More;
use Test::LongString;
use Data::Dumper;

use lib 't';
use TestData;

BEGIN {
    plan tests => 4;
}

BEGIN { use_ok( 'API::Plesk::Domains' ); }

is_string(
    API::Plesk::Domains::create(
        dname        => 'yandex.ru',
        ip           => '192.168.1.99',
        client_id    =>  12345,
        ftp_login    => 'asdasdad',
        ftp_password => 'qwertsdasy',
        template     => 'tariff1',
    ),

    '<domain><add><gen_setup><client_id>12345</client_id><htype>vrt_hst</htype>' . 
    '<ip_address>192.168.1.99</ip_address><name>yandex.ru</name><status>0</status>' .
    '</gen_setup><hosting><vrt_hst><ftp_login>asdasdad</ftp_login>' .
    '<ftp_password>qwertsdasy</ftp_password><ip_address>192.168.1.99</ip_address>' .
    '</vrt_hst></hosting><template-name>tariff1</template-name></add></domain>',

    'API::Plesk::Domains::create test'
);




is_string(
    API::Plesk::Domains::get(
        client_id => 123
    ),
    
    '<domain><get><filter><client_id>123</client_id></filter><dataset></dataset></get></domain>',
    'get domains by client_id test',
);


is_string(
    API::Plesk::Domains::get(
        client_login => 'nrg'
    ),
    
    '<domain><get><filter><client_login>nrg</client_login></filter><dataset></dataset></get></domain>',
    'get domains gy client_login test',
);