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';
};
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;
};