Add key file saving and refactor some stuff

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

diff --git a/t/kdf-aes-pp.t b/t/kdf-aes-pp.t
index fa111e0a631ce59f11d8841ac20cc980a73e0ede..e5f0fc693567c4437d85d5d321a75239e46a9bd8 100644 (file)
--- a/t/kdf-aes-pp.t
+++ b/t/kdf-aes-pp.t
@@ -6,14 +6,12 @@ use strict;
 use lib 't/lib';
 use TestCommon;
 
+BEGIN { $ENV{PERL_FILE_KDBX_XS} = 0 }
+use File::KDBX::KDF;
+
 use File::KDBX::Constants qw(:kdf);
 use Test::More;
 
-BEGIN {
-    $ENV{PERL_FILE_KDBX_XS} = 0;
-    use_ok('File::KDBX::KDF');
-}
-
 my $kdf = File::KDBX::KDF->new(uuid => KDF_UUID_AES, seed => "\1" x 32, rounds => 10);
 
 is File::KDBX::XS_LOADED(), 0, 'XS can be avoided';