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
|
use strict;
use warnings;
use Test::More 0.88;
use Dist::Zilla::PluginBundle::Classic;
use Dist::Zilla::PluginBundle::Filter;
my @classic = Dist::Zilla::PluginBundle::Classic->bundle_config({
name => '@Classic',
package => 'Dist::Zilla::PluginBundle::Classic',
payload => { },
});
my @filtered = Dist::Zilla::PluginBundle::Filter->bundle_config({
name => '@CF',
package => 'Dist::Zilla::PluginBundle::Filter',
payload => {
bundle => '@Classic',
remove => [ qw(ManifestSkip PkgVersion) ],
},
});
is(@filtered, @classic - 2, "filtering 2 plugins gets us 2 fewer plugins!");
my $before_count =
grep { $_->[1] =~ /\ADist::Zilla::Plugin::(?:ManifestSkip|PkgVersion)\z/ }
@classic;
is($before_count, 2, "we started with the 2 we wanted to remove");
my $after_count =
grep { $_->[1] =~ /\ADist::Zilla::Plugin::(?:ManifestSkip|PkgVersion)\z/ }
@filtered;
is($after_count, 0, "...then we removed them");
done_testing;
|
