Skip to content

Commit 4304a0e

Browse files
committed
Added mirrors data indexing to tests
1 parent 98061f2 commit 4304a0e

File tree

3 files changed

+7497
-1
lines changed

3 files changed

+7497
-1
lines changed

t/00_setup.t

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -62,6 +62,7 @@ my $cpan = CPAN::Faker->new(
6262

6363
ok( $cpan->make_cpan, 'make fake cpan' );
6464
$fakecpan_dir->subdir('authors')->mkpath;
65+
$fakecpan_dir->subdir('indices')->mkpath;
6566

6667
# make some changes to 06perms.txt
6768
{
@@ -92,6 +93,9 @@ copy( $src_dir->file('author-1.0.json'),
9293

9394
copy( $src_dir->file('bugs.tsv'), $fakecpan_dir->file('bugs.tsv') );
9495

96+
copy( $src_dir->file('mirrors.json'),
97+
$fakecpan_dir->file(qw(indices mirrors.json)) );
98+
9599
$server->index_permissions;
96100
$server->index_packages;
97101
$server->index_releases;
@@ -100,6 +104,7 @@ $server->set_first;
100104
$server->index_authors;
101105
$server->prepare_user_test_data;
102106
$server->index_cpantesters;
107+
$server->index_mirrors;
103108

104109
ok(
105110
MetaCPAN::Script::Tickets->new_with_options(

t/lib/MetaCPAN/TestServer.pm

Lines changed: 10 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -8,6 +8,7 @@ use MetaCPAN::Script::CPANTesters ();
88
use MetaCPAN::Script::First ();
99
use MetaCPAN::Script::Latest ();
1010
use MetaCPAN::Script::Mapping ();
11+
use MetaCPAN::Script::Mirrors ();
1112
use MetaCPAN::Script::Package ();
1213
use MetaCPAN::Script::Permission ();
1314
use MetaCPAN::Script::Release ();
@@ -212,10 +213,18 @@ sub index_cpantesters {
212213
ok(
213214
MetaCPAN::Script::CPANTesters->new_with_options( $self->_config )
214215
->run,
215-
'index authors'
216+
'index cpantesters'
216217
);
217218
}
218219

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+
219228
sub index_permissions {
220229
my $self = shift;
221230

0 commit comments

Comments
 (0)