Move new model tests someplace they'll actually get run.

[catagits/Gitalist.git] / t / 02git_repo.t

diff --git a/t/02git_repo.t b/t/02git_repo.t
new file mode 100644 (file)
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');