Rewrite test by itself

t/03_binary.t

@@ -7,29 +7,16 @@ $arr->ok(!utf8::is_utf8("а"));
 
 my $sym = "\x{430}";
 
-my @warns;
-
-local $SIG{__WARN__} = sub { push @warns, shift; };
-
-{
-    @warns = ();
+$arr->warnings_ok(sub {
     Test::Arrow->builder->failure_output->print("# $sym\n");
-    $arr->ok(scalar @warns == 1, 'failure_output is not utf8')
-            or $arr->diag('Have warning: ' . shift @warns);
-}
+}, 'failure_output is not utf8');
 
-{
-    @warns = ();
+$arr->warnings_ok(sub {
     Test::Arrow->builder->todo_output->print("# $sym\n");
-    $arr->ok(scalar @warns == 1, 'todo_output is not utf8')
-            or $arr->diag('Have warning: ' . shift @warns);
-}
+}, 'todo_output is not utf8');
 
-{
-    @warns = ();
+$arr->warnings_ok(sub {
     Test::Arrow->builder->output->print("# $sym\n");
-    $arr->ok(scalar @warns == 1, 'output is not utf8')
-            or $arr->diag('Have warning: ' . shift @warns);
-}
+}, 'output is not utf8');
 
 $arr->done_testing;