NAME
Test::Instance::DNS - Mock DNS server for testing
SYNOPSIS
use Test::More;
use Test::DNS;
use Test::Instance::DNS;
my $t_i_dns = Test::Instance::DNS->new(
listen_addr => '127.0.0.1',
zone_file => 't/etc/db.example.com',
);
$t_i_dns->run;
my $dns = Test::DNS->new(nameservers => ['127.0.0.1']);
$dns->object->port($t_i_dns->listen_port);
$dns->is_a('example.com' => '192.0.2.1');
done_testing;DESCRIPTION
Provides a local mock DNS server usable for testing.
AUTHOR
Tom Bloor <t.bloor@shadowcat.co.uk>
COPYRIGHT
Copyright 2018- Tom Bloor
LICENSE
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.