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
|
#!perl
use warnings;
use strict;
use Test::More tests => 12;
use lib 't';
use Util qw/run_ack/;
prep_environment();
check_u( '#emacs-workfile.pl#', 't/swamp/' ); # temp file
check_u( 'core.2112', 't/etc/' ); # core file
check_u( 'ignore.pod', 't/swamp/' ); # ignore.pod is in t/swamp/blib/
# does 2 tests:
# 1) with -u, making sure the file IS in the output
# 2) without -u, making sure the file IS NOT in the output
sub check_u {
my ( $file, $dir ) = @_;
my @results_without_u = run_ack( '-f', $dir );
my @results_with_u = run_ack( '-f', '-u', $dir );
my $pattern = quotemeta $file;
# no checking with sets_match or lists_match as we don't know
# exactly what files will be returned (eg. .svn directories)
#
# to make sure, we always check that the file is NOT there when
# searching without -u
ok( scalar( grep { /$pattern/ } @results_with_u ), "$file found with -u in $dir" );
ok( !scalar( grep { /$pattern/ } @results_without_u ), "$file not found without -u in $dir" );
return
}
|
