Commit | Line | Data |
56b6dbe6 |
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 | |
58251520 |
10 | my $repo_dir = "$Bin/lib/repositories"; |
4baaeeef |
11 | my $repo = Gitalist::Git::Repo->new( repo_dir => $repo_dir ); |
56b6dbe6 |
12 | isa_ok($repo, 'Gitalist::Git::Repo'); |
13 | |
4baaeeef |
14 | is($repo->repo_dir, $repo_dir, "repo->repo_dir is correct" ); |
56b6dbe6 |
15 | |
16 | my $project_list = $repo->list_projects; |
56b6dbe6 |
17 | isa_ok(@$project_list[0], 'Gitalist::Git::Project'); |
ba033c36 |
18 | |
19 | my $project = $repo->project('repo1'); |
20 | isa_ok($project, 'Gitalist::Git::Project'); |