blob: a0290f6ef5533e680b04321e1a84e2c2091ca48a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
use Test::More;
use Test::Fatal;
use strict;
use warnings;
BEGIN { use_ok("Net::LDNS")}
SKIP: {
skip 'no network', 2 if $ENV{TEST_NO_NETWORK};
my $s = Net::LDNS->new( '8.8.8.8' );
isa_ok( $s, 'Net::LDNS' );
like( exception { $s->query( 'xx--example..', 'A' ) }, qr/Invalid domain name: xx--example../, 'Died on invalid name');
}
done_testing;
|