[carton] 285/472: unuse Directory::Scratch
Lucas Kanashiro
kanashiro-guest at moszumanska.debian.org
Fri Jul 24 00:38:55 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 0a99c8bc0ce0c11bbbf67bfe156d2d2eaade5d20
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date: Wed Jun 5 15:18:25 2013 +0900
unuse Directory::Scratch
---
cpanfile | 1 -
xt/CLI.pm | 5 +++--
xt/cli/bundle.t | 2 +-
xt/cli/check.t | 2 +-
xt/cli/deployment.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/perl.t | 2 +-
xt/cli/test_deps.t | 2 +-
xt/cli/tree.t | 2 +-
12 files changed, 16 insertions(+), 16 deletions(-)
diff --git a/cpanfile b/cpanfile
index 08d0f9a..98d3fd8 100644
--- a/cpanfile
+++ b/cpanfile
@@ -25,7 +25,6 @@ requires 'CPAN::Meta::Requirements', 2.121;
on develop => sub {
requires 'Test::Requires';
- requires 'Directory::Scratch';
requires 'Capture::Tiny';
requires 'File::pushd';
};
diff --git a/xt/CLI.pm b/xt/CLI.pm
index bb8f8a5..110e847 100644
--- a/xt/CLI.pm
+++ b/xt/CLI.pm
@@ -3,11 +3,12 @@ use strict;
use base qw(Exporter);
our @EXPORT = qw(run cli);
-use Test::Requires qw( Directory::Scratch Capture::Tiny File::pushd );
+use Test::Requires qw( Capture::Tiny File::pushd );
sub cli {
my $cli = Carton::CLI::Tested->new;
- $cli->dir( Directory::Scratch->new(CLEANUP => !$ENV{NO_CLEANUP}) );
+ $cli->dir( Path::Tiny->tempdir(CLEANUP => !$ENV{NO_CLEANUP}) );
+ warn "Temp directory: ", $cli->dir, "\n" if $ENV{NO_CLEANUP};
$cli;
}
diff --git a/xt/cli/bundle.t b/xt/cli/bundle.t
index 2469291..4b84e60 100644
--- a/xt/cli/bundle.t
+++ b/xt/cli/bundle.t
@@ -5,7 +5,7 @@ use xt::CLI;
{
my $app = cli();
- $app->dir->touch("cpanfile", <<EOF);
+ $app->dir->child("cpanfile")->spew(<<EOF);
requires 'Try::Tiny', '== 0.12';
EOF
diff --git a/xt/cli/check.t b/xt/cli/check.t
index b1090b9..9d75773 100644
--- a/xt/cli/check.t
+++ b/xt/cli/check.t
@@ -7,7 +7,7 @@ plan skip_all => "check is unimplemented";
{
my $app = cli();
- $app->dir->touch("cpanfile", <<EOF);
+ $app->dir->child("cpanfile")->spew(<<EOF);
requires 'Try::Tiny';
EOF
diff --git a/xt/cli/deployment.t b/xt/cli/deployment.t
index a0dc66e..596c6d4 100644
--- a/xt/cli/deployment.t
+++ b/xt/cli/deployment.t
@@ -4,7 +4,7 @@ use xt::CLI;
{
my $app = cli();
- $app->dir->touch("cpanfile", <<EOF);
+ $app->dir->child("cpanfile")->spew(<<EOF);
requires 'Try::Tiny', '== 0.11';
EOF
diff --git a/xt/cli/exec.t b/xt/cli/exec.t
index 6ba7a45..99d1a29 100644
--- a/xt/cli/exec.t
+++ b/xt/cli/exec.t
@@ -10,7 +10,7 @@ use xt::CLI;
{
my $app = cli();
- $app->dir->touch("cpanfile", '');
+ $app->dir->child("cpanfile")->spew('');
$app->run("install");
TODO: {
@@ -19,7 +19,7 @@ use xt::CLI;
like $app->stderr, qr/Can't locate Try\/Tiny.pm/;
}
- $app->dir->touch("cpanfile", <<EOF);
+ $app->dir->child("cpanfile")->spew(<<EOF);
requires 'Try::Tiny', '== 0.11';
EOF
@@ -34,7 +34,7 @@ EOF
$app->run("exec", "perl", "-MTry::Tiny", "-e", 'print $Try::Tiny::VERSION, "\n"');
like $app->stdout, qr/0\.11/;
- $app->dir->touch("cpanfile", <<EOF);
+ $app->dir->child("cpanfile")->spew(<<EOF);
requires 'Try::Tiny';
requires 'Mojolicious', '== 4.01';
EOF
diff --git a/xt/cli/freeze.t b/xt/cli/freeze.t
index 1d3c8a3..f363626 100644
--- a/xt/cli/freeze.t
+++ b/xt/cli/freeze.t
@@ -5,7 +5,7 @@ use xt::CLI;
{
my $app = cli();
- $app->dir->touch("cpanfile", <<EOF);
+ $app->dir->child("cpanfile")->spew(<<EOF);
requires 'Try::Tiny', '== 0.11';
EOF
diff --git a/xt/cli/json_pp.t b/xt/cli/json_pp.t
index 97798d3..99bea4e 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->touch("cpanfile", <<EOF);
+ $app->dir->child("cpanfile")->spew(<<EOF);
requires 'JSON';
requires 'CPAN::Meta', '2.12';
EOF
diff --git a/xt/cli/mirror.t b/xt/cli/mirror.t
index 128b6b3..e94dccf 100644
--- a/xt/cli/mirror.t
+++ b/xt/cli/mirror.t
@@ -8,7 +8,7 @@ my $cwd = Cwd::cwd();
{
my $app = cli();
- $app->dir->touch("cpanfile", <<EOF);
+ $app->dir->child("cpanfile")->spew(<<EOF);
requires 'Hash::MultiValue';
EOF
@@ -22,7 +22,7 @@ EOF
{
# fallback to CPAN
my $app = cli();
- $app->dir->touch("cpanfile", <<EOF);
+ $app->dir->child("cpanfile")->spew(<<EOF);
requires 'PSGI';
EOF
diff --git a/xt/cli/perl.t b/xt/cli/perl.t
index dbfb5fd..7b9bb28 100644
--- a/xt/cli/perl.t
+++ b/xt/cli/perl.t
@@ -8,7 +8,7 @@ my $cwd = Cwd::cwd();
{
my $app = cli();
- $app->dir->touch("cpanfile", <<EOF);
+ $app->dir->child("cpanfile")->spew(<<EOF);
requires 'perl', '5.8.5';
requires 'Hash::MultiValue';
EOF
diff --git a/xt/cli/test_deps.t b/xt/cli/test_deps.t
index f8b602e..de53ae8 100644
--- a/xt/cli/test_deps.t
+++ b/xt/cli/test_deps.t
@@ -8,7 +8,7 @@ my $cwd = Cwd::cwd();
{
my $app = cli();
- $app->dir->touch("cpanfile", <<EOF);
+ $app->dir->child("cpanfile")->spew(<<EOF);
on test => sub {
requires 'Test::NoWarnings';
};
diff --git a/xt/cli/tree.t b/xt/cli/tree.t
index 1f8777a..5249c65 100644
--- a/xt/cli/tree.t
+++ b/xt/cli/tree.t
@@ -6,7 +6,7 @@ use Cwd;
{
my $app = cli();
- $app->dir->touch("cpanfile", <<EOF);
+ $app->dir->child("cpanfile")->spew(<<EOF);
requires 'HTML::Parser';
EOF
--
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