]>
Dogcows Code - chaz/p5-File-KDBX/blob - t/hash-block.t
461ad55af90e16ecbd14a962c73c755fdbca4e3b
7 use TestCommon
qw(:no_warnings_test);
9 use File
::KDBX
::Util
qw(can_fork);
11 use PerlIO
::via
::File
::KDBX
::HashBlock
;
15 my $expected_plaintext = 'Tiny food from Spain!';
17 pipe(my $read, my $write) or die "pipe failed: $!\n";
19 PerlIO
::via
::File
::KDBX
::HashBlock-
>push($write, block_size
=> 3);
20 print $write $expected_plaintext;
21 binmode($write, ':pop'); # finish stream
22 close($write) or die "close failed: $!";
24 PerlIO
::via
::File
::KDBX
::HashBlock-
>push($read);
25 my $plaintext = do { local $/; <$read> };
28 is $plaintext, $expected_plaintext, 'Hash-block just a little bit';
32 skip
'Tests require fork' if !can_fork
;
34 my $expected_plaintext = "\x64" x
(1024*1024*12 - 57);
36 pipe(my $read, my $write) or die "pipe failed: $!\n";
38 defined(my $pid = fork) or die "fork failed: $!\n";
40 PerlIO
::via
::File
::KDBX
::HashBlock-
>push($write);
41 print $write $expected_plaintext;
42 binmode($write, ':pop'); # finish stream
43 close($write) or die "close failed: $!";
47 PerlIO
::via
::File
::KDBX
::HashBlock-
>push($read);
48 my $plaintext = do { local $/; <$read> };
51 is $plaintext, $expected_plaintext, 'Hash-block a lot';
53 waitpid($pid, 0) or die "wait failed: $!\n";
56 subtest
'Error handling' => sub {
57 pipe(my $read, my $write) or die "pipe failed: $!\n";
59 PerlIO
::via
::File
::KDBX
::HashBlock-
>push($read);
61 print $write 'blah blah blah';
62 close($write) or die "close failed: $!";
64 is $read->error, 0, 'Read handle starts out fine';
65 my $data = do { local $/; <$read> };
66 is $read->error, 1, 'Read handle can enter and error state';
68 like
$PerlIO::via
::File
::KDBX
::HashBlock
::ERROR
, qr/invalid block index/i,
69 'Error object is available';
This page took 0.039664 seconds and 4 git commands to generate.