[p5sagit/p5-mst-13.2.git] / ext / PerlIO / t / via.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    unless (find PerlIO::Layer 'perlio') {
	print "1..0 # Skip: not perlio\n";
	exit 0;
    }
}

my $tmp = "via$$";

print "1..3\n";

$a = join("", map { chr } 0..255) x 10;

use MIME::QuotedPrint;
open(my $fh,">Via(MIME::QuotedPrint)", $tmp);
print $fh $a;
close($fh);
print "ok 1\n";

open(my $fh,"<Via(MIME::QuotedPrint)", $tmp);
{ local $/; $b = <$fh> }
close($fh);
print "ok 2\n";

print "ok 3\n" if $a eq $b;

END {
    1 while unlink $tmp;
}
Commit	Line	Data
2b8740d8	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	unless (find PerlIO::Layer 'perlio') {
	7	print "1..0 # Skip: not perlio\n";
	8	exit 0;
	9	}
	10	}
	11
	12	my $tmp = "via$$";
	13
	14	print "1..3\n";
	15
	16	$a = join("", map { chr } 0..255) x 10;
	17
	18	use MIME::QuotedPrint;
	19	open(my $fh,">Via(MIME::QuotedPrint)", $tmp);
	20	print $fh $a;
	21	close($fh);
	22	print "ok 1\n";
	23
	24	open(my $fh,"<Via(MIME::QuotedPrint)", $tmp);
	25	{ local $/; $b = <$fh> }
	26	close($fh);
	27	print "ok 2\n";
	28
	29	print "ok 3\n" if $a eq $b;
	30
	31	END {
	32	1 while unlink $tmp;
	33	}