X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;ds=sidebyside;f=t%2Fkdf-aes.t;h=32568999da2db32be2647a4990a5db0129a947ee;hb=d05b8934af6622a54a4dd62c0b4437b4b1f778a7;hp=7a968a4bc720dfed811f21426a4c0459e1bcd813;hpb=8ad7b1d2198ad3bb973655d3626fd56cb5db3072;p=chaz%2Fp5-File-KDBX-XS diff --git a/t/kdf-aes.t b/t/kdf-aes.t index 7a968a4..3256899 100644 --- a/t/kdf-aes.t +++ b/t/kdf-aes.t @@ -3,16 +3,15 @@ use warnings; use strict; +use File::KDBX::XS; use Test::More; -BEGIN { use_ok('File::KDBX::XS') } - my $key = "\1" x 32; my $seed = "\1" x 16; my $rounds = 123; my $expected = pack('H*', '7deb990760f2ff0f9b8248d63bfb7264'); -my $result = File::KDBX::KDF::AES::_transform_half_xs($key, $seed, $rounds); +my $result = File::KDBX::XS::kdf_aes_transform_half($key, $seed, $rounds); is $result, $expected, 'AES KDF transform works' or diag unpack('H*', $result); done_testing;