Skip to content

Commit fe99525

Browse files
authored
Merge pull request #1233 from metacpan/haarg/add-pumpkings-in-setup
copy 08pumpkings file to fake cpan in test setup
2 parents eb8a5f0 + 21e60a5 commit fe99525

File tree

2 files changed

+16
-0
lines changed

2 files changed

+16
-0
lines changed

t/00_setup.t

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -95,6 +95,9 @@ $src_dir->child('bugs.tsv')->copy( $fakecpan_dir->child('bugs.tsv') );
9595
$src_dir->child('mirrors.json')
9696
->copy( $fakecpan_dir->child(qw(indices mirrors.json)) );
9797

98+
$src_dir->child('08pumpkings.txt.gz')
99+
->copy( $fakecpan_dir->child(qw(authors 08pumpkings.txt.gz)) );
100+
98101
write_find_ls($fakecpan_dir);
99102

100103
$server->index_permissions;

t/lib/MetaCPAN/DarkPAN.pm

Lines changed: 13 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -105,5 +105,18 @@ sub _write_06perms {
105105
$modules_dir->child('06perms.txt')->spew($content);
106106
}
107107

108+
sub _write_08pumpkings {
109+
my $self = shift;
110+
111+
my @pumpkings = qw(
112+
HAARG
113+
);
114+
115+
my $content = join '', map "$_\n", @pumpkings;
116+
117+
$self->base_dir->child(qw(authors 08pumpkings.txt.gz))
118+
->spew( { binmode => ':gzip' }, $content );
119+
}
120+
108121
__PACKAGE__->meta->make_immutable;
109122
1;

0 commit comments

Comments
 (0)