1#!./perl
2
3#
4# Tests whenever the return value of select(FH) is correctly encoded.
5#
6
7BEGIN {
8    chdir 't' if -d 't';
9    require './test.pl';
10    set_up_inc('../lib');
11}
12
13use utf8;
14use open qw( :utf8 :std );
15
16plan( tests => 5 );
17
18open D��P, ">&", *STDERR;
19open $d��p, ">&", *STDOUT;
20open ���,  ">&", *STDERR;
21open $������, ">&", *STDOUT;
22
23is select(D��P), "main::STDOUT";
24is select($d��p), "main::D��P";
25
26TODO: {
27    local $TODO = "Scalar filehandles not yet clean";
28    is select(���), "main::d��p";
29}
30
31is select($������), "main::���";
32TODO: {
33    local $TODO = "Scalar filehandles not yet clean";
34    is select(STDOUT), "main::������";
35}
36