Commit | Line | Data |
b70462a4 |
1 | use FindBin qw/$Bin/; |
2 | BEGIN { |
3 | my $env = "$FindBin::Bin/../script/env"; |
4 | if (-r $env) { |
5 | do $env or die $@; |
6 | } |
7 | } |
8 | |
9 | use strict; |
10 | use warnings; |
11 | use Test::More qw/no_plan/; |
12 | use Test::Exception; |
13 | |
14 | use Data::Dumper; |
15 | |
16 | BEGIN { use_ok 'Gitalist::Git::CollectionOfRepositories::FromDirectory::WhiteList' } |
17 | |
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", |
22 | ); |
23 | isa_ok($repo, 'Gitalist::Git::CollectionOfRepositories::FromDirectory::WhiteList'); |
24 | |
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'); |