# $Id: 16-dlv.t 778 2008-12-30 17:19:35Z olaf $                 -*-perl-*-
#
#
#  These are test that relate to DLV RRs.
# Mainly used during implementation of the SHA256 algorithm


use Test::More; 
use strict;

use Net::DNS;

plan tests=>2;


my $dnskeyrr=Net::DNS::RR->new('dskey.example.com. 86400 IN DNSKEY 256 3 5 (
                                                AQOeiiR0GOMYkDshWoSKz9Xz
                                                fwJr1AYtsmx3TGkJaNXVbfi/
                                                2pHm822aJ5iI9BMzNXxeYCmZ
                                                DRD99WYwYqUSdjMmmAphXdvx
                                                egXd/M5+X7OrzKBaMbCVdFLU
                                                Uh6DhweJBjEVv5f2wwjM9Xzc
                                                nOf+EPbtG9DMBmADjFDc2w/r
                                                ljwvFw==
                                                ) ;  key id = 60485');

my $dsrr=Net::DNS::RR->new('dskey.example.com. 86400 IN DLV 60485 5 2 ( 
                                                D4B7D520E7BB5F0F67674A0C
                                                CEB1E3E0614B93C4F9E99B83
                                                83F6A1E4469DA50A )');


$dsrr->print;
ok($dsrr->verify($dnskeyrr),"Validated the SHA256 DLV");


my $newdsrr=create Net::DNS::RR::DLV($dnskeyrr,
	(
	 digtype => "SHA256"
	)
    );
ok($newdsrr->verify($dnskeyrr),"Validated the second SHA256 DLV");