1use strict; 2use Test::More; 3use xt::CLI; 4 5{ 6 my $app = cli(); 7 8 $app->write_cpanfile(<<EOF); 9requires 'perl', '5.8.5'; 10requires 'Hash::MultiValue'; 11EOF 12 13 $app->run("install"); 14 like $app->stdout, qr/Complete/; 15 16 $app->run("list"); 17 like $app->stdout, qr/Hash-MultiValue-/; 18} 19 20done_testing; 21 22 23 24