X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=t%2Fentry.t;h=1581608520220b84ba71f530c6008d0922ab08e1;hb=22c06c7b833137dc25dab1942f161fde5bc0d9c3;hp=8a6d5ebdb15b251c8bb2e96c4adb826ea293be18;hpb=8ccefe1cedea9b0886a44ad096aa5710528eaac7;p=chaz%2Fp5-File-KDBX

diff --git a/t/entry.t b/t/entry.t
index 8a6d5eb..1581608 100644
--- a/t/entry.t
+++ b/t/entry.t
@@ -82,7 +82,7 @@ subtest 'Accessors' => sub {
     my $entry = File::KDBX::Entry->new;
 
     $entry->creation_time('2022-02-02 12:34:56');
-    cmp_ok $entry->creation_time, '==', 1643805296, 'Creation time coerced into a Time::Piece (epoch)';
+    cmp_ok $entry->creation_time->epoch, '==', 1643805296, 'Creation time coerced into a Time::Piece (epoch)';
     is $entry->creation_time->datetime, '2022-02-02T12:34:56', 'Creation time coerced into a Time::Piece';
 };
 
@@ -133,14 +133,14 @@ subtest 'Update UUID' => sub {
     my $entry2 = $kdbx->add_entry(label => 'Bar');
 
     $entry2->url(sprintf('{REF:T@I:%s} {REF:T@I:%s}', $entry1->id, lc($entry1->id)));
-    is $entry2->expanded_url, 'Foo Foo', 'Field reference expands'
+    is $entry2->expand_url, 'Foo Foo', 'Field reference expands'
         or diag explain $entry2->url;
 
     $entry1->uuid("\1" x 16);
 
     is $entry2->url, '{REF:T@I:01010101010101010101010101010101} {REF:T@I:01010101010101010101010101010101}',
         'Replace field references when an entry UUID is changed';
-    is $entry2->expanded_url, 'Foo Foo', 'Field reference expands after UUID is changed'
+    is $entry2->expand_url, 'Foo Foo', 'Field reference expands after UUID is changed'
         or diag explain $entry2->url;
 };