1898184e3Ssthen#!./perl 2898184e3Ssthen 3898184e3Ssthen# 4898184e3Ssthen# Tests whenever the return value of select(FH) is correctly encoded. 5898184e3Ssthen# 6898184e3Ssthen 7898184e3SsthenBEGIN { 8898184e3Ssthen chdir 't' if -d 't'; 9898184e3Ssthen require './test.pl'; 10*5759b3d2Safresh1 set_up_inc('../lib'); 11898184e3Ssthen} 12898184e3Ssthen 13898184e3Ssthenuse utf8; 14898184e3Ssthenuse open qw( :utf8 :std ); 15898184e3Ssthen 16898184e3Ssthenplan( tests => 5 ); 17898184e3Ssthen 18898184e3Ssthenopen DÙP, ">&", *STDERR; 19898184e3Ssthenopen $dùp, ">&", *STDOUT; 20898184e3Ssthenopen 둪, ">&", *STDERR; 21898184e3Ssthenopen $ᛞ웊, ">&", *STDOUT; 22898184e3Ssthen 23898184e3Ssthenis select(DÙP), "main::STDOUT"; 24898184e3Ssthenis select($dùp), "main::DÙP"; 25898184e3Ssthen 26898184e3SsthenTODO: { 27898184e3Ssthen local $TODO = "Scalar filehandles not yet clean"; 28898184e3Ssthen is select(둪), "main::dùp"; 29898184e3Ssthen} 30898184e3Ssthen 31898184e3Ssthenis select($ᛞ웊), "main::둪"; 32898184e3SsthenTODO: { 33898184e3Ssthen local $TODO = "Scalar filehandles not yet clean"; 34898184e3Ssthen is select(STDOUT), "main::ᛞ웊"; 35898184e3Ssthen} 36