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