use strict;
use warnings;

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

use lib 't';
use TestData;

my $allow_plesk_onlite_tests;
my %data_accumulator_for_online_tests;


BEGIN {
    $allow_plesk_onlite_tests = $ENV{'online'};

    plan tests => 11;
}

BEGIN {
    use_ok( 'API::Plesk' );
    use_ok( 'API::Plesk::Response' );
    use_ok( 'API::Plesk::Complex' );
}

SKIP: {

    skip "This test require internet connection! See README", 8 if !$allow_plesk_onlite_tests;

    #
    # Tests for tariff change!
    #

    my $new_plesk_client = API::Plesk->new(%TestData::online_plesk_valid_params);

    delete_all_accounts($new_plesk_client);
    create_work_logins($new_plesk_client, \%data_accumulator_for_online_tests);

    is_deeply(
        API::Plesk::Complex::change_tariff(
            $new_plesk_client,
            from    => $TestData::online_new_tariff_name,
            to      => $TestData::online_manual_created_template_name,
            id      => $data_accumulator_for_online_tests {user_id_from_create_with_tmpl_name},
        )->get_error_string,
        'Error, new limit < source limit!',
        'Change account tariff with error query !'
    );


    ok(
        API::Plesk::Complex::change_tariff(
            $new_plesk_client,
            from    => $TestData::online_manual_created_template_name,
            to      => $TestData::online_new_tariff_name,
            id      => $data_accumulator_for_online_tests {user_id_from_create_with_tmpl_name},
        )->is_success,
        'Change account tariff!'
    );


    is_deeply(
        API::Plesk::Complex::change_tariff(
            $new_plesk_client,
            from    => $TestData::online_manual_created_template_name,
            to      => $TestData::online_new_tariff_name,
        )->get_error_string,
        'Not enought data for tariff change!',
        'Try to change tariff without user_id'
    );


    is_deeply(
        API::Plesk::Complex::change_tariff(
            $new_plesk_client,
            from    => 'some_tarif_34234',
            to      => $TestData::online_new_tariff_name,
            id      => $data_accumulator_for_online_tests {user_id_from_create_with_tmpl_name},
        )->get_error_string,
        'Get source template data failed',
        'Change account tariff form non exists tariff!'
    );


    is_deeply(
        API::Plesk::Complex::change_tariff(
            $new_plesk_client,
            from    => $TestData::online_manual_created_template_name,
            to      => 'some_tarif_34234',
            id      => $data_accumulator_for_online_tests {user_id_from_create_with_tmpl_name},
        )->get_error_string,
        'Get result template data failed',
        'Change account tariff to non exists tariff!'
    );
} # SKIP