is $entry->{username}, 'foo', 'username is in the object still';
is $entry->username, '', 'username is not the UserName string';
- like exception { $entry->kdbx }, qr/disassociated from a KDBX database/, 'Dies if disassociated';
+ like exception { $entry->kdbx }, qr/disconnected/, 'Dies if disconnected';
$entry->kdbx(my $kdbx = File::KDBX->new);
is $entry->kdbx, $kdbx, 'Set a database after instantiation';
}), 'Entry data contains UserName string and the rest default attributes';
};
+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)';
+ is $entry->creation_time->datetime, '2022-02-02T12:34:56', 'Creation time coerced into a Time::Piece';
+};
+
subtest 'Custom icons' => sub {
plan tests => 10;
my $gif = pack('H*', '4749463839610100010000ff002c00000000010001000002003b');