1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
#!/usr/bin/perl -w
# $Id: 04_errors.t 53 2005-12-05 18:34:05Z rcaputo $
# vim: filetype=perl
# Deliberately trigger errors.
use strict;
sub POE::Kernel::CATCH_EXCEPTIONS () { 0 }
use POE qw(Component::Client::DNS);
use Test::More tests => 9;
# 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 = $@;
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;
|
