view release on metacpan or  search on metacpan

t/data/git-tag/HEAD  view on Meta::CPAN

55d0295a1227f591afc683dd12e43823cd2e404d

t/workflow.t  view on Meta::CPAN

}

sub test_current {
    my @data = (
        [
            'git-simple',
            [qw'branch master'],
        ],
        [
            'git-tag',
            [qw'sha 55d0295a1227f591afc683dd12e43823cd2e404d'],
        ],
        [
            'git-branch',
            [qw'branch origin/master'],
        ],
    );

    for my $data (@data) {
        $git->mock_reset();
        $git->mock_add({ 'rev-parse' => 't/data' });

t/workflow.t  view on Meta::CPAN

        is_deeply $ans, $data->[2], "Get the commits for $data->[1][0]"
            or diag Dumper $ans, $data->[2];
    }
}

sub test_releases {
    my @data = (
        [
            [
                { tag    => [qw/not-release v3.0 v1.0 v1.1 v2.0/] },
                { log    => "1405968782\x{1}55d0295a1227f591afc683dd12e43823cd2e404d" },
                { branch => [map {"  $_"} qw{master origin/master}] },
            ],
            { tag => '^v\d+(?:[.]\d+)*$' },
            [
                {
                    branches => {
                        master          => 1,
                        'origin/master' => 1
                    },
                    files => {},
                    user  => undef,
                    time  => '1405968782',
                    name  => 'v3.0',
                    email => undef,
                    sha   => '55d0295a1227f591afc683dd12e43823cd2e404d'
                }
            ],
        ],
        [
            [
                { branch => [map {"  $_"} qw{master origin/master origin/R1.0 origin/R2.0 origin/R3.0}] },
                { log    => "1405968782\x{1}55d0295a1227f591afc683dd12e43823cd2e404d" },
                { branch => [map {"  $_"} qw{origin/R1.0 origin/R2.0 origin/R3.0}] },
            ],
            { branch => '^origin/R\d+(?:[.]\d+)*$' },
            [
                {
                    branches => {
                        map {$_ => 1} qw{origin/R1.0 origin/R2.0 origin/R3.0},
                    },
                    files => {},
                    user  => undef,
                    time  => '1405968782',
                    name  => 'origin/R3.0',
                    email => undef,
                    sha   => '55d0295a1227f591afc683dd12e43823cd2e404d'
                }
            ],
        ],
        [
            [
                { config => undef },
                { branch => [map {"  $_"} qw{master origin/master origin/R1.0 origin/R2.0 origin/R3.0}] },
                { log    => "1405968782\x{1}55d0295a1227f591afc683dd12e43823cd2e404d" },
                { branch => [map {"  $_"} qw{master origin/master origin/R1.0 origin/R2.0}] },
            ],
            { local => 1 },
            [
                {
                    branches => {
                        map {$_ => 1} qw{master origin/master origin/R1.0 origin/R2.0},
                    },
                    files => {},
                    user  => undef,
                    time  => '1405968782',
                    name  => 'master',
                    email => undef,
                    sha   => '55d0295a1227f591afc683dd12e43823cd2e404d'
                }
            ],
        ],
        [
            [
                { config => '?' },
                { branch => [map {"  $_"} qw{master origin/master origin/R1.0 origin/R2.0 origin/R3.0}] },
                { log    => "1405968782\x{1}55d0295a1227f591afc683dd12e43823cd2e404d" },
                { branch => [map {"  $_"} qw{master origin/master origin/R1.0}] },
            ],
            { local => 1 },
            [
                {
                    branches => {
                        map {$_ => 1} qw{master origin/master origin/R1.0},
                    },
                    files => {},
                    user  => undef,
                    time  => '1405968782',
                    name  => 'origin/master',
                    email => undef,
                    sha   => '55d0295a1227f591afc683dd12e43823cd2e404d'
                }
            ],
        ],
    );

    for my $data (@data) {
        $git->mock_reset();
        $git->mock_add(@{ $data->[0] });
        $pom->{branches} = {};
        $pom->{tags}     = [];