test env

Author: mickeyn

lib/MetaCPAN/Ingest.pm

@@ -107,7 +107,7 @@ sub author_dir ($pauseid) {
 
 sub cpan_dir () {
     my $config = config();
-    my $cpan   = $config->{cpan};
+    my $cpan   = $ENV{INGEST_TEST} ? $config->{cpan_test} : $config->{cpan};
 
     return path($cpan) if -d $cpan;
     die

metacpan_ingest.conf

@@ -1,6 +1,7 @@
 log4perl_file log4perl.conf
 
 cpan /CPAN
+cpan_test test_data/fakecpan/
 
 es_node "elasticsearch:9200"
 

t/00_setup.t

@@ -8,6 +8,8 @@ use MetaCPAN::ES;
 use MetaCPAN::Mapper;
 use MetaCPAN::Ingest qw< home >;
 
+$ENV{INGEST_TEST} = 1;
+
 my $es = MetaCPAN::ES->new();
 ok( $es->test, 'es is valid' );