diff options
author | Jim Meyering <jim@meyering.net> | 2005-01-08 09:35:04 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 2005-01-08 09:35:04 +0000 |
commit | 08f451c3f442ff764fe3cc61fe71635c27ee1567 (patch) | |
tree | 7d4150cd1675351be49b76c93a1046b7071843c1 | |
parent | 8a7b0f32d3b494ea513091724d34c66026718c5f (diff) | |
download | coreutils-08f451c3f442ff764fe3cc61fe71635c27ee1567.tar.xz |
(test_vector): For each -N test, automatically
create a new test vector using --columns=N.
-rw-r--r-- | tests/pr/Test.pm | 4 |
1 files changed, 4 insertions, 0 deletions
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; |