Permalink
Browse files

Fix multi mirror test to use cpanfile

  • Loading branch information...
miyagawa committed May 12, 2012
1 parent 491cee3 commit 9602679b3866253a012df83b21b2d71cebace8ce
Showing with 8 additions and 3 deletions.
  1. +8 −3 xt/cli/mirror_multi.t
View
@@ -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-/;
}

0 comments on commit 9602679

Please sign in to comment.