t/02git_CollectionOfRepositories_FromDirectory_WhiteList.t

   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');