Make TAP output UTF8

[p5sagit/Sub-Name.git] / t / exotic_names.t

diff --git a/t/exotic_names.t b/t/exotic_names.t
index ca00f5f..00519ec 100644 (file)
--- a/t/exotic_names.t
+++ b/t/exotic_names.t
@@ -11,6 +11,13 @@ use B 'svref_2object';
 # a heuristic with ambiguous eval and looking for octets in the stash
 use if $] >= 5.016, feature => 'unicode_eval';
 
+if ($] >= 5.008) {
+       my $builder = Test::More->builder;
+       binmode $builder->output,         ":encoding(utf8)";
+       binmode $builder->failure_output, ":encoding(utf8)";
+       binmode $builder->todo_output,    ":encoding(utf8)";
+}
+
 sub compile_named_sub {
     my ( $fullname, $body ) = @_;
     my $sub = eval "sub $fullname { $body }" . '\\&{$fullname}';