File tree 3 files changed +7497
-1
lines changed
3 files changed +7497
-1
lines changed Original file line number Diff line number Diff line change @@ -62,6 +62,7 @@ my $cpan = CPAN::Faker->new(
62
62
63
63
ok( $cpan -> make_cpan, ' make fake cpan' );
64
64
$fakecpan_dir -> subdir(' authors' )-> mkpath;
65
+ $fakecpan_dir -> subdir(' indices' )-> mkpath;
65
66
66
67
# make some changes to 06perms.txt
67
68
{
@@ -92,6 +93,9 @@ copy( $src_dir->file('author-1.0.json'),
92
93
93
94
copy( $src_dir -> file(' bugs.tsv' ), $fakecpan_dir -> file(' bugs.tsv' ) );
94
95
96
+ copy( $src_dir -> file(' mirrors.json' ),
97
+ $fakecpan_dir -> file(qw( indices mirrors.json) ) );
98
+
95
99
$server -> index_permissions;
96
100
$server -> index_packages;
97
101
$server -> index_releases;
@@ -100,6 +104,7 @@ $server->set_first;
100
104
$server -> index_authors;
101
105
$server -> prepare_user_test_data;
102
106
$server -> index_cpantesters;
107
+ $server -> index_mirrors;
103
108
104
109
ok(
105
110
MetaCPAN::Script::Tickets-> new_with_options(
Original file line number Diff line number Diff line change @@ -8,6 +8,7 @@ use MetaCPAN::Script::CPANTesters ();
8
8
use MetaCPAN::Script::First ();
9
9
use MetaCPAN::Script::Latest ();
10
10
use MetaCPAN::Script::Mapping ();
11
+ use MetaCPAN::Script::Mirrors ();
11
12
use MetaCPAN::Script::Package ();
12
13
use MetaCPAN::Script::Permission ();
13
14
use MetaCPAN::Script::Release ();
@@ -212,10 +213,18 @@ sub index_cpantesters {
212
213
ok(
213
214
MetaCPAN::Script::CPANTesters-> new_with_options( $self -> _config )
214
215
-> run,
215
- ' index authors '
216
+ ' index cpantesters '
216
217
);
217
218
}
218
219
220
+ sub index_mirrors {
221
+ my $self = shift ;
222
+
223
+ local @ARGV = (' mirrors' );
224
+ ok( MetaCPAN::Script::Mirrors-> new_with_options( $self -> _config )-> run,
225
+ ' index mirrors' );
226
+ }
227
+
219
228
sub index_permissions {
220
229
my $self = shift ;
221
230
You can’t perform that action at this time.
0 commit comments