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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
#!perl -T
use warnings;
use strict;
use Test::More tests => 11;
use File::Spec ();
use File::Temp ();
use lib 't';
use Util;
prep_environment();
NO_O: {
my @files = qw( t/text/gettysburg.txt );
my @args = qw( the\\s+\\S+ );
my @expected = line_split( <<'HERE' );
but it can never forget what they did here. It is for us the living,
rather, to be dedicated here to the unfinished work which they who
here dedicated to the great task remaining before us -- that from these
the last full measure of devotion -- that we here highly resolve that
shall have a new birth of freedom -- and that government of the people,
by the people, for the people, shall not perish from the earth.
HERE
s/^\s+// for @expected;
ack_lists_match( [ @args, @files ], \@expected, 'Find all the things without -o' );
}
WITH_O: {
my @files = qw( t/text/gettysburg.txt );
my @args = qw( the\\s+\\S+ -o );
my @expected = line_split( <<'HERE' );
the living,
the unfinished
the great
the last
the people,
the people,
the people,
the earth.
HERE
s/^\s+// for @expected;
ack_lists_match( [ @args, @files ], \@expected, 'Find all the things with -o' );
}
# Find a match in multiple files, and output it in double quotes.
OUTPUT_DOUBLE_QUOTES: {
my @files = qw( t/text/ );
my @args = ( '--output="$1"', '(free\\w*)', '--sort-files' );
my @target_file = map { reslash($_) } qw(
t/text/bill-of-rights.txt
t/text/constitution.txt
t/text/gettysburg.txt
);
my @expected = (
qq{$target_file[0]:4:"free"},
qq{$target_file[0]:4:"freedom"},
qq{$target_file[0]:10:"free"},
qq{$target_file[1]:32:"free"},
qq{$target_file[2]:23:"freedom"},
);
ack_sets_match( [ @args, @files ], \@expected, 'Find all the things with --output function' );
}
my $wd = getcwd_clean();
my $tempdir = File::Temp->newdir;
safe_mkdir( File::Spec->catdir($tempdir->dirname, 'subdir') );
PROJECT_ACKRC_OUTPUT_FORBIDDEN: {
my @files = untaint( File::Spec->rel2abs('t/text/') );
my @args = qw/ --env question(\\S+) /;
safe_chdir( $tempdir->dirname );
write_file '.ackrc', "--output=foo\n";
my ( $stdout, $stderr ) = run_ack_with_stderr(@args, @files);
is_empty_array( $stdout );
first_line_like( $stderr, qr/\QOptions --output, --pager and --match are forbidden in project .ackrc files/ );
safe_chdir( $wd );
}
HOME_ACKRC_OUTPUT_PERMITTED: {
my @files = untaint( File::Spec->rel2abs('t/text/') );
my @args = qw/ --env question(\\S+) --sort-files /;
write_file(File::Spec->catfile($tempdir->dirname, '.ackrc'), "--output=foo\n");
safe_chdir( File::Spec->catdir($tempdir->dirname, 'subdir') );
local $ENV{'HOME'} = $tempdir->dirname;
my ( $stdout, $stderr ) = run_ack_with_stderr(@args, @files);
is_nonempty_array( $stdout );
is_empty_array( $stderr );
safe_chdir( $wd );
}
ACKRC_ACKRC_OUTPUT_PERMITTED: {
my @files = untaint( File::Spec->rel2abs('t/text/') );
my @args = qw/ --env question(\\S+) --sort-files /;
write_file(File::Spec->catfile($tempdir->dirname, '.ackrc'), "--output=foo\n");
safe_chdir( File::Spec->catdir($tempdir->dirname, 'subdir') );
local $ENV{'ACKRC'} = File::Spec->catfile($tempdir->dirname, '.ackrc');
my ( $stdout, $stderr ) = run_ack_with_stderr(@args, @files);
is_nonempty_array( $stdout );
is_empty_array( $stderr );
safe_chdir( $wd );
}
done_testing();
|
