Add support for 32-bit perls

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

diff --git a/t/kdbx3.t b/t/kdbx3.t
index 847712d608db91a7e00c5f9255a253936f9a874d..e1e5838041deef2f1a213049a71af908e33502ae 100644 (file)
--- a/t/kdbx3.t
+++ b/t/kdbx3.t
@@ -25,7 +25,7 @@ subtest 'Verify Format300' => sub {
         inner_random_stream_key => "\346\n8\2\322\264i\5\5\274\22\377+\16tB\353\210\1\2m\2U%\326\347\355\313\313\340A\305",
         kdf_parameters => {
             "\$UUID" => "\311\331\363\232b\212D`\277t\r\b\301\212O\352",
-            R => 6000,
+            R => num(6000),
             S => "\340\377\235\255\222o\1(\226m\373\tC{K\352\f\332M\302|~P\e\346J\@\275A\227\236\366",
         },
         master_seed => "Z\230\355\353\2303\361\237-p\345\27nM\22<E\252\314k\20\257\302\343p\"y\5sfw ",
@@ -49,7 +49,7 @@ subtest 'Verify NonAscii' => sub {
         inner_random_stream_key => "Z\244]\373\13`\2108=>\r\224\351\373\316\276\253\6\317z\356\302\36\fW\1776Q\366\32\34,",
         kdf_parameters => {
             "\$UUID" => "\311\331\363\232b\212D`\277t\r\b\301\212O\352",
-            R => 6000,
+            R => num(6000),
             S => "l\254\250\255\240U\313\364\336\316#\254\306\231\f%U\207J\235\275\34\b\25036\26\241\a\300\26\332",
         },
         master_seed => "\13\350\370\214{\0276\17dv\31W[H\26\272\4\335\377\356\275N\"\2A1\364\213\226\237\303M",
@@ -72,7 +72,7 @@ subtest 'Verify Compressed' => sub {
         inner_random_stream_key => "+\232\222\302\20\333\254\342YD\371\34\373,\302:\303\247\t\26\$\a\370g\314\32J\240\371;U\234",
         kdf_parameters => {
             "\$UUID" => "\311\331\363\232b\212D`\277t\r\b\301\212O\352",
-            R => 6000,
+            R => num(6000),
             S => "\3!\230hx\363\220nV\23\340\316\262\210\26Z\al?\343\240\260\325\262\31i\223y\b\306\344V",
         },
         master_seed => "\0206\244\265\203m14\257T\372o\16\271\306\347\215\365\376\304\20\356\344\3713\3\303\363\a\5\205\325",
@@ -96,7 +96,7 @@ subtest 'Verify ProtectedStrings' => sub {
         kdf_parameters => ignore(),
         kdf_parameters => {
             "\$UUID" => "\311\331\363\232b\212D`\277t\r\b\301\212O\352",
-            R => 6000,
+            R => num(6000),
             S => "y\251\327\312mW8B\351\273\364#T#m:\370k1\240v\360E\245\304\325\265\313\337\245\211E",
         },
         master_seed => "\355\32<1\311\320\315\24\204\325\250\35+\2525\321\224x?\361\355\310V\322\20\331\324\"\372\334\210\233",
@@ -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->all_entries};
+    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';