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

#!./perl

# $RCSfile$

print "1..1\n";

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

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

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

close(A);

unlink("a");

if ($b eq "\000\000\000\000_") {
	print "ok 1\n";
} else { # Probably "\000bcd_"
	print "not ok 1\n";
}

unlink 'a';
Commit	Line	Data
93c1eb4f	1	#!./perl
	2
	3	# $RCSfile$
	4
	5	print "1..1\n";
	6
	7	open(A,"+>a");
	8	print A "_";
	9	seek(A,0,0);
	10
	11	$b = "abcd";
	12	$b = "";
	13
	14	read(A,$b,1,4);
	15
	16	close(A);
	17
55497cff	18	unlink("a");
55497cff	19
93c1eb4f	20	if ($b eq "\000\000\000\000_") {
	21	print "ok 1\n";
	22	} else { # Probably "\000bcd_"
	23	print "not ok 1\n";
	24	}
55497cff	25
55497cff	26	unlink 'a';