From: Leon Timmermans <fawaka@gmail.com>
Date: Tue, 15 Mar 2016 22:21:50 +0000 (+0100)
Subject: Make TAP output UTF8
X-Git-Tag: v0.16~6^2~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f81503dcfde0404056c07895216a85b3063f9ce3;hp=4d96bce5adb7539822606e40fa8aa2f4fbc23fc8;p=p5sagit%2FSub-Name.git

Make TAP output UTF8
---

diff --git a/t/exotic_names.t b/t/exotic_names.t
index ca00f5f..00519ec 100644
--- 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}';