From 08f451c3f442ff764fe3cc61fe71635c27ee1567 Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Sat, 8 Jan 2005 09:35:04 +0000
Subject: (test_vector): For each -N test, automatically create a new test
 vector using --columns=N.

---
 tests/pr/Test.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'tests')

diff --git a/tests/pr/Test.pm b/tests/pr/Test.pm
index e60b0347f..8512bbf70 100644
--- 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;
-- 
cgit v1.2.3-70-g09d2