view release on metacpan or  search on metacpan

t/01-the-tests.t  view on Meta::CPAN

{
    my $path = File::Spec->rel2abs('foo');

    is(
        $bot->tell_private('!git repo_root foo'),
        "repo_root is now: '$path'",
        '"!git repo_root <path>" converts relative paths to abs paths'
    );
}

sub _abbreviate($) { substr shift, 0, 7 }

sub _make_git_repo_with_n_commits($$$)
{
    my ($repo_dir, $repo_name, $n_commits) = @_;
    $repo_dir->mkdir($repo_name);
    my $repo_path = File::Spec->rel2abs(File::Spec->catdir($repo_dir, $repo_name));

    my $git = Git::Wrapper->new($repo_path);
    $git->init();

    my @commit_shas;
    for (my $n = 1; $n <= $n_commits; $n++) {