use Encode qw(decode);
use File::KDBX;
use Test::Deep;
-use Test::More;
+use Test::More 1.001004_001;
eval { require File::KeePass; require File::KeePass::KDBX }
or plan skip_all => 'File::KeePass and File::KeePass::KDBX required to test KDB files';
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';