X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02git_CollectionOfRepositories_FromDirectory_WhiteList.t;fp=t%2F02git_CollectionOfRepositories_FromDirectory_WhiteList.t;h=23f33f1e95619e740ec4f11a6295fcde91ac7034;hb=b70462a4f5137a1444304a35616911094383b381;hp=0000000000000000000000000000000000000000;hpb=1d72763415136a65d6b965ab168403e99c1cf9c3;p=catagits%2FGitalist.git

diff --git a/t/02git_CollectionOfRepositories_FromDirectory_WhiteList.t b/t/02git_CollectionOfRepositories_FromDirectory_WhiteList.t
new file mode 100644
index 0000000..23f33f1
--- /dev/null
+++ b/t/02git_CollectionOfRepositories_FromDirectory_WhiteList.t
@@ -0,0 +1,28 @@
+use FindBin qw/$Bin/;
+BEGIN {
+    my $env = "$FindBin::Bin/../script/env";
+    if (-r $env) {
+        do $env or die $@;
+    }
+}
+
+use strict;
+use warnings;
+use Test::More qw/no_plan/;
+use Test::Exception;
+
+use Data::Dumper;
+
+BEGIN { use_ok 'Gitalist::Git::CollectionOfRepositories::FromDirectory::WhiteList' }
+
+my $repo_dir = "$Bin/lib/repositories";
+my $repo     = Gitalist::Git::CollectionOfRepositories::FromDirectory::WhiteList->new(
+   repo_dir  => $repo_dir,
+   whitelist => "$repo_dir/projects.list",
+);
+isa_ok($repo, 'Gitalist::Git::CollectionOfRepositories::FromDirectory::WhiteList');
+
+my @repos = @{$repo->repositories};
+is(scalar @repos, 2, 'Only 2 repos found' );
+is($repos[0]->name, 'bare.git', 'Found bare.git');
+is($repos[1]->name, 'repo1', 'Found repo1');