X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-File-KDBX;a=blobdiff_plain;f=t%2Fobject.t;h=ebf039fc0895ebd0e2402e98f46ad7de01ee7754;hp=b176c7793a0b90d0cff9bd694c691a59df1a7a85;hb=00078cf200c23f392322f4fdc29e4f44ddf73f41;hpb=e8e1363e4770ff29f5c2721318de9eb8fd7c8a22 diff --git a/t/object.t b/t/object.t index b176c77..ebf039f 100644 --- a/t/object.t +++ b/t/object.t @@ -17,13 +17,13 @@ subtest 'Cloning' => sub { my $entry = File::KDBX::Entry->new; my $copy = $entry->clone; - like exception { $copy->kdbx }, qr/disassociated/, 'Disassociated entry copy is also disassociated'; - cmp_deeply $copy, $entry, 'Disassociated entry and its clone are identical'; + like exception { $copy->kdbx }, qr/disconnected/, 'Disconnected entry copy is also disconnectedisconnected'; + cmp_deeply $copy, $entry, 'Disconnected entry and its clone are identical'; $entry->kdbx($kdbx); $copy = $entry->clone; - is $entry->kdbx, $copy->kdbx, 'Associated entry copy is also associated'; - cmp_deeply $copy, $entry, 'Associated entry and its clone are identical'; + is $entry->kdbx, $copy->kdbx, 'Connected entry copy is also connected'; + cmp_deeply $copy, $entry, 'Connected entry and its clone are identical'; my $txn = $entry->begin_work; $entry->title('foo');