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

#!./perl

# $RCSfile$    
$| = 1;

print "1..6\n";

print "$!\nnot " unless open(A,undef);
print "ok 1\n";
print "not " unless print A "SomeData\n";
print "ok 2\n";
print "not " unless tell(A) == 9;
print "ok 3\n";
print "not " unless seek(A,0,0);
print "ok 4\n";
$b = <A>;
print "not " unless $b eq "SomeData\n";
print "ok 5\n";
print "not " unless close(A);
print "ok 6\n";
Commit	Line	Data
3eb568f1 NIS	1	#!./perl
	2
	3	# $RCSfile$
	4	$\| = 1;
	5
	6	print "1..6\n";
	7
	8	print "$!\nnot " unless open(A,undef);
	9	print "ok 1\n";
	10	print "not " unless print A "SomeData\n";
	11	print "ok 2\n";
	12	print "not " unless tell(A) == 9;
	13	print "ok 3\n";
	14	print "not " unless seek(A,0,0);
	15	print "ok 4\n";
	16	$b = <A>;
	17	print "not " unless $b eq "SomeData\n";
	18	print "ok 5\n";
	19	print "not " unless close(A);
	20	print "ok 6\n";
	21
	22