#!perl -T

use Test::More 'no_plan';
use Data::Dumper;
use lib 't/lib';

BEGIN {
    use_ok( 'WebService::FC2::SpamAPI' );
}

my $api = WebService::FC2::SpamAPI->new();
my $r = $api->check_url('http//example.com/');
isa_ok( $r, 'WebService::FC2::SpamAPI::Response' );
is( $r->is_spam, 0 );

$r = $api->check_url({ url => 'http//example.com/' });
isa_ok( $r, 'WebService::FC2::SpamAPI::Response' );
is( $r->is_spam, 0 );

my @r = $api->get_url_list();
ok( @r );
isa_ok( $r[0], 'WebService::FC2::SpamAPI::Response' );

@r = $api->get_domain_list({ dm => 'example.com' });
is( scalar @r, 0 );