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

#!./perl -w

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


use Test::More tests => 8;

ok( binmode(STDERR),            'STDERR made binary' );
ok( binmode(STDERR, ":unix"),   '  with unix discipline' );
ok( binmode(STDERR, ":raw"),    '  raw' );
ok( binmode(STDERR, ":crlf"),   '  and crlf' );

# If this one fails, we're in trouble.  So we just bail out.
ok( binmode(STDOUT),            'STDOUT made binary' )      || exit(1);
ok( binmode(STDOUT, ":unix"),   '  with unix discipline' );
ok( binmode(STDERR, ":raw"),    '  raw' );
ok( binmode(STDERR, ":crlf"),   '  and crlf' );
Commit	Line	Data
e940ddbb	1	#!./perl -w
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	}
	7
	8
	9	use Test::More tests => 8;
	10
	11	ok( binmode(STDERR), 'STDERR made binary' );
	12	ok( binmode(STDERR, ":unix"), ' with unix discipline' );
	13	ok( binmode(STDERR, ":raw"), ' raw' );
	14	ok( binmode(STDERR, ":crlf"), ' and crlf' );
	15
	16	# If this one fails, we're in trouble. So we just bail out.
	17	ok( binmode(STDOUT), 'STDOUT made binary' ) \|\| exit(1);
	18	ok( binmode(STDOUT, ":unix"), ' with unix discipline' );
	19	ok( binmode(STDERR, ":raw"), ' raw' );
	20	ok( binmode(STDERR, ":crlf"), ' and crlf' );