Prereq Test::More 1.001004_001 to fix broken tests

diff --git a/Changes b/Changes
index 65781fc21faa39929ca2f83e823b25ee5dc3d546..3d5f759262b2274831d32098c48d7d8a7c89425a 100644 (file)
--- 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 c003a5fc517c35c9b8ca7ca267283c23c2adac0f..69a52efb33dfad5a75382be33bd3e2847f8f78f9 100644 (file)
--- 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 94e1ea86966d035a14401cf9143f3a0825cbd453..997d04c1a7d70d0bdd895fcb19e3940197369db0 100644 (file)
--- 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 02927e86bbb9e4255ad28e41bbf5a556fca37408..ccaeda339a2e78eb301fc17c4a4a43081064d8ff 100644 (file)
--- 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 d82dc4b431136e543c2e63549f740033c627a1a7..ff487003614358615a58ea0eaecdc436d623af6c 100644 (file)
--- 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 601260c69de981f7299322ee5263ab44afe5bb29..0bcf4dc02af60286ee442d28fb4bae4d0ffe50e2 100644 (file)
--- 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 328e28ce598ce1a6671bd4dbce9a8b86d40d84c1..5ca407965bf781c3f1c13fdb5c2ec9dce7f57fbc 100644 (file)
--- 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}) {