# This is -*- perl -*-

use Net::DNS;
use Net::DNS::ZoneFile::Fast;
use Test::More tests => 4;

my $zone = q{
$ORIGIN choicecarecard.com.
dddwww		IN	A	199.93.70.72
		IN	A	199.93.70.210
};

my $rrset = Net::DNS::ZoneFile::Fast::parse($zone);

ok(defined $rrset, "Parsing of the zone file");
ok(@$rrset == 2, "Correct number of records");
ok($rrset->[0]->string 
   eq Net::DNS::RR->new("dddwww.choicecarecard.com. 0 IN A 199.93.70.72")->string,
   "First dummy RR is ok");

ok($rrset->[1]->string 
   eq Net::DNS::RR->new("dddwww.choicecarecard.com. 0 IN A 199.93.70.210")->string,
   "Second dummy RR is ok");


