X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-File-KDBX;a=blobdiff_plain;f=t%2Fdatabase.t;h=5d7b9916e9e0c4a34cbaceb8fc9f0da8548a0b6b;hp=86c6f4d8804efda2185cf0d81305979e22524113;hb=c98fc7d0294e641cf8844306808333bdec4fea2f;hpb=1d0a10e989a4d0487aa13cf4f56e533d3795469d

diff --git a/t/database.t b/t/database.t
index 86c6f4d..5d7b991 100644
--- a/t/database.t
+++ b/t/database.t
@@ -44,7 +44,7 @@ subtest 'Clone' => sub {
     isnt $kdbx->root->groups->[0]->entries->[0], $copy->root->groups->[0]->entries->[0],
         'Clone entry is a different object';
 
-    my @objects = (@{$copy->all_groups}, @{$copy->all_entries});
+    my @objects = $copy->objects->each;
     subtest 'Cloned objects refer to the cloned database' => sub {
         plan tests => scalar @_;
         for my $object (@objects) {