diff options
| author | Leon Timmermans <fawaka@gmail.com> | 2022-08-07 14:40:37 +0200 |
|---|---|---|
| committer | Leon Timmermans <fawaka@gmail.com> | 2022-08-12 00:01:40 +0200 |
| commit | d53dc4aa35a10c04e5bac7bce337ae1784663381 (patch) | |
| tree | 1b797d25369ca58f12133bd551d1c1de25d3cbcf /t/io | |
| parent | 5ee7770b70fd48652f905014e47b07eb031ed5bc (diff) | |
| download | perl-d53dc4aa35a10c04e5bac7bce337ae1784663381.tar.gz | |
Make PerlIO::get_layers accept IO references
Diffstat (limited to 't/io')
| -rw-r--r-- | t/io/layers.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/io/layers.t b/t/io/layers.t index 1c1ac4fd4c..f1004c3bd2 100644 --- a/t/io/layers.t +++ b/t/io/layers.t @@ -34,7 +34,7 @@ if (${^UNICODE} & 1) { } else { $UTF8_STDIN = 0; } -my $NTEST = 60 - (($DOSISH || !$FASTSTDIO) ? 7 : 0) - ($DOSISH ? 7 : 0) +my $NTEST = 62 - (($DOSISH || !$FASTSTDIO) ? 7 : 0) - ($DOSISH ? 7 : 0) + $UTF8_STDIN; sub PerlIO::F_UTF8 () { 0x00008000 } # from perliol.h @@ -193,6 +193,10 @@ __EOH__ [ "stdio" ], "binmode"); + check([ PerlIO::get_layers(*F{IO}) ], + [ "stdio" ], + "binmode"); + # RT78844 { local $@ = "foo"; |