gistfile1.txt

use strict;
use warnings;

use utf8;

use Test::More;

tap_encoding 'cp932';

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

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

done_testing;


>perl -Ilib テスト.t
not ok 1 - テスト失敗
#   Failed test 'テスト失敗'
#   at テスト.t line 10.
# Subtest: subtest
    not ok 1 - サブテスト失敗
    #   Failed test 'サブテスト失敗'
    #   at テスト.t line 13.
    1..1
    # Looks like you failed 1 test of 1.
not ok 2 - subtest
#   Failed test 'subtest'
#   at テスト.t line 14.
1..2
# Looks like you failed 2 tests of 2.