Test that jobs end up in queue.

Author: oalders

lib/MetaCPAN/Queue.pm

@@ -37,8 +37,6 @@ sub startup {
 
             # Runner expects to have been called via CLI
             local @ARGV = @args;
-            use DDP;
-            p @ARGV;
             try {
                 my $release = MetaCPAN::Script::Runner->run(@args);
             }

lib/MetaCPAN/Script/Queue.pm

@@ -26,7 +26,7 @@ has _minion => (
     is      => 'ro',
     isa     => 'Minion',
     lazy    => 1,
-    handles => { _add_to_queue => 'enqueue' },
+    handles => { _add_to_queue => 'enqueue', stats => 'stats', },
     default => sub { MetaCPAN::Queue->new->minion },
 );
 

t/script/queue.t

@@ -9,11 +9,10 @@ use MetaCPAN::Script::Queue;
 my $config = MetaCPAN::Script::Runner::build_config;
 local @ARGV = ( '--dir', $config->{cpan} );
 
-use DDP;
-diag np $config;
-
 my $queue = MetaCPAN::Script::Queue->new_with_options($config);
 $queue->run;
-ok('does not die');
+
+is( $queue->stats->{inactive_jobs},
+    52, '52 files added to queue for indexing' );
 
 done_testing();