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
|
#!perl -T
use strict;
use warnings;
use Test::More tests => 4;
use lib 't';
use Util;
use File::Temp;
prep_environment();
WITHOUT_S: {
my @files = qw( non-existent-file.txt );
my @args = qw( search-term );
my (undef, $stderr) = run_ack_with_stderr( @args, @files );
is( @{$stderr}, 1 );
like( $stderr->[0], qr/\Qnon-existent-file.txt: No such file or directory\E/, q{Error if there's no file} );
}
WITH_S: {
my @files = qw( non-existent-file.txt );
my @args = qw( search-term -s );
my (undef, $stderr) = run_ack_with_stderr( @args, @files );
is_empty_array( $stderr );
}
WITH_RESTRICTED_DIR: {
my @args = qw( hello -s );
my $dir = File::Temp->newdir;
my $wd = getcwd_clean();
safe_chdir( $dir->dirname );
safe_mkdir( 'foo' );
write_file 'foo/bar' => "hello\n";
write_file 'baz' => "hello\n";
chmod 0000, 'foo';
chmod 0000, 'baz';
my (undef, $stderr) = run_ack_with_stderr( @args );
is_empty_array( $stderr );
safe_chdir( $wd );
}
|
