]>
Dogcows Code - chaz/p5-File-KDBX/blob - t/safe.t
14 my $secret = 'secret';
18 value
=> 'classified',
29 my $safe = File
::KDBX
::Safe-
>new([@strings, \
$secret]);
30 cmp_deeply \
@strings, [
41 ], 'Encrypt strings in a safe' or diag explain \
@strings;
42 is $secret, undef, 'Scalar was set to undef';
44 my $val = $safe->peek($strings[1]);
45 is $val, 'bar', 'Peek at a string';
48 cmp_deeply \
@strings, [
50 value
=> 'classified',
59 ], 'Decrypt strings in a safe' or diag explain \
@strings;
60 is $secret, 'secret', 'Scalar was set back to secret';
This page took 0.036235 seconds and 4 git commands to generate.