This is an automated email from the git hooks/post-receive script. kanashiro-guest pushed a commit to branch master in repository carton.
commit 3117d4a524626636b02414c8c156f432a18b9b10 Author: Tatsuhiko Miyagawa <miyag...@bulknews.net> Date: Fri May 31 10:10:37 2013 +0900 Added more tests for exec with no --, as well as versioning tests with -M --- xt/cli/exec.t | 19 ++++++++++++++----- 1 file changed, 14 insertions(+), 5 deletions(-) diff --git a/xt/cli/exec.t b/xt/cli/exec.t index 186ad92..44d6243 100644 --- a/xt/cli/exec.t +++ b/xt/cli/exec.t @@ -9,23 +9,32 @@ use xt::CLI; like $app->system_error, qr/Can't locate Try\/Tiny.pm/; $app->dir->touch("cpanfile", <<EOF); -requires 'Try::Tiny'; +requires 'Try::Tiny', '== 0.11'; EOF $app->run("install"); - $app->run("exec", "--", "perl", "-e", 'use Try::Tiny; print "OK\n"'); - like $app->system_output, qr/OK/; + $app->run("exec", "--", "perl", "-e", 'use Try::Tiny; print $Try::Tiny::VERSION, "\n"'); + like $app->system_output, qr/0\.11/; + + $app->run("exec", "perl", "-e", 'use Try::Tiny; print $Try::Tiny::VERSION, "\n"'); + like $app->system_output, qr/0\.11/, "No need for -- as well"; + + TODO: { + local $TODO = "Because of PERL5OPT loading order"; + $app->run("exec", "perl", "-MTry::Tiny", "-e", 'print $Try::Tiny::VERSION, "\n"'); + like $app->system_output, qr/0\.11/; + } $app->dir->touch("cpanfile", <<EOF); requires 'Try::Tiny'; -requires 'Mojolicious'; +requires 'Mojolicious', '== 4.01'; EOF $app->run("install"); $app->run("exec", "--", "mojo", "version"); - like $app->system_output, qr/Mojolicious/; + like $app->system_output, qr/Mojolicious \(4\.01/; } done_testing; -- 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