Test::More utf8 test

gistfile1.txt

$ cat unicode_02.t 
use strict;
use warnings;

use utf8;

use Test::More;

binmode Test::More->builder->$_, ":utf8" for qw/output failure_output todo_output/;

ok(0, 'テスト失敗 - test failure');

subtest 'サブテスト - subtest' => sub {
    ok(0, 'サブテスト失敗 - subtest failure');
};

ok(0, 'もう一度テスト失敗 - test failure again');

done_testing;
$ 
$ 

stable version

$ perl unicode_02.t 
not ok 1 - テスト失敗 - test failure
#   Failed test 'テスト失敗 - test failure'
#   at unicode_02.t line 10.
Wide character in print at /System/Library/Perl/5.16/Test/Builder.pm line 1759.
    not ok 1 - サブテスト失敗 - subtest failure
Wide character in print at /System/Library/Perl/5.16/Test/Builder.pm line 1759.
    #   Failed test 'サブテスト失敗 - subtest failure'
    #   at unicode_02.t line 13.
    1..1
    # Looks like you failed 1 test of 1.
Wide character in print at /System/Library/Perl/5.16/Test/Builder.pm line 1759.
not ok 2 - サブテスト - subtest
Wide character in print at /System/Library/Perl/5.16/Test/Builder.pm line 1759.
#   Failed test 'サブテスト - subtest'
#   at unicode_02.t line 14.
Wide character in print at /System/Library/Perl/5.16/Test/Builder.pm line 1759.
not ok 3 - もう一度テスト失敗 - test failure again
Wide character in print at /System/Library/Perl/5.16/Test/Builder.pm line 1759.
#   Failed test 'もう一度テスト失敗 - test failure again'
#   at unicode_02.t line 16.
1..3
# Looks like you failed 3 tests of 3.
$ 

alpha version

$ perl -Ilib unicode_02.t 
not ok 1 - テスト失敗 - test failure
#   Failed test 'テスト失敗 - test failure'
#   at unicode_02.t line 10.
# Subtest: サブテスト - subtest
    not ok 1 - サブテスト失敗 - subtest failure
    #   Failed test 'サブテスト失敗 - subtest failure'
    #   at unicode_02.t line 13.
    1..1
    # Looks like you failed 1 test of 1.
not ok 2 - サブテスト - subtest
#   Failed test 'サブテスト - subtest'
#   at unicode_02.t line 14.
not ok 3 - もう一度テスト失敗 - test failure again
#   Failed test 'もう一度テスト失敗 - test failure again'
#   at unicode_02.t line 16.
1..3
# Looks like you failed 3 tests of 3.
$