[carton] 310/472: add write_cpanfile() convenient method
Lucas Kanashiro
kanashiro-guest at moszumanska.debian.org
Fri Jul 24 00:38:58 UTC 2015
This is an automated email from the git hooks/post-receive script.
kanashiro-guest pushed a commit to branch master
in repository carton.
commit 8137ec0304d02a02d702f063aad812ce00e82fb4
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date: Thu Jun 6 09:55:07 2013 +0900
add write_cpanfile() convenient method
---
xt/CLI.pm | 5 +++++
xt/cli/bundle.t | 2 +-
xt/cli/check.t | 6 +++---
xt/cli/deployment.t | 2 +-
xt/cli/deps_phase.t | 2 +-
xt/cli/exec.t | 6 +++---
xt/cli/freeze.t | 2 +-
xt/cli/json_pp.t | 2 +-
xt/cli/mirror.t | 4 ++--
xt/cli/mismatch.t | 2 +-
xt/cli/perl.t | 2 +-
xt/cli/tree.t | 2 +-
xt/cli/update.t | 12 ++++++------
13 files changed, 27 insertions(+), 22 deletions(-)
diff --git a/xt/CLI.pm b/xt/CLI.pm
index 8186cf0..0b58068 100644
--- a/xt/CLI.pm
+++ b/xt/CLI.pm
@@ -26,6 +26,11 @@ has stdout => (is => 'rw');
has stderr => (is => 'rw');
has exit_code => (is => 'rw');
+sub write_cpanfile {
+ my($self, @args) = @_;
+ $self->dir->child('cpanfile')->spew(@args);
+}
+
sub run {
my($self, @args) = @_;
diff --git a/xt/cli/bundle.t b/xt/cli/bundle.t
index 4b84e60..aa84f24 100644
--- a/xt/cli/bundle.t
+++ b/xt/cli/bundle.t
@@ -5,7 +5,7 @@ use xt::CLI;
{
my $app = cli();
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'Try::Tiny', '== 0.12';
EOF
diff --git a/xt/cli/check.t b/xt/cli/check.t
index 21bd3c2..59805e0 100644
--- a/xt/cli/check.t
+++ b/xt/cli/check.t
@@ -5,7 +5,7 @@ use xt::CLI;
{
my $app = cli();
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'Try::Tiny', '== 0.11';
EOF
@@ -20,7 +20,7 @@ EOF
$app->run("list");
like $app->stdout, qr/Try-Tiny-0\.11/;
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'Try::Tiny', '0.12';
EOF
@@ -37,7 +37,7 @@ EOF
$app->run("list");
like $app->stdout, qr/Try-Tiny-0\.12/;
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'Try::Tiny', '10.00';
EOF
diff --git a/xt/cli/deployment.t b/xt/cli/deployment.t
index 596c6d4..36a2511 100644
--- a/xt/cli/deployment.t
+++ b/xt/cli/deployment.t
@@ -4,7 +4,7 @@ use xt::CLI;
{
my $app = cli();
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'Try::Tiny', '== 0.11';
EOF
diff --git a/xt/cli/deps_phase.t b/xt/cli/deps_phase.t
index 781d767..862dc76 100644
--- a/xt/cli/deps_phase.t
+++ b/xt/cli/deps_phase.t
@@ -5,7 +5,7 @@ use xt::CLI;
{
my $app = cli();
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
on test => sub {
requires 'Test::NoWarnings';
recommends 'Test::Pretty';
diff --git a/xt/cli/exec.t b/xt/cli/exec.t
index bd3ab28..b56b241 100644
--- a/xt/cli/exec.t
+++ b/xt/cli/exec.t
@@ -11,7 +11,7 @@ use xt::CLI;
{
my $app = cli();
- $app->dir->child("cpanfile")->spew('');
+ $app->write_cpanfile('');
$app->run("install");
TODO: {
@@ -20,7 +20,7 @@ use xt::CLI;
like $app->stderr, qr/Can't locate Try\/Tiny.pm/;
}
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'Try::Tiny', '== 0.11';
EOF
@@ -35,7 +35,7 @@ EOF
$app->run("exec", "perl", "-MTry::Tiny", "-e", 'print $Try::Tiny::VERSION, "\n"');
like $app->stdout, qr/0\.11/;
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'Try::Tiny';
requires 'Mojolicious', '== 4.01';
EOF
diff --git a/xt/cli/freeze.t b/xt/cli/freeze.t
index f363626..f02a2c3 100644
--- a/xt/cli/freeze.t
+++ b/xt/cli/freeze.t
@@ -5,7 +5,7 @@ use xt::CLI;
{
my $app = cli();
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'Try::Tiny', '== 0.11';
EOF
diff --git a/xt/cli/json_pp.t b/xt/cli/json_pp.t
index c1f7707..0c64395 100644
--- a/xt/cli/json_pp.t
+++ b/xt/cli/json_pp.t
@@ -7,7 +7,7 @@ plan skip_all => "perl <= 5.14" if $] >= 5.015;
{
my $app = cli();
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'JSON';
requires 'CPAN::Meta', '2.12';
EOF
diff --git a/xt/cli/mirror.t b/xt/cli/mirror.t
index 089f702..a97fdcd 100644
--- a/xt/cli/mirror.t
+++ b/xt/cli/mirror.t
@@ -7,7 +7,7 @@ my $cwd = Path::Tiny->cwd;
{
my $app = cli();
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'Hash::MultiValue';
EOF
@@ -21,7 +21,7 @@ EOF
{
# fallback to CPAN
my $app = cli();
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'PSGI';
EOF
diff --git a/xt/cli/mismatch.t b/xt/cli/mismatch.t
index e233dc9..dca4751 100644
--- a/xt/cli/mismatch.t
+++ b/xt/cli/mismatch.t
@@ -5,7 +5,7 @@ use xt::CLI;
{
my $app = cli();
- $app->dir->child('cpanfile')->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'Data::Dumper' => '== 2.139';
requires 'Test::Differences' => '== 0.61';
EOF
diff --git a/xt/cli/perl.t b/xt/cli/perl.t
index 27e9a66..a7e0143 100644
--- a/xt/cli/perl.t
+++ b/xt/cli/perl.t
@@ -5,7 +5,7 @@ use xt::CLI;
{
my $app = cli();
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'perl', '5.8.5';
requires 'Hash::MultiValue';
EOF
diff --git a/xt/cli/tree.t b/xt/cli/tree.t
index 15c56bf..bc7ce8c 100644
--- a/xt/cli/tree.t
+++ b/xt/cli/tree.t
@@ -5,7 +5,7 @@ use xt::CLI;
{
my $app = cli();
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'HTML::Parser';
EOF
diff --git a/xt/cli/update.t b/xt/cli/update.t
index 8babb1d..a6c94c1 100644
--- a/xt/cli/update.t
+++ b/xt/cli/update.t
@@ -5,7 +5,7 @@ use xt::CLI;
subtest 'carton update NonExistentModule' => sub {
my $app = cli();
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'Try::Tiny', '== 0.09';
EOF
@@ -17,7 +17,7 @@ EOF
subtest 'carton update upgrades a dist' => sub {
my $app = cli();
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'Try::Tiny', '== 0.09';
EOF
@@ -25,7 +25,7 @@ EOF
$app->run("list");
like $app->stdout, qr/Try-Tiny-0\.09/;
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'Try::Tiny', '>= 0.09, <= 0.12';
EOF
@@ -49,14 +49,14 @@ EOF
subtest 'downgrade a distribution' => sub {
my $app = cli();
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'Try::Tiny', '0.12';
EOF
$app->run("install");
$app->run("list");
like $app->stdout, qr/Try-Tiny-0\.12/;
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'Try::Tiny', '== 0.09';
EOF
$app->run("update");
@@ -65,7 +65,7 @@ EOF
TODO: {
local $TODO = 'collecting wrong install info';
- $app->dir->child("cpanfile")->spew(<<EOF);
+ $app->write_cpanfile(<<EOF);
requires 'Try::Tiny', '0.09';
EOF
$app->run("install");
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/carton.git
More information about the Pkg-perl-cvs-commits
mailing list