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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
#!perl
use warnings;
use strict;
use Test::More tests => 10;
use lib 't';
use Util;
prep_environment();
SINGLE_TEXT_MATCH: {
my @expected = (
'And I said: "My name is Sue! How do you do! Now you gonna die!"',
);
my @files = qw( t/text );
my @args = qw( Sue! -1 -h --text );
my @results = run_ack( @args, @files );
sets_match( \@results, \@expected, 'Looking for first instance of Sue!' );
}
DASH_V: {
my @expected = (
'Well, my daddy left home when I was three',
);
my @files = qw( t/text/boy-named-sue.txt );
my @args = qw( Sue! -1 -h -v --text );
my @results = run_ack( @args, @files );
sets_match( \@results, \@expected, 'Looking for first non-match' );
}
DASH_F: {
my @files = qw( t/swamp );
my @args = qw( -1 -f );
my @results = run_ack( @args, @files );
my $test_path = File::Next::reslash( 't/swamp/' );
is( scalar @results, 1, 'Should only get one file back' );
like( $results[0], qr{^\Q$test_path\E}, 'One of the files from the swamp' );
}
DASH_G: {
my $regex = 'Makefile';
my @files = qw( t/ );
my @args = ( '-1', '-g', $regex );
my @results = run_ack( @args, @files );
my $test_path = File::Next::reslash( 't/swamp/Makefile' );
is( scalar @results, 1, "Should only get one file back from $regex" );
like( $results[0], qr{^\Q$test_path\E(\.PL)?$}, 'The one file matches one of the two Makefile files' );
}
|
