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' );