add File method to detect test directories

Author: rose

lib/MetaCPAN/Document/File.pm

@@ -623,6 +623,17 @@ sub is_pod_file {
     shift->name =~ /\.pod$/i;
 }
 
+=head2 in_test_directory
+
+Returns true if the file is below a t directory.
+
+=cut
+
+sub in_test_directory {
+    my $self = shift;
+    return ( $self->path =~ /(^|\/)t($|\/)/ ? 1 : 0 );
+}
+
 =head2 add_module
 
 Requires at least one parameter which can be either a HashRef or

t/document/file.t

@@ -12,6 +12,24 @@ my %stub = (
     name         => 'module.pm',
 );
 
+{
+    my %paths = (
+        't/whomp'         => 1,
+        'foo/t/bar'       => 1,
+        'cuppa/t'         => 1,
+        'foo/bart/shorts' => 0,
+        'tit/mouse'       => 0,
+        'say/wat'         => 0,
+    );
+
+    foreach my $path ( keys %paths ) {
+        my $file = MetaCPAN::Document::File->new( %stub, path => $path );
+        my $bool = $paths{$path} ? 'is' : 'is not';
+        is( $file->in_test_directory(),
+            $paths{$path}, "$path $bool in a test directory" );
+    }
+}
+
 {
     my $content = <<'END';
 package Foo;