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

#!./perl

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;

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	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	require './test.pl';
	7	}
	8
	9	use strict;
43651d81	10	eval 'use Errno';
43651d81	11	die $@ if $@ and !$ENV{PERL_CORE_MINITEST};
b5fe5ca2	12
b5fe5ca2	13	plan tests => 2;
93c1eb4f	14
62a28c97	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	30	SKIP: {
	31	skip "no EBADF", 1 if (!exists &Errno::EBADF);
	32
	33	$! = 0;
3fb41248	34	no warnings 'unopened';
b5fe5ca2	35	read(B,$b,1);
	36	ok($! == &Errno::EBADF);
	37	}