Fixed cat_file and a test.

diff --git a/lib/Gitalist/Model/Git.pm b/lib/Gitalist/Model/Git.pm
index 4c8c725..945c4d2 100644 (file)
--- a/lib/Gitalist/Model/Git.pm
+++ b/lib/Gitalist/Model/Git.pm
@@ -371,7 +371,7 @@ Return the contents of a given file.
 sub cat_file {
   my ($self, $object, $project) = @_;
 
-  my $type = $self->get_object_type($object);
+  my $type = $self->get_object_type($object, $project);
   die "object `$object' is not a file\n"
     if (!defined $type || $type ne 'blob');
 

diff --git a/t/model_Git.t b/t/model_Git.t
index 43afa8f..901ba5f 100644 (file)
--- a/t/model_Git.t
+++ b/t/model_Git.t
@@ -35,13 +35,13 @@ like($m->head_hash('HEAD', $repo), qr/^([0-9a-fA-F]{40})$/, 'head_hash');
 
 {
     my @tree = $m->list_tree('3bc0634310b9c62222bb0e724c11ffdfb297b4ac', $repo);
-
-    is(scalar @tree, 1);
+    is(scalar @tree, 1, "tree array contains one entry.");
     is_deeply($tree[0], {
-            mode => oct 100644,
-            type => 'blob',
-            object => '257cc5642cb1a054f08cc83f2d943e56fd3ebe99',
-            file => 'file1'
+        mode => oct 100644,
+        modestr => '-rw-r--r--',
+        type => 'blob',
+        object => '257cc5642cb1a054f08cc83f2d943e56fd3ebe99',
+        file => 'file1'
     });
 
     is($m->get_object_mode_string($tree[0]), '-rw-r--r--');
@@ -62,4 +62,6 @@ index 257cc56..5716ca5 100644
 @@ -1 +1 @@
 -foo
 +bar
-EOD
\ No newline at end of file
+EOD
+
+# end