xref: /openbsd-src/gnu/usr.bin/perl/cpan/autodie/t/read.t (revision b8851fcc53cbe24fd20b090f26dd149e353f6174) 
1*b8851fccSafresh1#!/usr/bin/perl
2*b8851fccSafresh1
3*b8851fccSafresh1use strict;
4*b8851fccSafresh1use warnings;
5*b8851fccSafresh1use autodie;
6*b8851fccSafresh1
7*b8851fccSafresh1use Test::More tests => 2;
8*b8851fccSafresh1
9*b8851fccSafresh1my $buffer = 'should-not-appear';
10*b8851fccSafresh1eval {
11*b8851fccSafresh1    read('BOFH', $buffer, 1024);
12*b8851fccSafresh1};
13*b8851fccSafresh1like($@, qr/Can't read\(BOFH, <BUFFER>, 1024\)/,
14*b8851fccSafresh1     'read should not show the buffer');
15*b8851fccSafresh1eval {
16*b8851fccSafresh1    read('BOFH', $buffer, 1024, 5);
17*b8851fccSafresh1};
18*b8851fccSafresh1like($@, qr/Can't read\(BOFH, <BUFFER>, 1024, 5\)/,
19*b8851fccSafresh1     'read should not show the buffer');
20