00_setup.t - added permissions indexing

Author: mickeyn

bin/permission.pl

@@ -11,17 +11,24 @@
 >;
 
 # args
-my $cleanup;
-GetOptions( "cleanup" => \$cleanup );
+my ( $cleanup, $perms_file, $mode );
+GetOptions(
+    "cleanup"      => \$cleanup,
+    "perms_file=s" => \$perms_file,
+    "mode=s"       => \$mode,
+
+);
+# TODO: find a better way
+$mode eq 'test' and Log::Log4perl::init('log4perl_test.conf');
 
 # setup
-my $es   = MetaCPAN::ES->new( type => "permission" );
+my $es   = MetaCPAN::ES->new( index => "permission", ( $mode ? ( mode => $mode ) : () ) );
 my $bulk = $es->bulk();
 
 my %seen;
 log_debug {"building permission data to add"};
 
-my $iterator = read_06perms_iter();
+my $iterator = read_06perms_iter( $perms_file );
 while ( my $perms = $iterator->next_module ) {
 
     # This method does a "return sort @foo", so it can't be called in the

t/00_setup.t

@@ -82,7 +82,15 @@ subtest 'Author Indexing' => sub {
     ok( $es_author->exists( index => 'author', id => 'OALDERS' ), "Found author OALDERS" );
 };
 
-
+# run the permission indexing script in test mode
+my $perms_script = $bin->child('permission.pl');
+my $perms_file = $modules->child('06perms.txt');
+`perl $perms_script -perms_file $perms_file --mode test`;
+
+subtest 'Permissions Indexing' => sub {
+    my $es_permission = MetaCPAN::ES->new( index => 'permission', mode => 'test' );
+    ok( $es_permission->exists( index => 'permission', id => 'LWP' ), "Found permissions for LWP" );
+};
 
 
 # check test data directory