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