Cross Reference: binmode.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
t
/
io
/
binmode.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
binmode.t revision 1
1
N/A
#!./perl -w
1
N/A
1
N/A
BEGIN
{
1
N/A
chdir
't'
if
-d
't'
;
1
N/A
@
INC
=
qw
(. ../
lib
)
;
1
N/A
require
'./
test.pl
'
;
1
N/A
}
1
N/A
1
N/A
use
Config
;
1
N/A
BEGIN
{
1
N/A
eval
{
require
Errno
;
Errno
->
import
;}
;
1
N/A
}
1
N/A
plan
(
tests
=>
9
)
;
1
N/A
1
N/A
ok
(
binmode
(
STDERR
)
,
'STDERR made binary'
)
;
1
N/A
if
(
find
PerlIO
::
Layer
'perlio'
)
{
1
N/A
ok
(
binmode
(
STDERR
,
":unix"
)
,
' with unix discipline'
)
;
1
N/A
}
else
{
1
N/A
ok
(
1
,
' skip unix discipline without PerlIO layers'
)
;
1
N/A
}
1
N/A
ok
(
binmode
(
STDERR
,
":raw"
)
,
' raw'
)
;
1
N/A
ok
(
binmode
(
STDERR
,
":crlf"
)
,
' and crlf'
)
;
1
N/A
1
N/A
# If this one fails, we're in trouble. So we just bail out.
1
N/A
ok
(
binmode
(
STDOUT
)
,
'STDOUT made binary'
)
||
exit
(
1
)
;
1
N/A
if
(
find
PerlIO
::
Layer
'perlio'
)
{
1
N/A
ok
(
binmode
(
STDOUT
,
":unix"
)
,
' with unix discipline'
)
;
1
N/A
}
else
{
1
N/A
ok
(
1
,
' skip unix discipline without PerlIO layers'
)
;
1
N/A
}
1
N/A
ok
(
binmode
(
STDOUT
,
":raw"
)
,
' raw'
)
;
1
N/A
ok
(
binmode
(
STDOUT
,
":crlf"
)
,
' and crlf'
)
;
1
N/A
1
N/A
SKIP
:
{
1
N/A
skip
"minitest"
,
1
if
$ENV
{
PERL_CORE_MINITEST
};
1
N/A
skip
"no EBADF"
,
1
if
(!
exists
&
Errno
::
EBADF
)
;
1
N/A
1
N/A
no
warnings
'io'
;
1
N/A
$! =
0
;
1
N/A
binmode
(B)
;
1
N/A
ok
($! == &
Errno
::
EBADF
)
;
1
N/A
}