[carton] 86/472: Added unit tests for uninstalling 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 6ce6487ee5e8e24235c9c7de1c7785c545701484
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date:   Wed Jun 29 23:37:05 2011 -0400

    Added unit tests for uninstalling dependencies
---
 xt/cli/uninstall_dep.t | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/xt/cli/uninstall_dep.t b/xt/cli/uninstall_dep.t
new file mode 100644
index 0000000..a058cba
--- /dev/null
+++ b/xt/cli/uninstall_dep.t
@@ -0,0 +1,40 @@
+use strict;
+use Test::More;
+use xt::CLI;
+use Cwd;
+
+my $cwd = Cwd::cwd();
+
+{
+    my $app = cli();
+
+    $app->dir->touch("Makefile.PL", <<EOF);
+use ExtUtils::MakeMaker;
+WriteMakefile(
+  NAME => 'foo',
+  VERSION => '0.1',
+  PREREQ_PM => {
+    CGI  => 3.50,
+    FCGI => 0.72,
+  },
+);
+EOF
+
+    $app->run("install");
+    $app->run("uninstall", "CGI");
+
+    like $app->output, qr/Uninstalling CGI/;
+    unlike $app->output, qr/Uninstalling FCGI/;
+
+    $app->run("list");
+    unlike $app->output, qr/^CGI-/m;
+    like $app->output, qr/FCGI-/;
+
+    $app->run("uninstall", "FCGI");
+    like $app->output, qr/Uninstalling FCGI/;
+}
+
+done_testing;
+
+
+

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/carton.git