00_setup.t - added package indexing

Author: mickeyn

bin/package.pl

@@ -13,11 +13,17 @@
 >;
 
 # args
-my $cleanup;
-GetOptions( "cleanup" => \$cleanup );
+my ( $cleanup, $mode, $package_file );
+GetOptions(
+    "cleanup"        => \$cleanup,
+    "mode=s"         => \$mode,
+    "package_file=s" => \$package_file,
+);
+# TODO: find a better way
+$mode eq 'test' and Log::Log4perl::init('log4perl_test.conf');
 
 # setup
-my $es   = MetaCPAN::ES->new( type => "package" );
+my $es   = MetaCPAN::ES->new( index => "package", ( $mode ? ( mode => $mode ) : () ) );
 my $bulk = $es->bulk();
 
 my %seen;
@@ -27,7 +33,7 @@
 
 # read the rest of the file line-by-line (too big to slurp)
 
-my $fh_packages = read_02packages_fh( log_meta => 1 );
+my $fh_packages = read_02packages_fh( log_meta => 1, ( $package_file ? (file => $package_file) : () ) );
 while ( my $line = <$fh_packages> ) {
     next unless $line;
     chomp($line);

t/00_setup.t

@@ -25,13 +25,13 @@ my $modules = $test_dir->child('modules');
 
 my @files = qw<
     00whois.xml
-    02packages.details.txt
+    02packages.details.txt.gz
     06perms.txt
 >;
 
 subtest 'Check Files' => sub {
     ok( $authors->child('00whois.xml'), "Found 00whois.xml" );
-    ok( $modules->child('02packages.details.txt'), "Found 02packages.details.txt" );
+    ok( $modules->child('02packages.details.txt.gz'), "Found 02packages.details.txt.gz" );
     ok( $modules->child('06perms.txt'), "Found 06perms.txt" );
 };
 
@@ -82,6 +82,16 @@ subtest 'Author Indexing' => sub {
     ok( $es_author->exists( index => 'author', id => 'OALDERS' ), "Found author OALDERS" );
 };
 
+# run the package indexing script in test mode
+my $package_script = $bin->child('package.pl');
+my $package_file = $modules->child('02packages.details.txt.gz');
+`perl $package_script -package_file $package_file --mode test`;
+
+subtest 'Package Indexing' => sub {
+    my $es_package = MetaCPAN::ES->new( index => 'package', mode => 'test' );
+    ok( $es_package->exists( index => 'package', id => 'LWP' ), "Found package LWP" );
+};
+
 # run the permission indexing script in test mode
 my $perms_script = $bin->child('permission.pl');
 my $perms_file = $modules->child('06perms.txt');