-subtest 'Error handling' => sub {
- pipe(my $read, my $write) or die "pipe failed: $!\n";
-
- PerlIO::via::File::KDBX::HmacBlock->push($read, key => $KEY);
-
- print $write 'blah blah blah';
- close($write) or die "close failed: $!";
-
- is $read->error, 0, 'Read handle starts out fine';
- my $data = do { local $/; <$read> };
- is $read->error, 1, 'Read handle can enter and error state';
-
- like $PerlIO::via::File::KDBX::HmacBlock::ERROR, qr/failed to read HMAC/i,
- 'Error object is available';
-};