# 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 {
{
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';
}
{