set a version in repo Makefile.PL

[chaz/p5-File-KDBX-XS] / t / kdf-aes.t

diff --git a/t/kdf-aes.t b/t/kdf-aes.t
index 7a968a4bc720dfed811f21426a4c0459e1bcd813..32568999da2db32be2647a4990a5db0129a947ee 100644 (file)
--- 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;