Changes to t/ack-type-del.t. All files

t/ack-type-del.t

@@ -13,24 +13,24 @@ my ( $stdout, $stderr ); my $help_types_output;  # sanity check-( $stdout, $stderr ) = run_ack_with_stderr('--perl', '-f', 't/swamp');+( $stdout, $stderr ) = run_ack_with_stderr('-t', 'perl', '-f', 't/swamp'); is( scalar(@{$stdout}), 12, 'Found initial 11 files' ); is_empty_array( $stderr, 'Nothing in stderr' ); -( $stdout, $stderr ) = run_ack_with_stderr('--type-del=perl', '--type-del=perltest', '--perl', '-f', 't/swamp');+( $stdout, $stderr ) = run_ack_with_stderr('--type-del=perl', '--type-del=perltest', '-t', 'perl', '-f', 't/swamp'); is_empty_array( $stdout, 'Nothing in stdout' );-first_line_like( $stderr, qr/Unknown option: perl/ );+first_line_like( $stderr, qr/Unknown type 'perl'/ ); -( $stdout, $stderr ) = run_ack_with_stderr('--type-del=perl', '--type-del=perltest',  '--type-add=perl:ext:pm', '--perl', '-f', 't/swamp');+( $stdout, $stderr ) = run_ack_with_stderr('--type-del=perl', '--type-del=perltest',  '--type-add=perl:ext:pm', '-t', 'perl', '-f', 't/swamp'); is( scalar(@{$stdout}), 1, 'Got one output line' ); is_empty_array( $stderr, 'Nothing in stderr' );  # more sanity checking $help_types_output = run_ack( '--help-types' );-like( $help_types_output, qr/\Q--[no]perl/ );+like( $help_types_output, qr/\Qperl/ );  $help_types_output = run_ack( '--type-del=perl', '--type-del=perltest', '--help-types' );-unlike( $help_types_output, qr/\Q--[no]perl/ );+unlike( $help_types_output, qr/\Qperl/ );  DUMP: {     my @dump_output = run_ack( '--type-del=perl', '--type-del=perltest', '--dump' );