4 use Test::More qw/no_plan/;
9 BEGIN { use_ok 'Gitalist::Git::Repo' }
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');
15 is($repo->repo_dir, $repo_dir, "repo->repo_dir is correct" );
17 my $project_list = $repo->{projects};
18 isa_ok(@$project_list[0], 'Gitalist::Git::Project');
21 my $project = $repo->project('NoSuchProject');
22 } 'throws exception for invalid project';
25 my $project = $repo->project();
26 } 'throws exception for no project';
28 my $project = $repo->project('repo1');
29 isa_ok($project, 'Gitalist::Git::Project');