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

#!./perl

# $RCSfile$

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
}

use strict;
eval 'use Errno';
die $@ if $@ and !$ENV{PERL_CORE_MINITEST};

plan tests => 2;

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

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

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

close(A);

unlink("a");

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

unlink 'a';

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

    $! = 0;
    read(B,$b,1);
    ok($! == &Errno::EBADF);
}
Commit	Line	Data
93c1eb4f	1	#!./perl
	2
	3	# $RCSfile$
	4
b5fe5ca2 SR	5	BEGIN {
	6	chdir 't' if -d 't';
	7	@INC = '../lib';
	8	require './test.pl';
	9	}
	10
	11	use strict;
43651d81 NC	12	eval 'use Errno';
43651d81 NC	13	die $@ if $@ and !$ENV{PERL_CORE_MINITEST};
b5fe5ca2 SR	14
b5fe5ca2 SR	15	plan tests => 2;
93c1eb4f	16
	17	open(A,"+>a");
	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
55497cff	28	unlink("a");
55497cff	29
b5fe5ca2	30	is($b,"\000\000\000\000_"); # otherwise probably "\000bcd_"
55497cff	31
55497cff	32	unlink 'a';
b5fe5ca2 SR	33
	34	SKIP: {
	35	skip "no EBADF", 1 if (!exists &Errno::EBADF);
	36
	37	$! = 0;
	38	read(B,$b,1);
	39	ok($! == &Errno::EBADF);
	40	}