#!/usr/bin/perl -w
# vim: filetype=perl
# Deliberately trigger errors.
use strict;
sub POE::Kernel::CATCH_EXCEPTIONS () { 0 }
use POE qw(Component::Client::DNS);
use Test::More tests => 10;
use Test::NoWarnings;
# Avoid a warning.
POE::Kernel->run();
{
eval { POE::Component::Client::DNS->spawn(1); };
my $err = $@;
$err =~ s/ at \S+ line \d+.*//s;
is(
$err, "POE::Component::Client::DNS requires an even number of parameters"
);
}
{
eval { POE::Component::Client::DNS->spawn(moo => "nope"); };
my $err = $@;
$err =~ s/ at \S+ line \d+.*//s;
is(
$err, "POE::Component::Client::DNS doesn't know these parameters: moo"
);
}
my $resolver = POE::Component::Client::DNS->spawn();
{
eval {
$poe_kernel->call(
"resolver", "resolve", {
}
);
};
my $err = $@;
$err =~ s/ at \S+ line \d+.*//s;
is($err, "Must include an 'event' in Client::DNS request");
}
{
eval {
$poe_kernel->call(
"resolver", "resolve", {
event => "moo",
}
);
};
my $err = $@;
$err =~ s/ at \S+ line \d+.*//s;
is($err, "Must include a 'context' in Client::DNS request");
}
{
eval {
$poe_kernel->call(
"resolver", "resolve", {
event => "moo",
context => "bar",
}
);
};
my $err = $@;
$err =~ s/ at \S+ line \d+.*//s;
is($err, "Must include a 'host' in Client::DNS request");
}
{
eval {
$resolver->resolve(1);
};
my $err = $@;
$err =~ s/ at \S+ line \d+.*//s;
is($err, "resolve() needs an even number of parameters");
}
{
eval {
$resolver->resolve();
};
my $err = $@;
$err =~ s/ at \S+ line \d+.*//s;
is($err, "resolve() must include an 'event'");
}
{
eval {
$resolver->resolve(
event => "moo",
);
};
my $err = $@;
$err =~ s/ at \S+ line \d+.*//s;
is($err, "resolve() must include a 'context'");
}
{
eval {
$resolver->resolve(
event => "moo",
context => "bar",
);
};
my $err = $@;
$err =~ s/ at \S+ line \d+.*//s;
is($err, "resolve() must include a 'host'");
}
exit;