Test results from the CPAN

API-Plesk

view release on metacpan or search on metacpan

    requires    => {
        'Module::Build'   => 0,
        'Data::Dumper'    => 0,
        'LWP::UserAgent'  => 0,
        'HTTP::Request'   => 0,
        'Carp'            => 0,
        'XML::Fast'       => 0,
        'version'         => 0,
    },
    build_requires => {
        'Test::More'       => 0,
        'Test::LongString' => 0,
        'URI'              => 0,
    },
    create_makefile_pl => 'traditional',
);

$build->create_build_script;

Changes view on Meta::CPAN

1.09 2009-07-28

    - Add Mail/DB/DBUsers/Domains export from Plesk

1.08 2009-07-23

    - Patch from Nikolay Shulyakovskiy

1.07 2008-07-31

    - Fixed Build.PL (Test::LongString not in prereqs_build  list but required )
    - Add URI.pm as required module for test stage

1.06 2008-07-13
    
    - More improvements in tests
    - Get user domains list by login or client id

1.05 2008-06-15

    - Added full support operations with databases and db users

MANIFEST view on Meta::CPAN

t/site.t
t/sitebuilder.t
t/site-alias.t
t/ftp_user.t
t/webuser.t
t/webspace.t
t/dns.t
t/mail.t 
t/service-plan.t
t/user.t
t/TestData.pm
META.json

META.json view on Meta::CPAN

      "perl_5"
   ],
   "meta-spec" : {
      "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
      "version" : "2"
   },
   "name" : "API-Plesk",
   "prereqs" : {
      "build" : {
         "requires" : {
            "Test::LongString" : "0",
            "Test::More" : "0",
            "URI" : "0"
         }
      },
      "configure" : {
         "requires" : {
            "Module::Build" : "0.40"
         }
      },
      "runtime" : {
         "requires" : {

META.yml view on Meta::CPAN

---
abstract: 'OO interface to the Plesk XML API (http://www.parallels.com/en/products/plesk/).'
author:
  - 'Ivan Sokolov <ivsokolov@cpan.org>'
build_requires:
  Test::LongString: 0
  Test::More: 0
  URI: 0
configure_requires:
  Module::Build: 0.40
dynamic_config: 1
generated_by: 'Module::Build version 0.4003, CPAN::Meta::Converter version 2.120921'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: API-Plesk

Makefile.PL view on Meta::CPAN

WriteMakefile
(
  'NAME' => 'API::Plesk',
  'VERSION_FROM' => 'lib/API/Plesk.pm',
  'PREREQ_PM' => {
                   'Carp' => 0,
                   'Data::Dumper' => 0,
                   'HTTP::Request' => 0,
                   'LWP::UserAgent' => 0,
                   'Module::Build' => 0,
                   'Test::LongString' => 0,
                   'Test::More' => 0,
                   'URI' => 0,
                   'XML::Fast' => 0,
                   'version' => 0
                 },
  'INSTALLDIRS' => 'site',
  'EXE_FILES' => [],
  'PL_FILES' => {}
)
;

t/TestData.pm view on Meta::CPAN

package TestData;

use Test::More;
use API::Plesk;

#
# Support sub`s and data for tests
#

our @EXPORT = qw(
    delete_all_accounts
    create_unique_user_data
    _compare

t/compoment.t view on Meta::CPAN

use strict;
use warnings;

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

use lib 't';
use TestData;

BEGIN {
    plan tests => 10;
    use_ok( 'API::Plesk::Component' );
}

my $c = API::Plesk::Component->new(
    plesk => API::Plesk->new(%TestData::plesk_valid_params)
);

eval {
    $c->check_required_params({ test => 123}, qw(test));
};
ok(!$@);

eval {
    $c->check_required_params({ test => 123, test2 => 123}, [qw(test ddd)]);
};

t/customer.t view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

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

use lib 't';
use TestData;

BEGIN { 
    plan tests => 3;
    use_ok('API::Plesk::Customer'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

my $customers = API::Plesk::Customer->new( plesk => $api );

isa_ok($customers, 'API::Plesk::Customer');

is_deeply(
    $customers->get(id => 1, bulk_send => 1),
    { 
        filter => {id => 1},
        dataset => [ {gen_info => ''}, {stat => ''} ]

t/database.t view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

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

use lib qw(lib t);
use TestData;

BEGIN { 
    plan tests => 6;
    use_ok('API::Plesk::Database'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

isa_ok($api->database, 'API::Plesk::Database');

is_deeply(
    $api->database->add_db(
        'webspace-id' => 1,
        name => 'test_db',
        type => 'MySQL',
        bulk_send => 1
    ),

t/dns.t view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

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

use lib 't';
use TestData;

BEGIN { 
    plan tests => 2;
    use_ok('API::Plesk::DNS'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

isa_ok($api->dns, 'API::Plesk::DNS');

t/ftp_user.t view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

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

use lib 't';
use TestData;

BEGIN { 
    plan tests => 2;
    use_ok('API::Plesk::FTPUser'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

isa_ok($api->ftp_user, 'API::Plesk::FTPUser');

t/mail.t view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

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

use lib 't';
use TestData;

BEGIN { 
    plan tests => 4;
    use_ok('API::Plesk::Mail'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

isa_ok($api->mail, 'API::Plesk::Mail');

is_deeply(
    $api->mail->enable(
        site_id => 123,
        bulk_send => 1,
    ),
    { 
        site_id => 123,

t/mock.t view on Meta::CPAN

use strict;
use warnings;

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

use lib qw(t lib);
use TestData;

BEGIN {
    plan tests => 6;
    use_ok( 'API::Plesk::Mock' );
}

my $api = API::Plesk::Mock->new( %TestData::plesk_valid_params );

isa_ok( $api, 'API::Plesk::Mock', 'STATIC call new' );

$api->mock_response('some xml');
is($api->mock_response, 'some xml');

$api->mock_error('some error');
is($api->mock_error, 'some error');

t/plesk.t view on Meta::CPAN

use strict;
use warnings;

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

use lib qw(t lib);
use TestData;

BEGIN {
    plan tests => 8;
}

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

my $api = API::Plesk->new( %TestData::plesk_valid_params );

isa_ok( $api, 'API::Plesk', 'STATIC call new' );

my $yet_another_api = $api->new( %TestData::plesk_valid_params );

isa_ok( $api, 'API::Plesk', 'INSTANCE call new' );
isnt( $api, $yet_another_api, 'object compare' );

# render_xml

is($api->render_xml({
    webspace => {
        add => [
            { gen_setup => [

t/response.t view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

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

use lib 't';
use TestData;
use XML::Fast;

BEGIN { 
    plan tests => 17;

    use_ok('API::Plesk::Response'); 
}

isa_ok(
    API::Plesk::Response->new(

t/service-plan.t view on Meta::CPAN

#!/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::ServicePlan'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

isa_ok($api->service_plan, 'API::Plesk::ServicePlan');

is_deeply(
    $api->service_plan->set(
        filter => { name => '123' },
        hosting     => {
            type       => 'vrt_hst',
            ftp_login  => '123',
            ftp_password => '123',

t/site-alias.t view on Meta::CPAN

#!/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
    ),
    {

t/site.t view on Meta::CPAN

#!/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::Site'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

isa_ok($api->site, 'API::Plesk::Site');

is_deeply(
    $api->site->add(
        gen_setup => {
            name => 'test.ru',
            'webspace-name' => 'main.ru',
        },
        hosting => {

t/sitebuilder.t view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

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

use lib 't';
use TestData;

BEGIN { 
    plan tests => 2;
    use_ok('API::Plesk::SiteBuilder'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

isa_ok($api->sitebuilder, 'API::Plesk::SiteBuilder');

t/user.t view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

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

use lib 't';
use TestData;

BEGIN { 
    plan tests => 3;
    use_ok('API::Plesk::User'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

my $users = $api->user;

isa_ok($users, 'API::Plesk::User');

is_deeply(
    $users->get(guid => 1, bulk_send => 1),
    { 
        filter => {guid => 1},
        dataset => [ {'gen-info' => ''}, {roles => ''} ]

t/webspace.t view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

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

use lib 't';
use TestData;

BEGIN { 
    plan tests => 7;
    use_ok('API::Plesk::Webspace'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

isa_ok($api->webspace, 'API::Plesk::Webspace');

is_deeply(
    $api->webspace->add(
        'plan-name' => '123',
        gen_setup   => {
            name          => '123',
            ip_address    => '123',
            'owner-login' => '123',

t/webuser.t view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

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

use lib 't';
use TestData;

BEGIN { 
    plan tests => 2;
    use_ok('API::Plesk::WebUser'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

isa_ok($api->webuser, 'API::Plesk::WebUser');

( run in 0.717 second using v1.01-cache-2.11-cpan-4d50c553e7e )