Added head_hash method to Project, and some test cleanups.

[catagits/Gitalist.git] / t / git / project.t

diff --git a/t/git/project.t b/t/git/project.t
index c4c581d..ed6ebcb 100644 (file)
--- a/t/git/project.t
+++ b/t/git/project.t
@@ -8,15 +8,17 @@ use Data::Dumper;
 BEGIN { use_ok 'Gitalist::Git::Project' }
 
 use Path::Class;
+my $gitdir = dir("$Bin/../lib/repositories/repo1");
+
 my $proj = Gitalist::Git::Project->new(
-    path => dir("$Bin/../lib/repositories/repo1"),
+    path => $gitdir,
     name => "repo1",
 );
 isa_ok($proj, 'Gitalist::Git::Project');
 
-like($proj->path, qr#/repositories/repo1#, 'repository path is set');
+is($proj->path, $gitdir, 'repository path is set');
 is($proj->name, qw/repo1/, 'repository name is set');
 is($proj->description, qq/some test repository/, 'repository description loaded');
 isa_ok($proj->last_change, 'DateTime', 'last_change');
 
-
+is($proj->head_hash, qw/36c6c6708b8360d7023e8a1649c45bcf9b3bd818/, 'head_hash for HEAD is correct');