From: Dan Brook <broq@cpan.org>
Date: Sun, 30 Oct 2011 20:19:46 +0000 (+0000)
Subject: Fix a few test annoyances.
X-Git-Tag: 0.003007~21^2~1^2~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FGitalist.git;a=commitdiff_plain;h=b6e0be6c0a8f9e638f354a4c7d3f8af9c964253f

Fix a few test annoyances.
---

diff --git a/t/02git_Repository.t b/t/02git_Repository.t
index ae069eb..c8aae14 100644
--- 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
--- 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';
 }
  {