Lines Matching refs:why

41     my ($err, $why) = $self->is_in_badhelo('yahoo.com');
42 ok( $err, "yahoo.com, $why");
44 ($err, $why) = $self->is_in_badhelo('example.com');
51 my ($err, $why) = $self->is_regex_match('yahoo.com', 'ya.oo\.com$' );
52 ok( $err, "yahoo.com, $why");
54 ($err, $why) = $self->is_regex_match('yoda.com', 'ya.oo\.com$' );
57 ($err, $why) = $self->is_regex_match('host-only', '!\.' );
58 ok( $err, "negated pattern, $why");
65 my ($err, $why) = $self->invalid_localhost('localhost' );
66 ok( $err, "localhost, undefined remote IP: $why");
69 ($err, $why) = $self->invalid_localhost('localhost' );
70 ok( $err, "localhost, empty remote IP: $why");
73 ($err, $why) = $self->invalid_localhost('localhost');
74 ok( $err, "localhost, invalid remote IP: $why");
77 ($err, $why) = $self->invalid_localhost('localhost');
84 my ($err, $why) = $self->is_plain_ip('0.0.0.0');
85 ok( $err, "plain IP, $why");
87 ($err, $why) = $self->is_plain_ip('255.255.255.255');
88 ok( $err, "plain IP, $why");
90 ($err, $why) = $self->is_plain_ip('[255.255.255.255]');
97 my ($err, $why) = $self->is_address_literal('[0.0.0.0]');
98 ok( $err, "plain IP, $why");
100 ($err, $why) = $self->is_address_literal('[255.255.255.255]');
101 ok( $err, "plain IP, $why");
103 ($err, $why) = $self->is_address_literal('255.255.255.255');
110 my ($err, $why) = $self->no_forward_dns('perl.org');
114 ($err, $why) = $self->no_forward_dns('perl.org.test');
121 my ($err, $why) = $self->no_reverse_dns('test-host', '192.0.2.0');
122 ok( $err, "192.0.2.0, $why");
124 ($err, $why) = $self->no_reverse_dns('test-host', '192.0.2.1');
125 ok( $err, "192.0.2.1, $why");
127 ($err, $why) = $self->no_reverse_dns('mail.theartfarm.com', '208.75.177.101');
137 my ($err, $why) = $self->no_matching_dns('matt.test');
138 ok( $err, "fail, $why");
141 ($err, $why) = $self->no_matching_dns('matt.test');