#!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' );