t/git/repo.t

   1 use strict;
   2 use warnings;
   3 use FindBin qw/$Bin/;
   4 use Test::More qw/no_plan/;
   5
   6 use Data::Dumper;
   7
   8 BEGIN { use_ok 'Gitalist::Git::Repo' }
   9
  10 my $repo = Gitalist::Git::Repo->new( repo_dir => "$Bin/../lib/repositories" );
  11 isa_ok($repo, 'Gitalist::Git::Repo');
  12
  13 is($repo->repo_dir, "$Bin/../lib/repositories", "repo->repo_dir is correct" );
  14
  15 my $project_list = $repo->list_projects;
  16 warn(Dumper($project_list));
  17 isa_ok(@$project_list[0], 'Gitalist::Git::Project');