[p5sagit/p5-mst-13.2.git] / t / io / read.t

#!./perl

# $RCSfile$

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

use strict;
use Errno;

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	5	BEGIN {
	6	chdir 't' if -d 't';
	7	@INC = '../lib';
	8	require './test.pl';
	9	}
	10
	11	use strict;
	12	use Errno;
	13
	14	plan tests => 2;
93c1eb4f	15
	16	open(A,"+>a");
	17	print A "_";
	18	seek(A,0,0);
	19
b5fe5ca2	20	my $b = "abcd";
93c1eb4f	21	$b = "";
	22
	23	read(A,$b,1,4);
	24
	25	close(A);
	26
55497cff	27	unlink("a");
55497cff	28
b5fe5ca2	29	is($b,"\000\000\000\000_"); # otherwise probably "\000bcd_"
55497cff	30
55497cff	31	unlink 'a';
b5fe5ca2	32
	33	SKIP: {
	34	skip "no EBADF", 1 if (!exists &Errno::EBADF);
	35
	36	$! = 0;
	37	read(B,$b,1);
	38	ok($! == &Errno::EBADF);
	39	}