Commit | Line | Data |
2556f95e |
1 | #!perl |
2 | # ioleaks.t |
3 | |
4 | use strict; |
5 | use warnings; |
6 | use Test::More 'no_plan'; |
7 | |
8 | # :unix -> not ok |
9 | # :stdio -> not ok |
10 | # :perlio -> ok |
11 | # :crlf -> ok |
12 | |
2376d97d |
13 | TODO: { |
2376d97d |
14 | foreach my $layer(qw(:unix :stdio :perlio :crlf)){ |
15 | my $base_fd = do{ open my $in, '<', $0 or die $!; fileno $in }; |
2556f95e |
16 | |
2376d97d |
17 | for(1 .. 3){ |
776e8d8c |
18 | local $TODO; |
19 | if ($_ > 1 && $layer =~ /^:(unix|stdio)$/) { |
20 | $TODO = "[perl #56644] PerlIO resource leaks on open() and then :pop in :unix and :stdio" |
21 | } |
22 | open my $fh, "<$layer", $0 or die $!; |
2556f95e |
23 | |
776e8d8c |
24 | is fileno($fh), $base_fd, $layer; |
25 | binmode $fh, ':pop'; |
2376d97d |
26 | } |
27 | } |
2556f95e |
28 | } |
29 | |