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
|
#!perl -T
use strict;
use warnings;
use lib 't';
use Util;
use Test::More tests => 4;
prep_environment();
my @expected = (
't/swamp/groceries/fruit:1:apple',
't/swamp/groceries/junk:1:apple fritters',
);
my @targets = map {
"t/swamp/groceries/$_"
} qw/fruit junk meat/;
my @args = ( qw( --nocolor APPLE -i ), @targets );
my @results = run_ack( @args );
lists_match( \@results, \@expected, '-i flag' );
@args = ( qw( --nocolor APPLE --ignore-case ), @targets );
@results = run_ack( @args );
lists_match( \@results, \@expected, '--ignore-case flag' );
|
