[p5sagit/p5-mst-13.2.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);

if ($b eq "\000\000\000\000_") {
	print "ok 1\n";
} else { # Probably "\000bcd_"
	print "not ok 1\n";
}
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
	18	if ($b eq "\000\000\000\000_") {
	19	print "ok 1\n";
	20	} else { # Probably "\000bcd_"
	21	print "not ok 1\n";
	22	}