[carton] 167/472: Fix multi mirror test to use cpanfile

[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 9602679b3866253a012df83b21b2d71cebace8ce
Author: Tatsuhiko Miyagawa <miyag...@bulknews.net>
Date:   Sat May 12 06:10:43 2012 +0300

    Fix multi mirror test to use cpanfile
---
 xt/cli/mirror_multi.t | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/xt/cli/mirror_multi.t b/xt/cli/mirror_multi.t
index 36a0df4..6706d5b 100644
--- a/xt/cli/mirror_multi.t
+++ b/xt/cli/mirror_multi.t
@@ -8,9 +8,12 @@ my $cwd = Cwd::cwd();
 {
     # split string
     my $app = cli();
+    $app->dir->touch("cpanfile", <<EOF);
+requires 'PSGI';
+EOF
 
     $app->carton->{mirror} = "$cwd/xt/mirror,http://cpan.metacpan.org/";;
-    $app->run("install", "PSGI");
+    $app->run("install");
 
     $app->run("list");
     like $app->output, qr/^PSGI-/;
@@ -19,10 +22,12 @@ my $cwd = Cwd::cwd();
 {
     # ARRAY ref
     my $app = cli();
+    $app->dir->touch("cpanfile", <<EOF);
+requires 'PSGI';
+EOF
 
     $app->carton->{mirror} = ["$cwd/xt/mirror", "http://cpan.metacpan.org/";];
-    $app->run("install", "PSGI");
-
+    $app->run("install");
     $app->run("list");
     like $app->output, qr/^PSGI-/;
 }

-- 
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
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits