X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02git_Repository.t;fp=t%2F02git_Repository.t;h=0d4de4b677dd068dc112a62a2a6e9454e924f21b;hb=9aed017f6d77a65b0532d4204f72e03ee06243df;hp=749ac120e120341a9d80e4a32cdea059dcca58b9;hpb=e311fd9e4aba5cf62379c7bb498a649801e024e4;p=catagits%2FGitalist.git diff --git a/t/02git_Repository.t b/t/02git_Repository.t index 749ac12..0d4de4b 100644 --- a/t/02git_Repository.t +++ b/t/02git_Repository.t @@ -65,14 +65,15 @@ isa_ok(($proj->list_tree)[1], 'Gitalist::Git::Object'); my $obj1 = $proj->get_object('729a7c3f6ba5453b42d16a43692205f67fb23bc1'); isa_ok($obj1, 'Gitalist::Git::Object::Tree'); -my $hbp_sha1 = $proj->hash_by_path('36c6c6708b8360d7023e8a1649c45bcf9b3bd818', 'dir1/file2'); +my $obj3 = $proj->get_object($proj->head_hash); +isa_ok($obj3, 'Gitalist::Git::Object::Commit'); + +my $hbp_sha1 = $obj3->sha_by_path('dir1/file2'); my $obj2 = $proj->get_object($hbp_sha1); isa_ok($obj2, 'Gitalist::Git::Object::Blob'); -is($obj2->type, 'blob', 'hash_by_path obj is a file'); -is($obj2->content, "foo\n", 'hash_by_path obj is a file'); +is($obj2->type, 'blob', 'sha_by_path obj is a blob'); +is($obj2->content, "foo\n", 'sha_by_path obj content is correct'); -my $obj3 = $proj->get_object($proj->head_hash); -isa_ok($obj3, 'Gitalist::Git::Object::Commit'); like($proj->head_hash('HEAD'), qr/^([0-9a-fA-F]{40})$/, 'head_hash');