Use test_vector, not array @t.

tests/tr/Test.pm

@@ -4,7 +4,7 @@ use strict;
 
 $Test::input_via_stdin = 1;
 
-@Test::t = (
+my @tv = (
 # test flags  1 or 2 strings   input    expected output    expected return code
 #
 ['1',         q|'abcd' '[]*]'|,   'abcd',   ']]]]',              0],
@@ -97,4 +97,9 @@ $Test::input_via_stdin = 1;
 ['R6', '-dc ' . q|'[:upper:]'|,		'', '', 0],
 );
 
+sub test_vector
+{
+  return @tv;
+}
+
 1;