[carton] 87/472: Added a test to not uninstall dependencies

[Lucas Kanashiro]

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 <miyagawa at bulknews.net>
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