>From be3b1cc0acd9ffdf3feb800c14768859e49526a3 Mon Sep 17 00:00:00 2001 From: Assaf Gordon Date: Thu, 6 Jan 2022 15:48:07 -0700 Subject: [PATCH 9/9] tests: add 'cut -F' tests --- tests/misc/cut.pl | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/tests/misc/cut.pl b/tests/misc/cut.pl index e644963f7..79ef49d40 100755 --- a/tests/misc/cut.pl +++ b/tests/misc/cut.pl @@ -317,6 +317,22 @@ my @Tests = ['DB-out-delim2', '-D -c1-3,2,5-', '--output-d=:', {IN=>"abcdefg\n"}, {OUT=>"abc:b:efg\n"}], + ## + ## Check "-F" (regex delimiter) + ## + ['RE-1', "-d [0-9]+ -F3,1,2,1", {IN=>"abc123def456efg\n"}, + {OUT=>"abc def efg\n"}], + ['RE-2', "-d [0-9]+ -F3,1,2,1 -D", {IN=>"abc123def456efg\n"}, + {OUT=>"efg abc def abc\n"}], + ['RE-3', "-d [0-9]+ -F3,1,2,1 -D -O:", {IN=>"abc123def456efg\n"}, + {OUT=>"efg:abc:def:abc\n"}], + ['RE-4', " -F3,1,2,1 -D", {IN=>"abc \t def\t\tefg\n"}, + {OUT=>"efg abc def abc\n"}], + ['RE-5', " -F3,1,2,1 -D -O:", {IN=>"abc \t def\t\tefg\n"}, + {OUT=>"efg:abc:def:abc\n"}], + ['RE-6', " -F3,1,2,1 -O:", {IN=>"abc \t def\t\tefg\n"}, + {OUT=>"abc:def:efg\n"}], + ); if ($mb_locale ne 'C') -- 2.20.1