use Test::More tests => 4;
use Digest::CMAC;
use Digest::OMAC2;

sub cmac {
	my $class = shift;
	my $cmac = "Digest::$class"->new(pack 'H*', '2b7e151628aed2a6abf7158809cf4f3c');


	$cmac->add(pack 'H*',
		'6bc1bee22e409f96e93d7e117393172a'.
		'ae2d8a571e03ac9c9eb76fac45af8e51'.
		'30c81c46a35ce411'
	);

	$cmac;
}

my $cmac = cmac("CMAC");

is($cmac->hexdigest, 'dfa66747de9ae63030ca32611497c827');
#$cmac->reset;


$cmac->add(pack 'H*', '6bc1bee22e409f96e93d7e117393172a');
$cmac->add(pack 'H*', 'ae2d8a571e03ac9c9eb76fac45af8e51');
$cmac->add(pack 'H*', '30c81c46a35ce411');
is($cmac->hexdigest, 'dfa66747de9ae63030ca32611497c827');
#$cmac->reset;

$cmac->add(
    pack('H*', '6bc1bee22e409f96e93d7e117393172a'),
    pack('H*', 'ae2d8a571e03ac9c9eb76fac45af8e51'),
    pack('H*', '30c81c46a35ce411')
);
is($cmac->hexdigest, 'dfa66747de9ae63030ca32611497c827');

is( cmac("OMAC2")->hexdigest, '23fdaa0831cd314491ce4b25acb6023b' );