X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=t%2Fkdf-aes-pp.t;h=55bfc8222b0015ea23fac8905bc85bf0b5e3601d;hb=22c06c7b833137dc25dab1942f161fde5bc0d9c3;hp=e5f0fc693567c4437d85d5d321a75239e46a9bd8;hpb=1b913e5c8826cae2355b0076ec5701aa3ce63c63;p=chaz%2Fp5-File-KDBX diff --git a/t/kdf-aes-pp.t b/t/kdf-aes-pp.t index e5f0fc6..55bfc82 100644 --- a/t/kdf-aes-pp.t +++ b/t/kdf-aes-pp.t @@ -3,10 +3,11 @@ use warnings; use strict; +BEGIN { $ENV{PERL_FILE_KDBX_XS} = 0 } + use lib 't/lib'; use TestCommon; -BEGIN { $ENV{PERL_FILE_KDBX_XS} = 0 } use File::KDBX::KDF; use File::KDBX::Constants qw(:kdf); @@ -14,7 +15,7 @@ use Test::More; 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",