diff options
| author | Nicholas Clark <nick@ccl4.org> | 2001-08-23 00:29:06 +0100 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-08-25 14:52:33 +0000 |
| commit | e940ddbba91304b2a80fdaa904f5b12c22b13e0a (patch) | |
| tree | 85c91ca3396fe501cdf9e4b4a81c05766f2a48ff /t/io | |
| parent | c5cf9ec268be725ef943af3a8c93c6ce5c5492de (diff) | |
| download | perl-e940ddbba91304b2a80fdaa904f5b12c22b13e0a.tar.gz | |
(was Re: PerlIO regerssion tests?)
Message-Id: <20010822232906.Z82818@plum.flirble.org>
p4raw-id: //depot/perl@11747
Diffstat (limited to 't/io')
| -rw-r--r-- | t/io/binmode.t | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/t/io/binmode.t b/t/io/binmode.t new file mode 100644 index 0000000000..76fd5a7779 --- /dev/null +++ b/t/io/binmode.t @@ -0,0 +1,20 @@ +#!./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' ); |