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

#!./perl -w

BEGIN {
    chdir 't' if -d 't';
    @INC = qw(. ../lib);
}

use Config;

require "test.pl";

my $file = "crlf$$.dat";
END {
 unlink($file);
}

if (find PerlIO::Layer 'perlio') {
 plan(tests => 6);
 ok(open(FOO,">:crlf",$file));
 ok(print FOO 'a'.((('a' x 14).qq{\n}) x 2000) || close(FOO));
 ok(open(FOO,"<:crlf",$file));
 my $seen = 0;
 my $cr = "\r";
 while (<FOO>)
  {
   $seen += tr/[\015]//;
  }
 is($seen,0);
 binmode(FOO);
 seek(FOO,0,0);
 $seen = 0;
 while (<FOO>)
  {
   $seen += tr/[\015]//;
  }
 is($seen,2000);
 ok(close(FOO));
}
else {
 skip_all("No perlio, so no :crlf");
}
Commit	Line	Data
d3db65ff	1	#!./perl -w
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = qw(. ../lib);
	6	}
	7
	8	use Config;
	9
	10	require "test.pl";
	11
	12	my $file = "crlf$$.dat";
	13	END {
	14	unlink($file);
	15	}
	16
6b5da1a3	17	if (find PerlIO::Layer 'perlio') {
d3db65ff	18	plan(tests => 6);
	19	ok(open(FOO,">:crlf",$file));
	20	ok(print FOO 'a'.((('a' x 14).qq{\n}) x 2000) \|\| close(FOO));
	21	ok(open(FOO,"<:crlf",$file));
	22	my $seen = 0;
23f6d120	23	my $cr = "\r";
d3db65ff	24	while (<FOO>)
d3db65ff	25	{
23f6d120	26	$seen += tr/[\015]//;
d3db65ff	27	}
	28	is($seen,0);
	29	binmode(FOO);
	30	seek(FOO,0,0);
	31	$seen = 0;
	32	while (<FOO>)
	33	{
23f6d120	34	$seen += tr/[\015]//;
d3db65ff	35	}
	36	is($seen,2000);
	37	ok(close(FOO));
	38	}
	39	else {
	40	skip_all("No perlio, so no :crlf");
	41	}
	42
	43