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 File::KDBX::XS;
   7 use Test::More;
   8
   9 my $key         = "\1" x 32;
  10 my $seed        = "\1" x 16;
  11 my $rounds      = 123;
  12 my $expected    = pack('H*', '7deb990760f2ff0f9b8248d63bfb7264');
  13
  14 my $result = File::KDBX::KDF::AES::_transform_half_xs($key, $seed, $rounds);
  15 is $result, $expected, 'AES KDF transform works' or diag unpack('H*', $result);
  16
  17 done_testing;