Fix provides() when passed a list of files

[p5sagit/Module-Metadata.git] / t / metadata.t

diff --git a/t/metadata.t b/t/metadata.t
index 55d06c6..3ac9c8e 100644 (file)
--- a/t/metadata.t
+++ b/t/metadata.t
@@ -262,7 +262,7 @@ package Simple-Edward;
 );
 my %pkg_names = reverse @pkg_names;
 
-plan tests => 63 + (2 * keys( %modules )) + (2 * keys( %pkg_names ));
+plan tests => 64 + (2 * keys( %modules )) + (2 * keys( %pkg_names ));
 
 require_ok('Module::Metadata');
 
@@ -743,7 +743,11 @@ Simple Simon
     }
   };
 
-  is_deeply( $got_provides, $exp_provides, "provides()" )
+  is_deeply( $got_provides, $exp_provides, "provides(dir => ...)" )
+    or diag explain $got_provides;
+
+  $got_provides = Module::Metadata->provides(files => ['lib/Simple.pm'], version => 2);
+  is_deeply( $got_provides, $exp_provides, "provides(files => ...)" )
     or diag explain $got_provides;
 }
 
@@ -760,7 +764,7 @@ Simple Simon
     }
   };
 
-  is_deeply( $got_provides, $exp_provides, "provides()" )
+  is_deeply( $got_provides, $exp_provides, "provides(dir => ..., prefix => ...)" )
     or diag explain $got_provides;
 }
 }