読者です 読者をやめる 読者になる 読者になる

Test::Moreでマルチバイト文字列を出力する可能性がある場合。

Perl
use Test::More;
use Term::Encoding;

{
    my $builder  = Test::More->builder;
    my $encoding = Term::Encoding::get_encoding;

    binmode $builder->output,         ":encoding($encoding)";
    binmode $builder->failure_output, ":encoding($encoding)";
    binmode $builder->todo_output,    ":encoding($encoding)";
}

出力文字コードTerm::Encodingで取ることでLinuxでもWindowsでも動く。

それにしても、こんなのいちいち毎回書くのは面倒なんでどうにかしたい。