This is an automated email from the git hooks/post-receive script. kanashiro-guest pushed a commit to branch master in repository carton.
commit daeebc8a29c6093c1ccc0cb8119b7d129558d17e Author: Tatsuhiko Miyagawa <[email protected]> Date: Wed Jun 29 23:40:32 2011 -0400 Added a test to not uninstall dependencies --- xt/cli/uninstall_dep.t | 23 +++++++++++++++++++++-- 1 file changed, 21 insertions(+), 2 deletions(-) diff --git a/xt/cli/uninstall_dep.t b/xt/cli/uninstall_dep.t index a058cba..684961c 100644 --- a/xt/cli/uninstall_dep.t +++ b/xt/cli/uninstall_dep.t @@ -3,8 +3,6 @@ use Test::More; use xt::CLI; use Cwd; -my $cwd = Cwd::cwd(); - { my $app = cli(); @@ -34,6 +32,27 @@ EOF like $app->output, qr/Uninstalling FCGI/; } +{ + my $app = cli(); + + $app->dir->touch("Makefile.PL", <<EOF); +use ExtUtils::MakeMaker; +WriteMakefile( + NAME => 'foo', + VERSION => '0.1', + PREREQ_PM => { + 'JSON::PP' => 0, + 'CPAN::Meta' => 0, + }, +); +EOF + + $app->run("install"); + $app->run("uninstall", "JSON::PP"); + + like $app->output, qr/JSON::PP is dependent by/; +} + done_testing; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/carton.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
