exclude modules defined under a test directory from the index

Author: rose

lib/MetaCPAN/Document/File.pm

@@ -670,6 +670,15 @@ does not include any modules, the L</indexed> property is true.
 
 sub set_indexed {
     my ( $self, $meta ) = @_;
+
+    if ( $self->in_test_directory() ) {
+        foreach my $mod ( @{ $self->module } ) {
+            $mod->indexed(0);
+        }
+        $self->indexed(0);
+        return;
+    }
+
     foreach my $mod ( @{ $self->module } ) {
         $mod->indexed(
               $meta->should_index_package( $mod->name )

t/document/file.t

@@ -142,6 +142,18 @@ END
     is( $file->level,         2 );
 }
 
+{
+    my $file = MetaCPAN::Document::File->new(
+        %stub,
+        path   => 'foo/t/locker',
+        module => { name => 'BAR::Locker' }
+    );
+
+    $file->set_indexed( CPAN::Meta->new( { name => 'null', version => 0 } ) );
+    is( $file->module->[0]->indexed,
+        0, 'Module in test directory is not indexed' );
+}
+
 {
     my $content = <<'END';
 package