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