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
|
#!perl
use warnings;
use strict;
use Test::More tests => 2;
use lib 't';
use Util;
prep_environment();
# new files in t/etc must be listed here
my @expected = qw(
t/etc/buttonhook.html.xxx
t/etc/buttonhook.noxml.xxx
t/etc/buttonhook.rfc.xxx
t/etc/buttonhook.rss.xxx
t/etc/buttonhook.xml.xxx
t/etc/shebang.empty.xxx
t/etc/shebang.foobar.xxx
t/etc/shebang.php.xxx
t/etc/shebang.pl.xxx
t/etc/shebang.py.xxx
t/etc/shebang.rb.xxx
t/etc/shebang.sh.xxx
);
my @results = run_ack( qw( -f -a t/etc ) );
sets_match( \@results, \@expected, 'File lists match' );
|
