1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
use strict; use Test::More; use xt::CLI; { my $app = cli(); $app->write_cpanfile(<<EOF); requires 'Try::Tiny', '== 0.12'; EOF $app->run("install"); $app->run("bundle"); ok -f ($app->dir . "/vendor/cache/authors/id/D/DO/DOY/Try-Tiny-0.12.tar.gz"); } done_testing;