This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op/universal.t failing
[perl5.git] / t / io / binmode.t
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' );