X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=t%2Fkdbx3.t;h=fac610197039aea31a76d6afc3a6cb6148854d20;hb=ad2fb90df76a3599c61081f787f387b1a84a89ca;hp=5fe53f7b820026fdc60ba1b9cf538bc49f0d6ac4;hpb=c98fc7d0294e641cf8844306808333bdec4fea2f;p=chaz%2Fp5-File-KDBX

diff --git a/t/kdbx3.t b/t/kdbx3.t
index 5fe53f7..fac6101 100644
--- a/t/kdbx3.t
+++ b/t/kdbx3.t
@@ -105,10 +105,12 @@ subtest 'Verify ProtectedStrings' => sub {
 
     is $kdbx->meta->{database_name}, 'Protected Strings Test', 'Extract database name from meta';
 
-    $kdbx->unlock;
-
     my $entry = $kdbx->entries->next;
     is $entry->title, 'Sample Entry', 'Get entry title';
+
+    is $entry->string_peek('Password'), 'ProtectedPassword', 'Peek at password from entry';
+    is $entry->string_peek('TestProtected'), 'ABC', 'Peek at protected string from entry';
+    $kdbx->unlock;
     is $entry->username, 'Protected User Name', 'Get protected username from entry';
     is $entry->password, 'ProtectedPassword', 'Get protected password from entry';
     is $entry->string_value('TestProtected'), 'ABC', 'Get ABC string from entry';