1#!/usr/local/bin/perl -w
2
3use strict;
4
5use DNS::Zone::File;
6
7print "1..2\n";
8
9my $zf = new DNS::Zone::File(
10	'type' => 'default',
11	'zone' => 'zonemaster.org',
12	'file' => 't/data/zonemaster.org'
13) or die "not ok 1\n";
14
15print "ok 1\n";
16
17$zf->parse() or die "not ok 2\n";
18
19my $zone = $zf->zone();
20
21print "ok 2\n" if(defined $zone && $zone);
22
23