@ 11d698f

191103.2 · f1cf364e32c5f1b688b50377e4a201b6271b2423

Added "-t X" as a short alias for --type=X.

reading declarations

Changes to t/ack-help-types.t. All files

t/ack-help-types.t

@@ -17,23 +17,17 @@ my @types = (     ruby   => [qw{.rb Rakefile}], ); -my @options = qw(-    --help-types-);- plan tests => 11; -foreach my $option ( @options ) {-    my @output = run_ack($option);+my @output = run_ack( '--help-types' ); -    while ( my ($type,$checks) = splice( @types, 0, 2 ) ) {-        my ( $matching_line ) = grep { /--\[no\]$type/ } @output;+while ( my ($type,$checks) = splice( @types, 0, 2 ) ) {+    my ( $matching_line ) = grep { /^    $type / } @output; -        ok( $matching_line, "A match should be found for --$type in the output for $option" );+    ok( $matching_line, "A match should be found for $type in the output for --help-types" ); -        foreach my $check (@{$checks}) {-            like( $matching_line, qr/\Q$check\E/, "Line for --$type in output for $option contains $check" );-        }+    foreach my $check (@{$checks}) {+        like( $matching_line, qr/\Q$check\E/, "Line for --$type in output for --help-types contains $check" );     } }