Added some POD to the Git model and straightened out a few inconsistencies.

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

diff --git a/t/model_Git.t b/t/model_Git.t
index 76eb857..09a4552 100644 (file)
--- a/t/model_Git.t
+++ b/t/model_Git.t
@@ -22,19 +22,19 @@ my $repoWorking = Path::Class::Dir->new('t/lib/repositories/working');
 my $repoEmpty = Path::Class::Dir->new('t/lib/repositories/empty.git');
 ok( ! $m->is_git_repo( $repoEmpty ), 'is_git_repo is false for empty dir' );
 
-my $projectList = $m->list_projects;
+my $projectList = $m->list_projects('t/lib/repositories');
 ok( scalar @{$projectList} == 2, 'list_projects returns an array with the correct number of members' );
-ok( $projectList->[0]->{name} eq 'bare.git', 'list_projects has correct name for "bare.git" repo' );
+is( $projectList->[0]->{name}, 'bare.git', 'list_projects has correct name for "bare.git" repo' );
 #ok( $projectList->[1]->{name} eq 'working/.git', 'list_projects has correct name for "working" repo' );
 
 
 # Liberally borrowed from rafl's gitweb
 my $repo = 'repo1';
 
-like($m->get_head_hash($repo), qr/^([0-9a-fA-F]{40})$/, 'get_head_hash');
+like($m->head_hash($repo), qr/^([0-9a-fA-F]{40})$/, 'get_head_hash');
 
 {
-    my @tree = $m->list_tree($repo, '3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
+    my @tree = $m->list_tree('3bc0634310b9c62222bb0e724c11ffdfb297b4ac', $repo);
 
     is(scalar @tree, 1);
     is_deeply($tree[0], {
@@ -47,14 +47,14 @@ like($m->get_head_hash($repo), qr/^([0-9a-fA-F]{40})$/, 'get_head_hash');
     is($m->get_object_mode_string($tree[0]), '-rw-r--r--');
 }
 
-is($m->get_object_type($repo, '729a7c3f6ba5453b42d16a43692205f67fb23bc1'), 'tree');
-is($m->get_object_type($repo, '257cc5642cb1a054f08cc83f2d943e56fd3ebe99'), 'blob');
-is($m->get_object_type($repo, '5716ca5987cbf97d6bb54920bea6adde242d87e6'), 'blob');
+is($m->get_object_type('729a7c3f6ba5453b42d16a43692205f67fb23bc1', $repo), 'tree');
+is($m->get_object_type('257cc5642cb1a054f08cc83f2d943e56fd3ebe99', $repo), 'blob');
+is($m->get_object_type('5716ca5987cbf97d6bb54920bea6adde242d87e6', $repo), 'blob');
 
-is($m->cat_file($repo, '257cc5642cb1a054f08cc83f2d943e56fd3ebe99'), "foo\n");
-is($m->cat_file($repo, '5716ca5987cbf97d6bb54920bea6adde242d87e6'), "bar\n");
+is($m->cat_file('257cc5642cb1a054f08cc83f2d943e56fd3ebe99', $repo), "foo\n");
+is($m->cat_file('5716ca5987cbf97d6bb54920bea6adde242d87e6', $repo), "bar\n");
 
-is($m->diff($repo, '3bc0634310b9c62222bb0e724c11ffdfb297b4ac', '3f7567c7bdf7e7ebf410926493b92d398333116e'), <<EOD);
+is($m->diff('3bc0634310b9c62222bb0e724c11ffdfb297b4ac', '3f7567c7bdf7e7ebf410926493b92d398333116e', $repo), <<EOD);
 diff --git a/file1 b/file1
 index 257cc56..5716ca5 100644
 --- a/file1
@@ -63,6 +63,3 @@ index 257cc56..5716ca5 100644
 -foo
 +bar
 EOD
-
-use Data::Dumper;
-warn( Dumper( $m->list_revs($repo) ));