non latin-1 test script name

gistfile1.txt

$ cat tést.t
use strict;
use warnings;

use Test::More qw/modern/;

ok(0, "test failure" );

subtest 'subtest' => sub {
    ok(0, "sub test failure" );
};

done_testing;
$ 
$ 
$ perl -Ilib tést.t
not ok 1 - test failure
#   Failed test 'test failure'
#   at tést.t line 6.
# Subtest: subtest
    not ok 1 - sub test failure
    #   Failed test 'sub test failure'
    #   at tést.t line 9.
    1..1
    # Looks like you failed 1 test of 1.
not ok 2 - subtest
#   Failed test 'subtest'
#   at tést.t line 10.
1..2
# Looks like you failed 2 tests of 2.

tést.t:
use strict;
use warnings;
use utf8;

binmode( STDOUT, ':utf8' );
print "XXXX:" . __FILE__ . "\n";

Output:

XXXX:tést.t

latest alpha

$ perl -Ilib tést.t
not ok 1 - test failure
#   Failed test 'test failure'
#   at tést.t line 6.
# Subtest: subtest
    not ok 1 - sub test failure
    #   Failed test 'sub test failure'
    #   at tést.t line 9.
    1..1
    # Looks like you failed 1 test of 1.
not ok 2 - subtest
#   Failed test 'subtest'
#   at tést.t line 10.
1..2
# Looks like you failed 2 tests of 2.

great!