X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-File-KDBX;a=blobdiff_plain;f=t%2Fkdb.t;h=02927e86bbb9e4255ad28e41bbf5a556fca37408;hp=c16aaf8b19ef1c3be3d5d3487c50f82d79a50beb;hb=1d0a10e989a4d0487aa13cf4f56e533d3795469d;hpb=3e5bbe6df5195b85f2444668e41d71e095a19e9b

diff --git a/t/kdb.t b/t/kdb.t
index c16aaf8..02927e8 100644
--- a/t/kdb.t
+++ b/t/kdb.t
@@ -27,8 +27,8 @@ sub test_basic {
         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';