Commit | Line | Data |
56b6dbe6 |
1 | use strict; |
2 | use warnings; |
3 | use FindBin qw/$Bin/; |
4 | use Test::More qw/no_plan/; |
3bbb1202 |
5 | use Test::Exception; |
56b6dbe6 |
6 | |
7 | use Data::Dumper; |
8 | |
9 | BEGIN { use_ok 'Gitalist::Git::Repo' } |
10 | |
58251520 |
11 | my $repo_dir = "$Bin/lib/repositories"; |
4baaeeef |
12 | my $repo = Gitalist::Git::Repo->new( repo_dir => $repo_dir ); |
56b6dbe6 |
13 | isa_ok($repo, 'Gitalist::Git::Repo'); |
14 | |
4baaeeef |
15 | is($repo->repo_dir, $repo_dir, "repo->repo_dir is correct" ); |
56b6dbe6 |
16 | |
3bbb1202 |
17 | my $project_list = $repo->{projects}; |
56b6dbe6 |
18 | isa_ok(@$project_list[0], 'Gitalist::Git::Project'); |
ba033c36 |
19 | |
3bbb1202 |
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 | |
ba033c36 |
28 | my $project = $repo->project('repo1'); |
29 | isa_ok($project, 'Gitalist::Git::Project'); |