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 <[email protected]> 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 _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
