Fix a few test annoyances.

diff --git a/t/02git_Repository.t b/t/02git_Repository.t
index ae069eb..c8aae14 100644 (file)
--- a/t/02git_Repository.t
+++ b/t/02git_Repository.t
@@ -18,7 +18,7 @@ BEGIN {
     # Mocking to allow testing regardless of the user's locale
     require I18N::Langinfo if $^O ne 'MSWin32';
     no warnings 'redefine';
-    *I18N::Langinfo::langinfo = sub($) {
+    *I18N::Langinfo::langinfo = sub(_) {
         return "UTF-8" if $_[0] == I18N::Langinfo::CODESET();
     };
     *CORE::GLOBAL::getpwuid = sub {

diff --git a/t/model_collectionofrepos.t b/t/model_collectionofrepos.t
index ff9b471..7e5dc5d 100644 (file)
--- a/t/model_collectionofrepos.t
+++ b/t/model_collectionofrepos.t
@@ -95,13 +95,13 @@ throws_ok { Gitalist::Model::CollectionOfRepos->COMPONENT($ctx_gen->(), { repos
 
 {
     my $i = test_with_config({ repo_dir => "$FindBin::Bin/lib/repositories"});
-    is scalar($i->repositories->flatten), 3, 'Found 6 repos';
+    is scalar($i->repositories->flatten), 3, 'Found 3 repos';
     isa_ok $i, 'Gitalist::Git::CollectionOfRepositories::FromDirectory';
 }
 
 {
     my $i = test_with_config({ repo_dir => "$FindBin::Bin/lib/repositories", search_recursively => 1 });
-    is scalar($i->repositories->flatten), 7, 'Found 6 repos recursively using config';
+    is scalar($i->repositories->flatten), 7, 'Found 7 repos recursively using config';
     isa_ok $i, 'Gitalist::Git::CollectionOfRepositories::FromDirectoryRecursive';
 }
  {