X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-File-KDBX;a=blobdiff_plain;f=t%2Fkdf-aes-pp.t;h=e5f0fc693567c4437d85d5d321a75239e46a9bd8;hp=fa111e0a631ce59f11d8841ac20cc980a73e0ede;hb=1b913e5c8826cae2355b0076ec5701aa3ce63c63;hpb=b30990a507ef30b6f5b6fcb799a2759632c77ff0 diff --git a/t/kdf-aes-pp.t b/t/kdf-aes-pp.t index fa111e0..e5f0fc6 100644 --- 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';