transform_seed => "\227\264\n^\230\2\301:!f\364\336\251\277\241[\3`\314RG\343\16U\333\305eT3:\240\257",
}), 'Get expected headers from KDB file' or diag explain $kdbx->headers;
- is keys %{$kdbx->deleted_objects}, 0, 'There are no deleted objects';
- is scalar @{$kdbx->root->groups}, 2, 'Root group has two children.';
+ is keys %{$kdbx->deleted_objects}, 0, 'There are no deleted objects' or dumper $kdbx->deleted_objects;
+ is scalar @{$kdbx->root->groups}, 2, 'Root group has two children';
my $group1 = $kdbx->root->groups->[0];
isnt $group1->uuid, undef, 'Group 1 has a UUID';
sub test_custom_icons {
my $kdbx = shift;
+ $kdbx = $kdbx->() if ref $kdbx eq 'CODE';
- my ($uuid, @other) = keys %{$kdbx->custom_icons};
- ok $uuid, 'Database has a custom icon';
+ my ($icon, @other) = @{$kdbx->custom_icons};
+ ok $icon, 'Database has a custom icon';
is scalar @other, 0, 'Database has no other icons';
- my $data = $kdbx->custom_icon_data($uuid);
- like $data, qr/^\x89PNG\r\n/, 'Custom icon is a PNG';
+ like $icon->{data}, qr/^\x89PNG\r\n/, 'Custom icon is a PNG';
}
for my $test (
['Custom icons' => $kdbx],
- ['Custom icons after dump & load roundtrip'
- => File::KDBX->load_string($kdbx->dump_string('a', allow_upgrade => 0, randomize_seeds => 0), 'a')],
+ ['Custom icons after dump & load roundtrip' => sub {
+ File::KDBX->load_string($kdbx->dump_string('a', allow_upgrade => 0, randomize_seeds => 0), 'a');
+ }],
) {
my ($name, $kdbx) = @$test;
subtest $name, \&test_custom_icons, $kdbx;