view release on metacpan or  search on metacpan

t/1.t  view on Meta::CPAN

use Data::Dumper;

use Test::More tests => 8;

use lib "../lib/";
use App::DDNS::Namecheap;

my $domain = 'mysite.org';
my $password = 'abcdefghijklmnopqrstuvwxyz123456';
my $hosts = [ '@', 'www', '*' ];
my $ip = '127.0.0.1';

my $update = App::DDNS::Namecheap->new( domain => $domain, password => $password, hosts => $hosts );
ok( defined $update );
ok( $update->isa('App::DDNS::Namecheap'));

$update = App::DDNS::Namecheap->new( domain => $domain, password => $password, hosts => $hosts, ip => $ip );
ok( defined $update );

ok( $update->isa('App::DDNS::Namecheap'));
ok( $update->{domain} eq $domain );
ok( $update->{password} eq $password );
ok( $update->{hosts} ~~ $hosts );
ok( $update->{ip} eq $ip );