Dogcows Code - chaz/p5-File-KDBX-XS/blob - t/kdf-aes.t

   1 #!/usr/bin/env perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use Test::More;
   7
   8 BEGIN { use_ok('File::KDBX::XS') }
   9
  10 my $key         = "\1" x 32;
  11 my $seed        = "\1" x 16;
  12 my $rounds      = 123;
  13 my $expected    = pack('H*', '7deb990760f2ff0f9b8248d63bfb7264');
  14
  15 my $result = File::KDBX::KDF::AES::_transform_half_xs($key, $seed, $rounds);
  16 is $result, $expected, 'AES KDF transform works' or diag unpack('H*', $result);
  17
  18 done_testing;