#!/usr/bin/env perl
use strict;
use warnings FATAL => "all";
use Test::More tests => 3;
use Test::Exception;
use WWW::eNom;
throws_ok {
WWW::eNom->new(
username => "resellid",
password => "resellpw",
test => 1,
response_type => "json" )
} qr/response_type must be one of/, "Unsupported response type caught okay.";
my $enom;
lives_ok {
$enom = WWW::eNom->new(
username => "resellid",
password => "resellpw",
test => 1,
response_type => "html" )
} "Supported response type okay.";
SKIP: {
eval { require HTML::Parser; HTML::Parser->VERSION(v3.67) };
skip "HTML::Parser required for testing", 1 if $@;
my $response = $enom->Check( Domain => "perl.org" );
my $html = HTML::Parser->new;
lives_ok {
$html->parse($response);
$html->eof;
} "HTML response okay" }