# Last path component becomes $self->name
# Full path to git objects becomes $self->path
my $name = $dir->dir_list(-1);
- if(-f $dir->file('.git', 'HEAD')) { # Non-bare repo above .git
- $dir = $dir->subdir('.git');
- $name = $dir->dir_list(-2, 1); # .../name/.git
- } elsif('.git' eq $dir->dir_list(-1)) { # Non-bare repo in .git
- $name = $dir->dir_list(-2);
- }
+ if(-f $dir->file('.git', 'HEAD')) { # Non-bare repo above .git
+ $dir = $dir->subdir('.git');
+ $name = $dir->dir_list(-2, 1); # .../name/.git
+ } elsif('.git' eq $dir->dir_list(-1)) { # Non-bare repo in .git
+ $name = $dir->dir_list(-2);
+ }
confess("Can't find a git repository at " . $dir)
unless ( -f $dir->file('HEAD') );
return $class->$orig(name => $name,
$description = $self->path->file('description')->slurp;
chomp $description;
};
- $description = "Unnamed repository, edit the .git/description file to set a description"
- if $description eq "Unnamed repository; edit this file 'description' to name the repository.";
+ $description = "Unnamed repository, edit the .git/description file to set a description"
+ if $description eq "Unnamed repository; edit this file 'description' to name the repository.";
return $description;
}
'--format=%(objectname) %(objecttype) %(refname) %(*objectname) %(*objecttype) %(subject)%00%(creator)',
'refs/tags'
);
- my @ret;
- for my $line (@revlines) {
- push @ret, Gitalist::Git::Tag->new($line);
- }
- return \@ret;
+ return [
+ map Gitalist::Git::Tag->new($_),
+ grep Gitalist::Git::Tag::is_valid_tag($_), @revlines
+ ];
}
method _build_references {
BEGIN { use_ok 'Gitalist::Git::Tag' }
+my $ref_sha1 = '3f7567c7bdf7e7ebf410926493b92d398333116e';
# Create an instance from for-each-ref output
-my $revline="36c6c6708b8360d7023e8a1649c45bcf9b3bd818 commit refs/tags/0.01 add dir1/file2\0Florian Ragwitz <rafl\@debian.org> 1173210275 +0100";
-#my $revline="a92fb1c9282f7319099ce7f783c8be7d5360f6e3\0refs/heads/model-cleanup\0Zachary Stevens <zts\@cryptocracy.com> 1277601094 +0100";
+my $revline="36c6c6708b8360d7023e8a1649c45bcf9b3bd818 commit refs/tags/0.01 $ref_sha1 add dir1/file2\0Florian Ragwitz <rafl\@debian.org> 1173210275 +0100";
+
my $instance = Gitalist::Git::Tag->new($revline);
isa_ok($instance, 'Gitalist::Git::Tag');
+ok($instance->$_, $_) for $instance->meta->get_attribute_list;
+
# Create an instance, passing last_change as a DateTime
use DateTime;
my $timespec = [1173210275, '+0100'];
last_change => $dt,
);
isa_ok($head, 'Gitalist::Git::Tag');
+
+my $oldtag = "d6602ec5194c87b0fc87103ca4d67251c76f233a tag refs/tags/v0.99 a3eb250f996bf5e12376ec88622c4ccaabf20ea8 commit Test-release for wider distribution.";
+
+ok(!Gitalist::Git::Tag::is_valid_tag($oldtag), 'Gitalist::Git::Tag::is_valid_tag ancient tag');
+ok(Gitalist::Git::Tag::is_valid_tag($revline), 'Gitalist::Git::Tag::is_valid_tag regular tag');
+
+# Tags don't necessarily have a refname, check we deal with its absence.
+$revline =~ s/$ref_sha1//;
+ok(Gitalist::Git::Tag::is_valid_tag($revline), 'Gitalist::Git::Tag::is_valid_tag regular tag sans ref sha1');