[carton] 285/472: unuse Directory::Scratch

[Lucas Kanashiro]

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