[perl5.git] / t / io / read.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
    eval 'use Errno';
    die $@ if $@ and !is_miniperl();
}

use strict;

plan tests => 2;

my $tmpfile = tempfile();

open(A,"+>$tmpfile");
print A "_";
seek(A,0,0);

my $b = "abcd"; 
$b = "";

read(A,$b,1,4);

close(A);

is($b,"\000\000\000\000_"); # otherwise probably "\000bcd_"

SKIP: {
    skip "no EBADF", 1 if (!exists &Errno::EBADF);

    $! = 0;
    no warnings 'unopened';
    read(B,$b,1);
    ok($! == &Errno::EBADF);
}
Commit	Line	Data
93c1eb4f	1	#!./perl
93c1eb4f	2
b5fe5ca2 SR	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	require './test.pl';
bcf53fae NC	7	eval 'use Errno';
bcf53fae NC	8	die $@ if $@ and !is_miniperl();
b5fe5ca2 SR	9	}
	10
	11	use strict;
b5fe5ca2 SR	12
b5fe5ca2 SR	13	plan tests => 2;
93c1eb4f	14
62a28c97 NC	15	my $tmpfile = tempfile();
	16
	17	open(A,"+>$tmpfile");
93c1eb4f	18	print A "_";
	19	seek(A,0,0);
	20
b5fe5ca2	21	my $b = "abcd";
93c1eb4f	22	$b = "";
	23
	24	read(A,$b,1,4);
	25
	26	close(A);
	27
b5fe5ca2	28	is($b,"\000\000\000\000_"); # otherwise probably "\000bcd_"
55497cff	29
b5fe5ca2 SR	30	SKIP: {
	31	skip "no EBADF", 1 if (!exists &Errno::EBADF);
	32
	33	$! = 0;
3fb41248	34	no warnings 'unopened';
b5fe5ca2 SR	35	read(B,$b,1);
	36	ok($! == &Errno::EBADF);
	37	}