The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

JUERD / encoding-stdio-0.02 / t / encoding-stdio.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

              
print "1..2\n";
sub layers {
    join "\0", map { defined($_) ? $_ : 'UNDEF' } (
        PerlIO::get_layers(STDIN),
        PerlIO::get_layers(STDOUT),
    );
}
BEGIN {
    $before = layers();
}
use encoding::stdio 'utf8';
print 'not ' if layers() eq $before;
print "ok 1\n";
print 'not ' if layers() !~ /utf8/;
print "ok 2\n";
#warn "\nBefore: $before\n___Now: ", layers;