- is @{$kdbx->all_entries}, 3, 'New copy added to database if clone with parent option';
- is $kdbx->all_entries->[2], $copy, 'New copy and new entry in the database match';
- is $kdbx->all_entries->[2]->title, "foo - Copy", 'New copy has a modified title';
+ is $kdbx->entries->size, 3, 'New copy added to database if clone with parent option';
+ my $e3 = $kdbx->entries->skip(2)->next;
+ is $e3, $copy, 'New copy and new entry in the database match';
+ is $e3->title, 'foo - Copy', 'New copy has a modified title';