Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
35 lines (22 sloc) 518 Bytes
use strict;
use Test::More;
use xt::CLI;
use Cwd;
my $cwd = Cwd::cwd();
{
# split string
my $app = cli();
$app->carton->{mirror} = "$cwd/xt/mirror,http://cpan.metacpan.org/";
$app->run("install", "PSGI");
$app->run("list");
like $app->output, qr/^PSGI-/;
}
{
# ARRAY ref
my $app = cli();
$app->carton->{mirror} = ["$cwd/xt/mirror", "http://cpan.metacpan.org/"];
$app->run("install", "PSGI");
$app->run("list");
like $app->output, qr/^PSGI-/;
}
done_testing;
Jump to Line
Something went wrong with that request. Please try again.