X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=t%2Fkdf-aes-pp.t;h=55bfc8222b0015ea23fac8905bc85bf0b5e3601d;hb=aa81281930c0a90b6c7d6b555f2688d418cf6abc;hp=fa111e0a631ce59f11d8841ac20cc980a73e0ede;hpb=f63182fc62b25269b1c38588dca2b3535ed1a1a2;p=chaz%2Fp5-File-KDBX

diff --git a/t/kdf-aes-pp.t b/t/kdf-aes-pp.t
index fa111e0..55bfc82 100644
--- a/t/kdf-aes-pp.t
+++ b/t/kdf-aes-pp.t
@@ -3,20 +3,19 @@
 use warnings;
 use strict;
 
+BEGIN { $ENV{PERL_FILE_KDBX_XS} = 0 }
+
 use lib 't/lib';
 use TestCommon;
 
+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';
+ok !File::KDBX::XS->can('kdf_aes_transform_half'), 'XS can be avoided';
 
 my $r = $kdf->transform("\2" x 32);
 is $r, "\342\234cp\375\\p\253]\213\f\246\345\230\266\260\r\222j\332Z\204:\322 p\224mhm\360\222",