3 my $env = "$FindBin::Bin/../script/env";
11 use Test::More qw/no_plan/;
16 BEGIN { use_ok 'Gitalist::Git::CollectionOfRepositories::FromDirectory::WhiteList' }
18 my $repo_dir = "$Bin/lib/repositories";
19 my $repo = Gitalist::Git::CollectionOfRepositories::FromDirectory::WhiteList->new(
20 repo_dir => $repo_dir,
21 whitelist => "$repo_dir/projects.list",
23 isa_ok($repo, 'Gitalist::Git::CollectionOfRepositories::FromDirectory::WhiteList');
25 my @repos = @{$repo->repositories};
26 is(scalar @repos, 2, 'Only 2 repos found' );
27 is($repos[0]->name, 'bare.git', 'Found bare.git');
28 is($repos[1]->name, 'repo1', 'Found repo1');