use_ok 'Gitalist::Git::Object::Blob';
use_ok 'Gitalist::Git::Object::Commit';
use_ok 'Gitalist::Git::Object::Tag';
- }
+}
my $object = Gitalist::Git::Object::Tree->new(
repository => $repository,
__CLASS__ => 'Gitalist::Git::Repository',
description => 'some test repository',
is_bare => 1,
- last_change => '2009-11-12T19:00:34Z',
+ last_change => '2011-06-05T23:00:44Z',
name => 'repo1',
owner => code(\&is_system_account_name),
},
__CLASS__ => 'Gitalist::Git::Repository',
description => 'some test repository',
is_bare => 1,
- last_change => '2009-11-12T19:00:34Z',
+ last_change => '2011-06-05T23:00:44Z',
name => 'repo1',
owner => code(\&is_system_account_name),
},
__CLASS__ => 'Gitalist::Git::Repository',
description => 'some test repository',
is_bare => 1,
- last_change => '2009-11-12T19:00:34Z',
+ last_change => '2011-06-05T23:00:44Z',
name => 'repo1',
owner => code(\&is_system_account_name),
},
__CLASS__ => 'Gitalist::Git::Repository',
description => 'some test repository',
is_bare => 1,
- last_change => '2009-11-12T19:00:34Z',
+ last_change => '2011-06-05T23:00:44Z',
name => 'repo1',
owner => code(\&is_system_account_name),
},
'commit_obj->get_patch can return a patchset')
or warn("Contents was $contents");
}
+
+my $blame_this = Gitalist::Git::Object::Commit->new(
+ repository => $repository,
+ sha1 => 'd6ddf8b26be63066e01d96a0922c87cd8d6e2270',
+);
+
+{
+ local $SIG{ALRM} = sub { die "Regressions suck!" };
+ alarm 1;
+ eval { $blame_this->blame('empty-for-a-reason', $blame_this->sha1) };
+ is $@, '', "Silly infinite loop didn't manifest for an empty file.";
+}
+
done_testing;
sub is_system_account_name {