[libdist-zilla-plugin-test-podspelling-perl] 01/02: migrate to Path::Tiny

Axel Beckert abe at deuxchevaux.org
Mon May 25 10:05:16 UTC 2015


This is an automated email from the git hooks/post-receive script.

abe pushed a commit to annotated tag 2.006004
in repository libdist-zilla-plugin-test-podspelling-perl.

commit fca1e5a2d83873dde870230d2a140b30fea5918f
Author: Caleb Cushing <xenoterracide at gmail.com>
Date:   Sun Feb 23 11:38:59 2014 -0600

    migrate to Path::Tiny
    
    because apparently everyone else is
    
    Signed-off-by: Caleb Cushing <xenoterracide at gmail.com>
---
 t/checked.t | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/t/checked.t b/t/checked.t
index f649947..14ae0eb 100644
--- a/t/checked.t
+++ b/t/checked.t
@@ -6,7 +6,7 @@ use Test::More 0.88;
 use Test::Requires;
 
 use Dist::Zilla::Tester;
-use Path::Class;
+use Path::Tiny;
 use Cwd ();
 use English '-no_match_vars';
 
@@ -34,10 +34,10 @@ BEGIN {
 
 # lib/ and bin/
 # (bin/foo should be 'not ok' because of a spelling error)
-spell_check_dist( foo   => [file(qw(bin foo)) => {ok => 0}], file(qw(lib Foo.pm)) );
+spell_check_dist( foo   => [ path('bin/foo') => {ok => 0}], path('lib/Foo.pm') );
 
 # just lib/
-spell_check_dist( nobin => file(qw(lib Foo.pm)) );
+spell_check_dist( nobin => path('lib/Foo.pm') );
 
 done_testing;
 
@@ -55,7 +55,7 @@ sub spell_check_dist {
   # and the dir will likely get cleaned up later, so :-P
 
   my $tzil = Dist::Zilla::Tester->from_config({
-    dist_root => dir('corpus', $dir),
+    dist_root => path('corpus', $dir),
   }, {
     tempdir_root => '.build', # avoid creating ./tmp
   });
@@ -71,7 +71,7 @@ sub spell_check_dist {
       local *Test::Tester::Delegate::plan = sub {};
 
       # run the actual xt file generated by this module
-      do "${\ file(qw(xt author pod-spell.t)) }";
+      do "${\ path(qw(xt author pod-spell.t)) }";
     },
     [
       # results we're expecting
@@ -80,7 +80,7 @@ sub spell_check_dist {
           # expected test result ('ok' or 'not ok')
           ok => 1,
           # file name
-          name => 'POD spelling for ' . $_->[0]->as_foreign('Unix'),
+          name => 'POD spelling for ' . $_->[0],
           # ignore depth/Level tests, we just want to know that the file was checked
           depth => undef,
           # overridden expectations (in args to spell_check_dist)

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-plugin-test-podspelling-perl.git



More information about the Pkg-perl-cvs-commits mailing list