t/ack-w.t

@@ -3,7 +3,7 @@ use warnings; use strict; -use Test::More tests => 8;+use Test::More tests => 1;  use lib 't'; use Util;@@ -12,111 +12,6 @@ prep_environment();  my $ACK = $ENV{ACK_TEST_STANDALONE} ? 'ack-standalone' : 'ack'; -subtest '-w with trailing metachar \w' => sub {-    plan tests => 1;--    my @expected = line_split( <<'HERE' );-A well regulated Militia, being necessary to the security of a free State,-cases arising in the land or naval forces, or in the Militia, when in-HERE--    my @files = qw( t/text/bill-of-rights.txt );-    my @args = ( 'Milit\w\w', qw( -w -h --sort-files ) );--    ack_lists_match( [ @args, @files ], \@expected, 'Looking for militia with metacharacters' );-};---subtest '-w with trailing dot' => sub {-    plan tests => 1;--    my @expected = line_split( <<'HERE' );-A well regulated Militia, being necessary to the security of a free State,-cases arising in the land or naval forces, or in the Militia, when in-HERE--    my @files = qw( t/text/bill-of-rights.txt );-    my @args = ( 'Milit..', qw( -w -h --sort-files ) );--    ack_lists_match( [ @args, @files ], \@expected, 'Looking for Milit..' );-};---subtest 'Begins and ends with word char' => sub {-    plan tests => 1;--    # Normal case of whole word match.-    my @expected = line_split( <<'HERE' );-A well regulated Militia, being necessary to the security of a free State,-cases arising in the land or naval forces, or in the Militia, when in-HERE--    my @files = qw( t/text/bill-of-rights.txt );-    my @args = qw( Militia -w -h --sort-files );--    ack_lists_match( [ @args, @files ], \@expected, 'Looking for Militia as whole word' );-};---subtest 'Ends with grouping parens' => sub {-    plan tests => 1;--    # The last character of the regexp is not a word, disabling the word boundary check at the end of the match.-    my @expected = line_split( <<'HERE' );-A well regulated Militia, being necessary to the security of a free State,-cases arising in the land or naval forces, or in the Militia, when in-HERE--    my @files = qw( t/text/bill-of-rights.txt );-    my @args = ( 'Militia()', qw( -w -h --sort-files ) );--    ack_lists_match( [ @args, @files ], \@expected, 'Looking for Militia with word flag, but regexp does not end with word char' );-};---subtest 'Begins with grouping parens' => sub {-    plan tests => 1;--    my @expected = line_split( <<'HERE' );-A well regulated Militia, being necessary to the security of a free State,-cases arising in the land or naval forces, or in the Militia, when in-HERE--    my @files = qw( t/text/bill-of-rights.txt );-    my @args = ( '()Militia', qw( -w -h --sort-files ) );--    ack_lists_match( [ @args, @files ], \@expected, 'Looking for Militia with word flag, but regexp does not begin with word char' );-};---subtest 'Wrapped in grouping parens' => sub {-    plan tests => 1;--    my @expected = line_split( <<'HERE' );-A well regulated Militia, being necessary to the security of a free State,-cases arising in the land or naval forces, or in the Militia, when in-HERE--    my @files = qw( t/text/bill-of-rights.txt );-    my @args = ( '(Militia)', qw( -w -h --sort-files ) );--    ack_lists_match( [ @args, @files ], \@expected, 'Looking for Militia with word flag, but regexp does not begin or end with word char' );-};---# Test for issue ack2#443-subtest 'Alternating numbers' => sub {-    plan tests => 1;--    my @expected = ();--    my @files = qw( t/text/number.txt );--    my @args = ( '650|660|670|680', '-w' );--    ack_lists_match( [ @args, @files ], \@expected, 'Alternations should also respect boundaries when using -w' );-};-  # In ack3, we try to warn people if they are misusing -w. subtest '-w warnings' => sub {

t/ack-w.yaml

@@ -81,7 +81,6 @@ args: ordered: true stdin: |   bar-  barfly   barometric   foo   fubar@@ -111,20 +110,55 @@ stdout: |   set_user_name  ----name: Single-letter words+name: single-letter words args:   - -w \w ordered: true stdin: |-  A+  a   b   c-  !E!-  NO+  !e!+  no   dd   xxx stdout: |-  A+  a   b   c-  !E!+  !e!++---+name: -w with trailing metacharacters+args:+  - Milit\w\w -w -h --sort-files t/text/bill-of-rights.txt+  - Milit.. -w -h --sort-files t/text/bill-of-rights.txt+ordered: true+stdout: |+  A well regulated Militia, being necessary to the security of a free State,+  cases arising in the land or naval forces, or in the Militia, when in++---+name: Begins and ends with word char+args: Militia -w t/text/bill-of-rights.txt+ordered: true+stdout: |+  A well regulated Militia, being necessary to the security of a free State,+  cases arising in the land or naval forces, or in the Militia, when in++---+name: Begins/ends with grouping parens. First/last char of regex is not a word, disabling the word boundary check at the end of the match.+args:+  - Militia() -w t/text/bill-of-rights.txt+  - ()Militia -w t/text/bill-of-rights.txt+  - (Militia) -w t/text/bill-of-rights.txt+ordered: true+stdout: |+  A well regulated Militia, being necessary to the security of a free State,+  cases arising in the land or naval forces, or in the Militia, when in++---+name: Alternating numbers+args: 650|660|670|680 -w t/text/number.txt+exitcode: 1+stdout: ""