1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
#!perl
#
# This file is part of Dist-Zilla-Plugin-Git
#
# This software is copyright (c) 2009 by Jerome Quelin.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
use strict;
use warnings;
use Dist::Zilla 1.093250;
use Dist::Zilla::Tester;
use File::Copy qw{ cp };
use File::Temp qw{ tempdir };
use File::Path 2.07 qw{ make_path }; # 2.07 required for make_path
use Git::Wrapper;
use Path::Class;
use File::Which qw{ which };
use Test::More;
which('gpg')
? plan tests => 7
: plan skip_all => q{gpg couldn't be located in $PATH; required for GPG-signed tags};
# Mock HOME to avoid ~/.gitexcludes from causing problems
$ENV{HOME} = $ENV{GNUPGHOME} = tempdir( CLEANUP => 1 );
delete $ENV{GIT_COMMITTER_NAME};
delete $ENV{GIT_COMMITTER_EMAIL};
cp 'corpus/dzp-git.pub', "$ENV{GNUPGHOME}/pubring.gpg";
cp 'corpus/dzp-git.sec', "$ENV{GNUPGHOME}/secring.gpg";
# build fake repository
my $zilla = Dist::Zilla::Tester->from_config({
dist_root => dir('corpus/tag-signed')->absolute,
});
chdir $zilla->tempdir->subdir('source');
system "git init";
my $git = Git::Wrapper->new('.');
$git->config( 'user.name' => 'dzp-git test' );
$git->config( 'user.email' => 'dzp-git@test' );
$git->config( 'user.signingkey' => '7D85ED44');
$git->add( qw{ dist.ini Changes } );
$git->commit( { message => 'initial commit' } );
# do the release
$zilla->release;
# check if tag has been correctly created
my @tags = $git->tag;
is( scalar(@tags), 1, 'one tag created' );
is( $tags[0], 'v1.23', 'new tag created after new version' );
is( $tags[0], $zilla->plugin_named('Git::Tag')->tag(), 'new tag matches the tag the plugin claims is the tag.');
# Check that it is a signed tag
my @lines = $git->show('v1.23');
my $tag = join "\n", @lines;
like( $tag, qr/^tag v1.23/m, 'Is it a real tag?' );
like( $tag, qr/^Tagger: dzp-git test <dzp-git\@test>/m, 'Is it a real tag?' );
like( $tag, qr/PGP SIGNATURE/m, 'Is it GPG-signed?' );
# attempting to release again should fail
eval { $zilla->release };
like($@, qr/tag v1\.23 already exists/, 'prohibit duplicate tag');
|
