#!/usr/local/bin/perl -w

no warnings 'portable';
use 5.6.0;
use strict;
use warnings;

use DNS::Config::File;

print "1..3\n";

my $cfg = new DNS::Config::File(
	'type' => 'Bind9',
   'file' => 't/data/named.conf'
) or die "not ok 1\n";

print "ok 1\n";

$cfg->parse() or die "not ok 2\n";

print "ok 2\n";

my $config=$cfg->config();

print "ok 3\n" if(defined $config && $config);