(test_vector): For each -N test, automatically

create a new test vector using --columns=N.

diff --git a/tests/pr/Test.pm b/tests/pr/Test.pm
index e60b0347f671a1d8892cf7a90c24e53323348315..8512bbf70bc02ba8ec2d27377bf30d7a697fe3b2 100644 (file)
--- a/tests/pr/Test.pm
+++ b/tests/pr/Test.pm
@@ -363,6 +363,10 @@ sub test_vector
       my $sep = ($flags ? ' ' : '');
       $flags = "$common_option_prefix$sep$flags";
       push (@new_tv, [$test_name, $flags, $in, $exp, $ret]);
+
+      (my $new_flags = $flags) =~ s/(^| )-(\d+)( |$)/$1--columns=$2$3/g;
+      $new_flags ne $flags
+       and push (@new_tv, ["$test_name.C", $new_flags, $in, $exp, $ret]);
     }
 
   return @new_tv;