Fix test fail with older versions of Time::Piece

[chaz/p5-File-KDBX] / t / entry.t

diff --git a/t/entry.t b/t/entry.t
index 8a6d5ebdb15b251c8bb2e96c4adb826ea293be18..1581608520220b84ba71f530c6008d0922ab08e1 100644 (file)
--- 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;
 };