1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!perl -T
use strict;
use warnings;
use lib 't';
use Util;
use Test::More tests => 5;
use App::Ack::ConfigDefault;
prep_environment();
DUMP: {
my @expected = App::Ack::ConfigDefault::options_clean();
my @args = qw( --dump );
my @results = run_ack( @args );
is( $results[0], 'Defaults', 'header should be Defaults' );
splice @results, 0, 2; # remove header (2 lines)
s/^\s*// for @results;
sets_match( \@results, \@expected, __FILE__ );
my @perl = grep { /\bperl\b/ } @results;
is( scalar @perl, 2, 'Two specs for Perl' );
my @ignore_dir = grep { /ignore-dir/ } @results;
is( scalar @ignore_dir, 24, 'Twenty-four specs for ignoring directories' );
}
|
