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_dir = "$Bin/../lib/repositories";
  11 my $repo = Gitalist::Git::Repo->new( repo_dir => $repo_dir );
  12 isa_ok($repo, 'Gitalist::Git::Repo');
  13
  14 is($repo->repo_dir, $repo_dir, "repo->repo_dir is correct" );
  15
  16 my $project_list = $repo->list_projects;
  17 isa_ok(@$project_list[0], 'Gitalist::Git::Project');