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
|
#!perl -T
use warnings;
use strict;
use Test::More tests => 2;
use lib 't';
use Util;
prep_environment();
subtest 'No restrictions on type' => sub {
my $expected = <<'HERE';
t/etc/buttonhook.xml.xxx => xml
t/etc/shebang.empty.xxx =>
t/etc/shebang.foobar.xxx =>
t/etc/shebang.php.xxx => php
t/etc/shebang.pl.xxx => perl
t/etc/shebang.py.xxx => python
t/etc/shebang.rb.xxx => ruby
t/etc/shebang.sh.xxx => shell
HERE
my @expected = reslash_all( line_split( $expected ) );
my @args = qw( -f --show-types t/etc );
ack_sets_match( [ @args ], \@expected, 'No restrictions on type' );
};
subtest 'Only known types' => sub {
local $TODO = '-k not added yet';
my $expected = <<'HERE';
t/etc/buttonhook.xml.xxx => xml
t/etc/shebang.php.xxx => php
t/etc/shebang.pl.xxx => perl
t/etc/shebang.py.xxx => python
t/etc/shebang.rb.xxx => ruby
t/etc/shebang.sh.xxx => shell
HERE
my @expected = reslash_all( line_split( $expected ) );
my @args = qw( -f -k --show-types t/etc );
ack_sets_match( [ @args ], \@expected, 'Only known types' );
};
done_testing();
|
