Merge pull request #1233 from metacpan/haarg/add-pumpkings-in-setup

copy 08pumpkings file to fake cpan in test setup
metacpan · Jul 8, 2024 · fe99525 · fe99525
2 parents eb8a5f0 + 21e60a5
commit fe99525
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/t/00_setup.t b/t/00_setup.t
@@ -95,6 +95,9 @@ $src_dir->child('bugs.tsv')->copy( $fakecpan_dir->child('bugs.tsv') );
 $src_dir->child('mirrors.json')
     ->copy( $fakecpan_dir->child(qw(indices mirrors.json)) );
 
+$src_dir->child('08pumpkings.txt.gz')
+    ->copy( $fakecpan_dir->child(qw(authors 08pumpkings.txt.gz)) );
+
 write_find_ls($fakecpan_dir);
 
 $server->index_permissions;

diff --git a/t/lib/MetaCPAN/DarkPAN.pm b/t/lib/MetaCPAN/DarkPAN.pm
@@ -105,5 +105,18 @@ sub _write_06perms {
     $modules_dir->child('06perms.txt')->spew($content);
 }
 
+sub _write_08pumpkings {
+    my $self = shift;
+
+    my @pumpkings = qw(
+        HAARG
+    );
+
+    my $content = join '', map "$_\n", @pumpkings;
+
+    $self->base_dir->child(qw(authors 08pumpkings.txt.gz))
+        ->spew( { binmode => ':gzip' }, $content );
+}
+
 __PACKAGE__->meta->make_immutable;
 1;