@nqounetです．

ここのところ，MacでもリロードするのにF5を押したり（もちろん動きません）しています．

私なりの結論

文字化けを解消するにはTest::Builder::_print_to_fhを再定義するのがいいのかなと思っています．

変更したのはprintの部分で，encodeの処理を加えただけです．

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

use utf8;
use strict;
use warnings;
use Test::More;
use Encode;
use Term::Encoding qw(term_encoding);
my $charset = term_encoding;

{
  no warnings 'redefine';
  sub Test::Builder::_print_to_fh {
      my( $self, $fh, @msgs ) = @_;

      # Prevent printing headers when only compiling.  Mostly for when
      # tests are deparsed with B::Deparse
      return if $^C;

      my $msg = join '', @msgs;
      my $indent = $self->_indent;

      local( $\, $", $, ) = ( undef, ' ', '' );

      # Escape each line after the first with a # so we don't
      # confuse Test::Harness.
      $msg =~ s{\n(?!\z)}{\n$indent# }sg;

      # Stick a newline on the end if it needs it.
      $msg .= "\n" unless $msg =~ /\n\z/;

      return print $fh $indent, encode($charset, $msg);
  }
}

... # テストを書く

いろいろ試しているうちにfind_encodingを消してしまったのすが，これだったらfind_encodingを使ったほうが速そうです．

実際のスクリプトは，Test::Mojoを継承してゴニョゴニョしているものなので，この状態で動くかどうかはわかりません．

いずれにしろ，プライベートな関数を再定義しているので行儀が良いわけではありません．

Test::More->builder

結論を書いたところで，試行錯誤をたどります．

意図的に出力する分については，以前の記事で文字化けを解消できたのですが，テストが失敗した時に自動的に出してくれる出力が文字化けのままでした．

どうにかしたいな〜と思いながらTest::Moreのドキュメントを読んでいて，今更ですがWide character in printについて書いてあるのを発見しました．

• Test::More - search.cpan.org

Test::More->builderを使って，各種ハンドルをbinmodeでencodeする方法です．

これは良さそうです，ということで試したのですが，どうもうまく行きませんでした．

1
2
3
4

my $builder = Test::More->builder;
binmode $builder->output,         ":encoding($charset)";
binmode $builder->failure_output, ":encoding($charset)";
binmode $builder->todo_output,    ":encoding($charset)";

どこかで変なミスをしたのかもしれないのですが，cp932にマッピングされていない文字がある！，というふうに文字ごとに警告がでました．

正確な文字コードは忘れましたが，すべての文字に何かがくっついていた感じです．

もしかすると，変数をやめてcp932を直打ちしたかもしれませんが，結果は同じだったと思います．

メモってなくて記憶で書いているのでアレですが．

use open

そして，もう一つの方法も試しましたが，こちらも残念ながら動きませんでした．

1
2

use open ':std', ":encoding($charset)";
use Test::More;

これも直打ちしたかもしれませんが，（以下略

念のためBEGINを使ってみましたが，同じだったような気がします．

メモってなくて（以下略

エラー（警告）の出力に注目

ここで，先に試した「cp932にマッピングされていない」という感じのエラーですが，全部同じ行で出ていました．

そこにあったのが，Test::Builder::_print_to_fhでした．

前後を見てみましたが，printしているのはここだけっぽいので，それじゃあって感じでencodeして出力するように再定義してみました．

嫌なエラーも消え，文字化けも解消されました．

めでたしめでたし．

UTF-8のコマンドプロンプトが欲しい

高望みしているつもりはないんですけどね…．

Windowsも内部的にはUTF-8を使ってるんじゃないんですかね？