From: Charles McGarvey Date: Wed, 11 May 2022 23:12:48 +0000 (-0600) Subject: Prereq Test::More 1.001004_001 to fix broken tests X-Git-Tag: v0.903~1 X-Git-Url: https://git.brokenzipper.com/gitweb?a=commitdiff_plain;h=8e4a00010331fe5243c9550a7adce09e9e044a23;p=chaz%2Fp5-File-KDBX Prereq Test::More 1.001004_001 to fix broken tests --- diff --git a/Changes b/Changes index 65781fc..3d5f759 100644 --- a/Changes +++ b/Changes @@ -3,7 +3,7 @@ Revision history for File-KDBX. {{$NEXT}} * Fixed parsing KDBX4 datetimes on 32-bit perls. - * Fixed broken bigint tests on perls < 5.14. + * Fixed broken tests on perls < 5.14. 0.902 2022-05-03 19:18:06-0600 diff --git a/t/crypt.t b/t/crypt.t index c003a5f..69a52ef 100644 --- a/t/crypt.t +++ b/t/crypt.t @@ -15,6 +15,7 @@ use Test::More; subtest 'Round-trip block stream' => sub { plan tests => 3; + my $block_cipher = File::KDBX::Cipher->new(uuid => CIPHER_UUID_AES256, key => 0x01 x 32, iv => 0x01 x 16); test_roundtrip($block_cipher, 'Smell the pretty flowers.', @@ -24,6 +25,7 @@ subtest 'Round-trip block stream' => sub { subtest 'Round-trip cipher stream' => sub { plan tests => 3; + my $cipher_stream = File::KDBX::Cipher->new(stream_id => 2, key => 0x01 x 16); test_roundtrip($cipher_stream, 'Smell the pretty flowers.', diff --git a/t/database.t b/t/database.t index 94e1ea8..997d04c 100644 --- a/t/database.t +++ b/t/database.t @@ -11,7 +11,7 @@ use TestCommon; use File::KDBX; use File::Temp qw(tempfile); use Test::Deep; -use Test::More; +use Test::More 1.001004_001; use Time::Piece; subtest 'Create a new database' => sub { @@ -49,7 +49,7 @@ subtest 'Clone' => sub { my @objects = $copy->objects->each; subtest 'Cloned objects refer to the cloned database' => sub { plan tests => scalar @_; - for my $object (@objects) { + for my $object (@_) { my $object_kdbx = eval { $object->kdbx }; is $object_kdbx, $copy, 'Object: ' . $object->label; } diff --git a/t/kdb.t b/t/kdb.t index 02927e8..ccaeda3 100644 --- a/t/kdb.t +++ b/t/kdb.t @@ -9,7 +9,7 @@ use TestCommon; use Encode qw(decode); use File::KDBX; use Test::Deep; -use Test::More; +use Test::More 1.001004_001; eval { require File::KeePass; require File::KeePass::KDBX } or plan skip_all => 'File::KeePass and File::KeePass::KDBX required to test KDB files'; diff --git a/t/kdbx4.t b/t/kdbx4.t index d82dc4b..ff48700 100644 --- a/t/kdbx4.t +++ b/t/kdbx4.t @@ -10,7 +10,7 @@ use TestCommon; use File::KDBX; use File::KDBX::Constants qw(:version :kdf); use Test::Deep; -use Test::More; +use Test::More 1.001004_001; use boolean qw(:all); subtest 'Verify Format400' => sub { diff --git a/t/keys.t b/t/keys.t index 601260c..0bcf4dc 100644 --- a/t/keys.t +++ b/t/keys.t @@ -10,7 +10,7 @@ use Crypt::Misc 0.029 qw(decode_b64 encode_b64); use File::KDBX::Constants qw(:key_file); use File::KDBX::Key; use File::Temp qw(tempfile); -use Test::More; +use Test::More 1.001004_001; subtest 'Primitives' => sub { my $pkey = File::KDBX::Key->new('password'); diff --git a/t/memory-protection.t b/t/memory-protection.t index 328e28c..5ca4079 100644 --- a/t/memory-protection.t +++ b/t/memory-protection.t @@ -17,7 +17,7 @@ use List::Util qw(max); use POSIX (); use Scalar::Util qw(looks_like_number); use Scope::Guard; -use Test::More; +use Test::More 1.001004_001; BEGIN { if (!$ENV{AUTHOR_TESTING}) {