# $Id: 21-TSIG-create.t 1439 2015-12-07 10:37:41Z willem $	-*-perl-*-

use strict;

use Test::More;

use Net::DNS;

my @prerequisite = qw(

		Digest::HMAC

		Digest::MD5

		Digest::SHA

		MIME::Base64

		);

foreach my $package (@prerequisite) {

	next if eval "require $package";

	plan skip_all => "$package not installed";

	exit;

}

plan tests => 11;

my $tsig = new Net::DNS::RR( type => 'TSIG' );

my $class = ref($tsig);

{

	my $keyname = 'keyname.example';

	my $keytext = 'xdX9m8UtQNbJUzUgQ4xDtUNZAmU=';

	my $tsig    = create $class( $keyname, $keytext );

	is( ref($tsig), $class, 'create TSIG from argument list' );

}

my $privatekey = 'Khmac-md5.example.+157+53335.private';

END { unlink($privatekey) if defined $privatekey; }

open( KEY, ">$privatekey" ) or die "$privatekey $!";

print KEY <<'END';

Private-key-format: v1.2

Algorithm: 157 (HMAC_MD5)

Key: ARDJZgtuTDzAWeSGYPAu9uJUkX0=

END

close KEY;

{

	my $tsig = create $class($privatekey);

	is( ref($tsig), $class, 'create TSIG from private key' );

}

my $publickey = 'Khmac-sha1.example.+161+39562.key';

END { unlink($publickey) if defined $publickey; }

open( KEY, ">$publickey" ) or die "$publickey $!";

print KEY <<'END';

HMAC-SHA1.example. IN KEY 512 3 161 xdX9m8UtQNbJUzUgQ4xDtUNZAmU=

END

close KEY;

{

	my $tsig = create $class($publickey);

	is( ref($tsig), $class, 'create TSIG from public key' );

}

{

	my $packet = new Net::DNS::Packet('query.example');

	$packet->sign_tsig($privatekey);

	my $tsig = create $class($packet);

	is( ref($tsig), $class, 'create TSIG from signed packet' );

}

{

	my $chain = eval { create $class($tsig); };

	is( ref($chain), $class, 'create successor to existing TSIG' );

}

{

	eval { create $class(); };

	my $exception = $1 if $@ =~ /^(.+)\n/;

	ok( $exception ||= '', "empty argument list\t[$exception]" );

}

{

	eval { create $class(undef); };

	my $exception = $1 if $@ =~ /^(.+)\n/;

	ok( $exception ||= '', "argument undefined\t[$exception]" );

}

{

	my $null = new Net::DNS::RR( type => 'NULL' );

	eval { create $class($null); };

	my $exception = $1 if $@ =~ /^(.+)\n/;

	ok( $exception ||= '', "unexpected argument\t[$exception]" );

}

{

	my $packet = new Net::DNS::Packet('query.example');

	eval { create $class($packet); };

	my $exception = $1 if $@ =~ /^(.+)\n/;

	ok( $exception ||= '', "no TSIG in packet\t[$exception]" );

}

my $badprivatekey = 'K+161+39562.private';

END { unlink($badprivatekey) if defined $badprivatekey; }

open( KEY, ">$badprivatekey" ) or die "$badprivatekey $!";

print KEY <<'END';

Private-key-format: v1.2

Algorithm: 161 (HMAC_SHA1)

Key: xdX9m8UtQNbJUzUgQ4xDtUNZAmU=

END

close KEY;

{

	eval { create $class($badprivatekey); };

	my $exception = $1 if $@ =~ /^(.+)\n/;

	ok( $exception ||= '', "misnamed private key\t[$exception]" );

}

my $dnskey = 'Kbad.example.+161+39562.key';

END { unlink($dnskey) if defined $dnskey; }

open( KEY, ">$dnskey" ) or die "$dnskey $!";

print KEY <<'END';

HMAC-SHA1.example. IN DNSKEY 512 3 161 xdX9m8UtQNbJUzUgQ4xDtUNZAmU=

END

close KEY;

{

	eval { create $class($dnskey); };

	my $exception = $1 if $@ =~ /^(.+)\n/;

	ok( $exception ||= '', "unrecognised public key\t[$exception]" );

}

__END__