]>
Dogcows Code - chaz/p5-File-KDBX/blob - t/kdf-aes-pp.t
fa111e0a631ce59f11d8841ac20cc980a73e0ede
9 use File
::KDBX
::Constants
qw(:kdf);
13 $ENV{PERL_FILE_KDBX_XS
} = 0;
14 use_ok
('File::KDBX::KDF');
17 my $kdf = File
::KDBX
::KDF-
>new(uuid
=> KDF_UUID_AES
, seed
=> "\1" x
32, rounds
=> 10);
19 is File
::KDBX
::XS_LOADED
(), 0, 'XS can be avoided';
21 my $r = $kdf->transform("\2" x
32);
22 is $r, "\342\234cp\375\\p\253]\213\f\246\345\230\266\260\r\222j\332Z\204:\322 p\224mhm\360\222",
23 'AES KDF works without XS';
25 like exception
{ $kdf->transform("\2" x
33) }, qr/raw key must be 32 bytes/i,
26 'Transformation requires valid arguments';
This page took 0.035762 seconds and 3 git commands to generate.