t/02git_repo.t

   1 use strict;
   2 use warnings;
   3 use FindBin qw/$Bin/;
   4 use Test::More qw/no_plan/;
   5 use Test::Exception;
   6
   7 use Data::Dumper;
   8
   9 BEGIN { use_ok 'Gitalist::Git::Repo' }
  10
  11 my $repo_dir = "$Bin/lib/repositories";
  12 my $repo = Gitalist::Git::Repo->new( repo_dir => $repo_dir );
  13 isa_ok($repo, 'Gitalist::Git::Repo');
  14
  15 is($repo->repo_dir, $repo_dir, "repo->repo_dir is correct" );
  16
  17 my $project_list = $repo->projects;
  18 isa_ok(@$project_list[0], 'Gitalist::Git::Project');
  19
  20 dies_ok {
  21     my $project = $repo->project('NoSuchProject');
  22 } 'throws exception for invalid project';
  23
  24 dies_ok {
  25     my $project = $repo->project();
  26 } 'throws exception for no project';
  27
  28 my $project = $repo->project('repo1');
  29 isa_ok($project, 'Gitalist::Git::Project');