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';
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';