#!/usr/bin/env perl

use strict;
use warnings FATAL   => 'all';
use Test::More tests => 3;
use Test::Deep;
use WWW::eNom;

my $enom = WWW::eNom->new(
    username => "resellid",
    password => "resellpw",
    test     => 1
);

my $response = $enom->Check( Domain => "enom.*1" );
cmp_deeply(
    $response->{Domain},
    [qw(enom.com enom.net enom.org enom.info enom.biz)],
    "Domain check returned sensible response."
);

$response = $enom->Check( DomainFFFFFF => "enom.*1" );
is( $response->{ErrCount}, 1,
    "Domain check with missing parameter threw one error" );
cmp_deeply(
    $response->{errors},
    ["An SLD and TLD must be entered"],
    "Domain check with missing parameter returned an error response."
);