Add iterator

[chaz/p5-File-KDBX] / t / database.t

diff --git a/t/database.t b/t/database.t
index 86c6f4d8804efda2185cf0d81305979e22524113..5d7b9916e9e0c4a34cbaceb8fc9f0da8548a0b6b 100644 (file)
--- 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) {