Would you be so kind to apply this patch and try again?
--Olaf
--- t/08-online.t (revision 616)
+++ t/08-online.t (working copy)
@@ -65,7 +65,13 @@
foreach my $meth (keys %{$data}) {
+ if ($meth eq "name"){
+ #names should be case insensitive
+ is(lc($answer->$meth()),lc($data->{$meth}), "$meth
correct ($data->{name})");
+ }else{
is($answer->$meth(), $data->{$meth}, "$meth correct
($data->{name})");
+ }
+
}
}
@@ -75,7 +81,7 @@
my $wanted_names = [qw(a.t.net-dns.org a2.t.net-dns.org)];
my $names = [ map { $_->exchange } @mx ];
-is_deeply($names, $wanted_names, "mx() seems to be working");
+is_deeply(lc($names), lc($wanted_names), "mx() seems to be working");
# some people seem to use mx() in scalar context
is(scalar mx('mx2.t.net-dns.org'), 2, "mx() works in scalar context");
@@ -103,7 +109,7 @@
next unless $packet;
- is(($packet->answer)[0]->ptrdname, $test->
{'host'}, "$method($test->{'ip'}) works");
+ is(lc(($packet->answer)[0]->ptrdname),lc
($test->{'host'}), "$method($test->{'ip'}) works");
}
}
}
@@ -151,7 +157,7 @@
my ($a) = $ans->answer;
isa_ok($a, 'Net::DNS::RR::A');
- is($a->name, 'a.t.net-dns.org',"Correct name (with
$method)");
+ is(lc($a->name), 'a.t.net-dns.org',"Correct name
(with $method)");
}
# $res->debug(1);
my $socket=$res->bgsend('a.t.net-dns.org','A');
@@ -183,7 +189,7 @@
my ($a) = $ans->answer;
isa_ok($a, 'Net::DNS::RR::A');
- is($a->name, 'a.t.net-dns.org',"Correct name");
+ is(lc($a->name), 'a.t.net-dns.org',"Correct name");
}
}
@@ -232,7 +238,7 @@
my ($a) = $ans->answer;
isa_ok($a, 'Net::DNS::RR::A');
- is($a->name, 'a.t.net-dns.org',"Correct name (with
persistent socket and $method)");
+ is(lc($a->name), 'a.t.net-dns.org',"Correct name
(with persistent socket and $method)");
}
Message body not shown because it is not plain text.
RT for rt.cpan.org