X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02git_repo.t;fp=t%2F02git_repo.t;h=882bc2ccd7b331dcfe5a69ea6ffbed2b30ab15b9;hb=582515209bf4ef28e0f5d7b3caf62ed69810b4cd;hp=0000000000000000000000000000000000000000;hpb=483b98b7fd15ef55f7ecbdd994dcb59ae53bb8e2;p=catagits%2FGitalist.git

diff --git a/t/02git_repo.t b/t/02git_repo.t
new file mode 100644
index 0000000..882bc2c
--- /dev/null
+++ b/t/02git_repo.t
@@ -0,0 +1,17 @@
+use strict;
+use warnings;
+use FindBin qw/$Bin/;
+use Test::More qw/no_plan/;
+
+use Data::Dumper;
+
+BEGIN { use_ok 'Gitalist::Git::Repo' }
+
+my $repo_dir = "$Bin/lib/repositories";
+my $repo = Gitalist::Git::Repo->new( repo_dir => $repo_dir );
+isa_ok($repo, 'Gitalist::Git::Repo');
+
+is($repo->repo_dir, $repo_dir, "repo->repo_dir is correct" );
+
+my $project_list = $repo->list_projects;
+isa_ok(@$project_list[0], 'Gitalist::Git::Project');