From 1535d7dab1df2c9e9f62a685d0ed643bda16a6cc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Tue, 24 Jan 2017 18:27:15 +0100
Subject: [PATCH] Migrate tests from depreated methods to
Dist::Zilla::Path::path()
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Dist::Zilla::Path 6.008 warns that file() and subdir() methods are
depracated:
t/arcrel.t .............. 2/6 ->file called on a Dist::Zilla::Path
object; this will cease to work in Dist::Zilla v7; downstream code
should be updated to use Path::Tiny API, not Path::Class at t/arcrel.t
line 82.
This patch uses Dist::Zilla::Path::path() instead.
CPAN RT#119960
Signed-off-by: Petr Písař <ppisar@redhat.com>
---
t/arcrel.t | 4 ++--
t/gitvercheck.t | 2 +-
t/recommendedprereqs.t | 2 +-
3 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/t/arcrel.t b/t/arcrel.t
index 4320f72..9efef9b 100644
--- a/t/arcrel.t
+++ b/t/arcrel.t
@@ -79,10 +79,10 @@ sub new_tzil
$tzil->release;
- my $tarball = $tzil->root->file('releases/DZT-Sample-0.001.tar.gz');
+ my $tarball = $tzil->root->path('releases/DZT-Sample-0.001.tar.gz');
ok(-e $tarball, 'archived tarball');
is($tarball->stat->mode & 0777, 0444, 'tarball is read-only');
- ok((not -e $tzil->root->file('DZT-Sample-0.001.tar.gz')),
+ ok((not -e $tzil->root->path('DZT-Sample-0.001.tar.gz')),
'tarball was moved');
}
diff --git a/t/gitvercheck.t b/t/gitvercheck.t
index b4a312f..5084c35 100644
--- a/t/gitvercheck.t
+++ b/t/gitvercheck.t
@@ -96,7 +96,7 @@ sub new_tzil
# Something about the copy dzil makes seems to confuse git into
# thinking files are modified when they aren't.
# Run "git reset --mixed" in the source directory to unconfuse it:
- Git::Wrapper->new( $tzil->tempdir->subdir("source")->stringify )
+ Git::Wrapper->new( $tzil->tempdir->path("source")->stringify )
->reset('--mixed');
$tzil;
diff --git a/t/recommendedprereqs.t b/t/recommendedprereqs.t
index aed0764..4b1bf4f 100644
--- a/t/recommendedprereqs.t
+++ b/t/recommendedprereqs.t
@@ -21,7 +21,7 @@ my $tzil = Builder->from_config(
$tzil->build;
-my $meta = Parse::CPAN::Meta->load_file($tzil->tempdir->file('build/META.yml'));
+my $meta = Parse::CPAN::Meta->load_file($tzil->tempdir->path('build/META.yml'));
my $ver = version->new($meta->{'meta-spec'}{version});
diag "CPAN::Meta::Spec = $ver";
--
2.7.4