view release on metacpan or  search on metacpan

bin/narada-new  view on Meta::CPAN

        if test "$(ls -a "$dir" | wc -l)" -ne "2"; then
                die "Target directory '$dir' is not empty"
        fi
else
        mkdir "$dir" || exit 1
fi

set -ex
cd "$dir"
git init
test -n "$NONINTERACTIVE_TESTING" && git config commit.gpgsign false
git commit --allow-empty -m 'empty'
git tag -a -m empty "$INITIAL_VERSION"
git remote add narada-base -t "$branch" -m "$branch" -f "$repo"
git merge -h 2>&1 | grep -q allow-unrelated-histories && mergeopt="--allow-unrelated-histories"
git merge $mergeopt narada-base -m 'narada-new: merge narada-base'


: <<'=cut'

=encoding utf8

t/narada-new.t  view on Meta::CPAN

use lib 't'; use share; guard my $guard;


plan skip_all => 'git not installed'        if !grep {-x "$_/git"} split /:/, $ENV{PATH};


$ENV{GIT_AUTHOR_NAME} = $ENV{GIT_COMMITTER_NAME} = 'Your Name';
$ENV{GIT_AUTHOR_EMAIL}= $ENV{GIT_COMMITTER_EMAIL}= 'you@example.com';
system('{
    git init &&
    git config commit.gpgsign false &&
    git add . && git commit -m 1 &&
    git checkout -b socklog &&
    narada-install 0.2.0 &&
    git add . && git commit -m 2 &&
    git checkout master
    } >/dev/null 2>&1') == 0 or die "system: $?";
my $new = 'narada-new -r '.quotemeta(cwd());

my $wd      = tempdir('narada.XXXXXX');
my $guard_wd= bless {};