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