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

   1 #!/usr/bin/env perl
   2
   3 use warnings;
   4 use strict;
   5
   6 BEGIN { $ENV{PERL_FILE_KDBX_XS} = 0 }
   7
   8 use lib 't/lib';
   9 use TestCommon;
  10
  11 use File::KDBX::KDF;
  12
  13 use File::KDBX::Constants qw(:kdf);
  14 use Test::More;
  15
  16 my $kdf = File::KDBX::KDF->new(uuid => KDF_UUID_AES, seed => "\1" x 32, rounds => 10);
  17
  18 ok !File::KDBX::_XS_LOADED(), 'XS can be avoided';
  19
  20 my $r = $kdf->transform("\2" x 32);
  21 is $r, "\342\234cp\375\\p\253]\213\f\246\345\230\266\260\r\222j\332Z\204:\322 p\224mhm\360\222",
  22     'AES KDF works without XS';
  23
  24 like exception { $kdf->transform("\2" x 33) }, qr/raw key must be 32 bytes/i,
  25     'Transformation requires valid arguments';
  26
  27 done_testing;