X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-File-KDBX;a=blobdiff_plain;f=t%2Fkdbx4.t;h=5fee0868d52b195aefc18cfcb3025fc833a901cf;hp=663a1b8b31aa326a426ee65610725f50db13828f;hb=3e5bbe6df5195b85f2444668e41d71e095a19e9b;hpb=0f9150d48f698cf468d3d814e52ee9f15572809b

diff --git a/t/kdbx4.t b/t/kdbx4.t
index 663a1b8..5fee086 100644
--- a/t/kdbx4.t
+++ b/t/kdbx4.t
@@ -109,11 +109,11 @@ subtest 'KDBX4.1 upgrade' => sub {
     is $kdbx->minimum_version, KDBX_VERSION_3_1, 'Icon with no metadata requires no upgrade';
     my $icon_uuid = $kdbx->add_custom_icon('data2', name => 'icon name');
     is $kdbx->minimum_version, KDBX_VERSION_4_1, 'Icon with name requires upgrade';
-    delete $kdbx->custom_icons->{$icon_uuid};
+    $kdbx->remove_custom_icon($icon_uuid);
     is $kdbx->minimum_version, KDBX_VERSION_3_1, 'Reset upgrade requirement';
     $icon_uuid = $kdbx->add_custom_icon('data2', last_modification_time => gmtime);
     is $kdbx->minimum_version, KDBX_VERSION_4_1, 'Icon with modtime requires upgrade';
-    delete $kdbx->custom_icons->{$icon_uuid};
+    $kdbx->remove_custom_icon($icon_uuid);
     is $kdbx->minimum_version, KDBX_VERSION_3_1, 'Reset upgrade requirement';
 
     $entry1->custom_data(foo => 'bar', last_modification_time => scalar gmtime);