23 lines
519 B
Perl
23 lines
519 B
Perl
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Test::More;
|
||
|
|
use Zonemaster::LDNS;
|
||
|
|
|
||
|
|
SKIP: {
|
||
|
|
skip 'no network', 1 unless $ENV{TEST_WITH_NETWORK};
|
||
|
|
|
||
|
|
my $host = '192.134.4.1'; #ns1.nic.fr with nsid: ns1.th3.nic.fr
|
||
|
|
my $expected_nsid = "ns1.th3.nic.fr";
|
||
|
|
|
||
|
|
my $pkt = Zonemaster::LDNS::Packet->new('domain.example');
|
||
|
|
$pkt->nsid; # set the NSID EDNS option
|
||
|
|
my $res = Zonemaster::LDNS->new($host)->query_with_pkt($pkt);
|
||
|
|
|
||
|
|
my $nsid = $res->get_nsid();
|
||
|
|
|
||
|
|
is( $nsid, $expected_nsid, 'Correct NSID' );
|
||
|
|
};
|
||
|
|
|
||
|
|
done_testing();
|