X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-File-KDBX;a=blobdiff_plain;f=t%2Fdatabase.t;fp=t%2Fdatabase.t;h=997d04c1a7d70d0bdd895fcb19e3940197369db0;hp=94e1ea86966d035a14401cf9143f3a0825cbd453;hb=8e4a00010331fe5243c9550a7adce09e9e044a23;hpb=99dbb5c5175265d05f9019a15a3b67877408256f

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