Hello community,
here is the log from the commit of package perl-File-Path-Tiny for
openSUSE:Factory checked in at 2013-10-06 18:37:50
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-File-Path-Tiny (Old)
and /work/SRC/openSUSE:Factory/.perl-File-Path-Tiny.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-File-Path-Tiny"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-File-Path-Tiny/perl-File-Path-Tiny.changes
2013-06-06 15:06:00.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-File-Path-Tiny.new/perl-File-Path-Tiny.changes
2013-10-06 18:37:51.000000000 +0200
@@ -1,0 +2,8 @@
+Fri Oct 4 09:15:14 UTC 2013 - [email protected]
+
+- updated to 0.7
+ - add =encoding to POD due to test failure on certain boxes
+ - add several perl, pkg, and pod tests
+ - add mk_parent()
+
+-------------------------------------------------------------------
Old:
----
File-Path-Tiny-0.5.tar.gz
New:
----
File-Path-Tiny-0.7.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-File-Path-Tiny.spec ++++++
--- /var/tmp/diff_new_pack.CQsGk6/_old 2013-10-06 18:37:52.000000000 +0200
+++ /var/tmp/diff_new_pack.CQsGk6/_new 2013-10-06 18:37:52.000000000 +0200
@@ -17,7 +17,7 @@
Name: perl-File-Path-Tiny
-Version: 0.5
+Version: 0.7
Release: 0
%define cpan_name File-Path-Tiny
Summary: recursive versions of mkdir() and rmdir() without as much
overhead as Fi[cut]
@@ -51,9 +51,9 @@
Backwards compatibility brings in a lot of code and logic that we don't
need from here on out.
-* * chdir's
+* * chdir()s
- It does a ton of chdir's which could leave you somewhere you're not
+ It does a ton of chdir()s which could leave you somewhere you're not
planning on being and requires much more overhead to do.
* * can croak not allowing you to detect and handle failure
@@ -74,7 +74,7 @@
manpage
* * According to its POD, removing a tree is apparently not safe unless you
- tell it to be with the 'safe' or 'keep_root' attributes.
+ tell it to be with the ‘safe’ or 'keep_root' attributes.
Seems like that should just happen, I don't want to worry about
accidentally removing / when I pass it /tmp
++++++ File-Path-Tiny-0.5.tar.gz -> File-Path-Tiny-0.7.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.5/Changes
new/File-Path-Tiny-0.7/Changes
--- old/File-Path-Tiny-0.5/Changes 2012-09-06 14:46:50.000000000 +0200
+++ new/File-Path-Tiny-0.7/Changes 2013-09-27 01:51:18.000000000 +0200
@@ -1,20 +1,27 @@
Revision history for File-Path-Tiny
-0.5 Thu Sep 6 07:38:06 2012
+0.7 2013-09-26 18:46:19
+ - add =encoding to POD due to test failure on certain boxes
+ - add several perl, pkg, and pod tests
+
+0.6 2013-09-24 05:51:54
+ add mk_parent()
+
+0.5 2012-09-06 07:38:06
rt 79472 (thanks Lachlan!) fix absolute path bug introduced in 0.4
-0.4 Mon Sep 3 17:50:41 2012
+0.4 2012-09-03 17:50:41
rt 79345 (thanks Gian!): Failed to recursively create dir if the first
part solves to false
-0.3 Fri Apr 6 19:39:52 2012
+0.3 2013-04-06 19:39:52
rt 76061 No LICENSE in META.yml
rt 68950 break out rm() code into empty() type function, use it in rm()
-0.2 Sun Mar 11 16:50:44 2012
+0.2 2012-03-11 16:50:44
rt 51728 Missing colon in synopsis
rt 75688 using deprecated for qw() in 00.load.t
perltidy
-0.1 Mon Nov 17 20:09:59 2008
+0.1 2008 -11-17 20:09:59
Initial release.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.5/MANIFEST
new/File-Path-Tiny-0.7/MANIFEST
--- old/File-Path-Tiny-0.5/MANIFEST 2012-09-04 00:56:45.000000000 +0200
+++ new/File-Path-Tiny-0.7/MANIFEST 2013-09-27 01:44:41.000000000 +0200
@@ -6,7 +6,11 @@
lib/File/Path/Tiny.pod
t/00.load.t
t/perlcritic.t
+t/perltidy.t
+t/pkg-changes.t
+t/pkg-readme.t
t/pod-coverage.t
+t/pod-spelling.t
t/pod.t
META.yml Module meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by
MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.5/META.json
new/File-Path-Tiny-0.7/META.json
--- old/File-Path-Tiny-0.5/META.json 2012-09-06 14:47:18.000000000 +0200
+++ new/File-Path-Tiny-0.7/META.json 2013-09-27 01:57:29.000000000 +0200
@@ -4,7 +4,7 @@
"Daniel Muey <http://drmuey.com/cpan_contact.pl>"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter
version 2.112150",
+ "generated_by" : "ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter
version 2.120921",
"license" : [
"perl_5"
],
@@ -22,20 +22,20 @@
"prereqs" : {
"build" : {
"requires" : {
- "ExtUtils::MakeMaker" : 0
+ "ExtUtils::MakeMaker" : "0"
}
},
"configure" : {
"requires" : {
- "ExtUtils::MakeMaker" : 0
+ "ExtUtils::MakeMaker" : "0"
}
},
"runtime" : {
"requires" : {
- "Test::More" : 0
+ "Test::More" : "0"
}
}
},
"release_status" : "stable",
- "version" : "0.5"
+ "version" : "0.7"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.5/META.yml
new/File-Path-Tiny-0.7/META.yml
--- old/File-Path-Tiny-0.5/META.yml 2012-09-06 14:47:18.000000000 +0200
+++ new/File-Path-Tiny-0.7/META.yml 2013-09-27 01:57:29.000000000 +0200
@@ -7,7 +7,7 @@
configure_requires:
ExtUtils::MakeMaker: 0
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version
2.112150'
+generated_by: 'ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version
2.120921'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -19,4 +19,4 @@
- inc
requires:
Test::More: 0
-version: 0.5
+version: 0.7
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.5/Makefile.PL
new/File-Path-Tiny-0.7/Makefile.PL
--- old/File-Path-Tiny-0.5/Makefile.PL 2012-04-04 22:17:41.000000000 +0200
+++ new/File-Path-Tiny-0.7/Makefile.PL 2013-09-27 01:56:30.000000000 +0200
@@ -3,15 +3,15 @@
use ExtUtils::MakeMaker;
WriteMakefile(
- NAME => 'File::Path::Tiny',
- AUTHOR => 'Daniel Muey <http://drmuey.com/cpan_contact.pl>',
- VERSION_FROM => 'lib/File/Path/Tiny.pm',
- ABSTRACT_FROM => 'lib/File/Path/Tiny.pod',
- PL_FILES => {},
- LICENSE => 'perl',
- PREREQ_PM => {
+ NAME => 'File::Path::Tiny',
+ AUTHOR => 'Daniel Muey <http://drmuey.com/cpan_contact.pl>',
+ VERSION_FROM => 'lib/File/Path/Tiny.pm',
+ ABSTRACT_FROM => 'lib/File/Path/Tiny.pod',
+ PL_FILES => {},
+ LICENSE => 'perl',
+ PREREQ_PM => {
'Test::More' => 0,
},
- dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
- clean => { FILES => 'File-Path-Tiny-*' },
+ dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
+ clean => { FILES => 'File-Path-Tiny-*' },
);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.5/README
new/File-Path-Tiny-0.7/README
--- old/File-Path-Tiny-0.5/README 2012-09-06 14:46:40.000000000 +0200
+++ new/File-Path-Tiny-0.7/README 2013-09-27 01:51:42.000000000 +0200
@@ -1,4 +1,4 @@
-File-Path-Tiny version 0.5
+File-Path-Tiny version 0.7
DOCUMENTATION
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.5/lib/File/Path/Tiny.pm
new/File-Path-Tiny-0.7/lib/File/Path/Tiny.pm
--- old/File-Path-Tiny-0.5/lib/File/Path/Tiny.pm 2012-09-06
14:46:45.000000000 +0200
+++ new/File-Path-Tiny-0.7/lib/File/Path/Tiny.pm 2013-09-27
01:56:31.000000000 +0200
@@ -1,6 +1,9 @@
package File::Path::Tiny;
-$File::Path::Tiny::VERSION = 0.5;
+use strict;
+use warnings;
+
+$File::Path::Tiny::VERSION = 0.7;
sub mk {
my ( $path, $mask ) = @_;
@@ -54,4 +57,20 @@
return 1;
}
+sub mk_parent {
+ my ( $path, $mode ) = @_;
+ $path =~ s{/+$}{};
+
+ require File::Spec;
+ my ( $v, $d, $f ) = File::Spec->splitpath( $path, 1 );
+ my @p = File::Spec->splitdir($d);
+
+ # pop() is probably cheaper here, benchmark? $d =
File::Spec->catdir(@p[0--$#p-1]);
+ pop @p;
+ $d = File::Spec->catdir(@p);
+
+ my $parent = File::Spec->catpath( $v, $d, $f );
+ return mk( $parent, $mode );
+}
+
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.5/lib/File/Path/Tiny.pod
new/File-Path-Tiny-0.7/lib/File/Path/Tiny.pod
--- old/File-Path-Tiny-0.5/lib/File/Path/Tiny.pod 2012-09-06
14:46:48.000000000 +0200
+++ new/File-Path-Tiny-0.7/lib/File/Path/Tiny.pod 2013-09-27
01:55:54.000000000 +0200
@@ -1,10 +1,12 @@
+=encoding utf8
+
=head1 NAME
File::Path::Tiny - recursive versions of mkdir() and rmdir() without as much
overhead as File::Path
=head1 VERSION
-This document describes File::Path::Tiny version 0.5
+This document describes File::Path::Tiny version 0.7
=head1 SYNOPSIS
@@ -34,9 +36,9 @@
Backwards compatibility brings in a lot of code and logic that we don't need
from here on out.
-=item * chdir's
+=item * chdir()s
-It does a ton of chdir's which could leave you somewhere you're not planning
on being and requires much more overhead to do.
+It does a ton of chdir()s which could leave you somewhere you're not planning
on being and requires much more overhead to do.
=item * can croak not allowing you to detect and handle failure
@@ -50,7 +52,7 @@
Just keep it simple and detect failure via a boolean check and do what I want
with the error. See L</"How can I make/remove multiple paths?">
-=item * According to its POD, removing a tree is apparently not safe unless
you tell it to be with the 'safe' or 'keep_root' attributes.
+=item * According to its POD, removing a tree is apparently not safe unless
you tell it to be with the ‘safe’ or 'keep_root' attributes.
Seems like that should just happen, I don't want to worry about accidentally
removing / when I pass it /tmp
@@ -66,17 +68,17 @@
Mask defaults to 0700 (also like L<mkdir>())
-Returns false if it could not be made, true otherwise (returns '2' if it is -d
already)
+Returns false if it could not be made, true otherwise (returns ‘2’ if it is -d
already)
-It is recursive in the sense that given foo/bar/baz as the path to create all
3 will be created if necessary.
+It is recursive in the sense that given “foo/bar/baz” as the path to create
all 3 will be created if necessary.
=head2 File::Path::Tiny::rm()
Takes a single path (like L<rmdir>()) to recursively empty and remove.
-Returns false if it could not be emptied or removed, true otherwise. (returns
'2' if it is !-d already)
+Returns false if it could not be emptied or removed, true otherwise. (returns
‘2’ if it is !-d already)
-It is recursive in the sense that given /foo/bar/baz as the path to remove it
will recursively empty 'baz' and then remove it from /foo/bar.
+It is recursive in the sense that given “/foo/bar/baz” as the path to remove
it will recursively empty ‘baz’ and then remove it from /foo/bar.
Its parents, /, /foo, and /foo/bar are *not* touched.
@@ -86,6 +88,10 @@
Returns false when there is a problem.
+=head2 File::Path::Tiny::mk_parent()
+
+Like mk() but recursively creates the parent. e.g. given “foo/bar/baz.txt”
creates foo/bar.
+
=head1 DIAGNOSTICS
Throws no warnings or errors of its own
@@ -98,7 +104,7 @@
For simplicity sake && ::Tiny status this module must be very very very simple.
-That said it is also very simple to do muliple paths:
+That said it is also very simple to do multiple paths:
for my $path (@paths) {
File::Path::Tiny::::mk($path) or _my_handle_failed_mk($path, $!);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.5/t/00.load.t
new/File-Path-Tiny-0.7/t/00.load.t
--- old/File-Path-Tiny-0.5/t/00.load.t 2012-09-06 14:46:32.000000000 +0200
+++ new/File-Path-Tiny-0.7/t/00.load.t 2013-09-27 01:56:31.000000000 +0200
@@ -1,4 +1,4 @@
-use Test::More tests => 19;
+use Test::More tests => 30;
use lib '../lib';
@@ -15,6 +15,7 @@
foo/bar/mode foo/bar/mode2 foo/bar/mode3
foo/bar/mode_mkdir foo/bar/mode_mkdir2 foo/bar/dir
foo/bar/file foo/bar foo
+ zib/dib zib parent_mode parent_oct parent_str
)
) {
if ( !-l $path && -d $path ) {
@@ -39,16 +40,28 @@
ok( !File::Path::Tiny::mk("foo/bar/file"), "make already existing non
dir - return false" );
ok( $! == 20, "make already existing file
- errno" );
}
+
+ my $file = "zib/dib/kib";
+ ok( File::Path::Tiny::mk_parent($file), "mk_parent() simple path
returns true" );
+ ok( -d "zib/dib", "mk_parent() simple path -
parent recursively created" );
+ ok( !-e $file, "mk_parent() simple path -
file not created" );
+ ok( File::Path::Tiny::mk_parent($file) == 2, "mk_parent() already existing
simple path dir" );
}
SKIP: {
eval 'require File::Temp;';
- skip 'Absolute path test requires File::Temp', 3 if $@;
+ skip 'Absolute path test/mk_parent requires File::Temp', 3 if $@;
my $dir = File::Temp->newdir();
my $new = "$dir/foo/bar/baz";
ok( File::Path::Tiny::mk($new), "make absolute path - return true" );
ok( -d $new, "make absolute path - path
recursively created" );
ok( File::Path::Tiny::mk($new) == 2, "make already existing absolute path
dir" );
+
+ my $file = "$dir/zib/dib/kib";
+ ok( File::Path::Tiny::mk_parent($file), "mk_parent() absolute path
returns true" );
+ ok( -d "$dir/zib/dib", "mk_parent() absolute path -
parent recursively created" );
+ ok( !-e $file, "mk_parent() absolute path -
file not created" );
+ ok( File::Path::Tiny::mk_parent($file) == 2, "mk_parent() already existing
absolute path dir" );
}
mkdir 'foo/bar/dir';
@@ -63,17 +76,23 @@
ok( $mk_mode == $mkdir_mode, 'MASK logic gets same results as mkdir()' );
File::Path::Tiny::mk( "foo/bar/mode", 0700 );
+File::Path::Tiny::mk_parent( "parent_mode/x", 0700 );
mkdir 'foo/bar/mode_mkdir', 0700;
ok( ( stat('foo/bar/mode') )[2] == ( stat('foo/bar/mode_mkdir') )[2], 'MASK
arg OCT gets same results as mkdir()' );
+ok( ( stat('parent_mode') )[2] == ( stat('foo/bar/mode_mkdir') )[2], 'MASK
arg OCT gets same results as mkdir() - mk_parent()' );
File::Path::Tiny::mk( "foo/bar/mode2", oct('0700') );
+File::Path::Tiny::mk_parent( "parent_oct/x", oct('0700') );
mkdir 'foo/bar/mode_mkdir2', oct('0700');
ok( ( stat('foo/bar/mode2') )[2] == ( stat('foo/bar/mode_mkdir2') )[2], 'MASK
arg oct(STR) gets same results as mkdir()' );
+ok( ( stat('parent_oct') )[2] == ( stat('foo/bar/mode_mkdir2') )[2], 'MASK
arg oct(STR) gets same results as mkdir() - mk_parent()' );
File::Path::Tiny::mk( "foo/bar/mode3", "0700" );
+File::Path::Tiny::mk_parent( "parent_str/x", "0700" );
# mkdir 'foo/bar/mode_mkdir3', "0700"; # this breaks permissions so we compare
with previous one
ok( ( stat('foo/bar/mode3') )[2] == ( stat('foo/bar/mode2') )[2], 'MASK arg
STR gets detected and handled - different results as mkdir()' );
+ok( ( stat('parent_str') )[2] == ( stat('foo/bar/mode2') )[2], 'MASK arg
STR gets detected and handled - different results as mkdir() - mk_parent()' );
ok( !File::Path::Tiny::rm("foo/bar/file"), "remove existing non dir - return
false" );
ok( $! == 20, "remove existing non dir - errno" );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.5/t/perlcritic.t
new/File-Path-Tiny-0.7/t/perlcritic.t
--- old/File-Path-Tiny-0.5/t/perlcritic.t 2012-03-11 22:55:58.000000000
+0100
+++ new/File-Path-Tiny-0.7/t/perlcritic.t 2013-09-27 01:56:31.000000000
+0200
@@ -1,7 +1,8 @@
-#!perl -T
+#!perl
use Test::More;
-eval 'use Test::Perl::Critic (-exclude => "RequireUseStrict")';
+plan skip_all => 'Critic tests are only run in RELEASE_TESTING mode.' unless
$ENV{'RELEASE_TESTING'};
+
+eval 'use Test::Perl::Critic';
plan skip_all => 'Test::Perl::Critic required for testing PBP compliance' if
$@;
-plan skip_all => q($ENV{'do_perl_critic_tests'} must be true to run these
'development only' tests) if !$ENV{'do_perl_critic_tests'};
Test::Perl::Critic::all_critic_ok();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.5/t/perltidy.t
new/File-Path-Tiny-0.7/t/perltidy.t
--- old/File-Path-Tiny-0.5/t/perltidy.t 1970-01-01 01:00:00.000000000 +0100
+++ new/File-Path-Tiny-0.7/t/perltidy.t 2013-09-27 01:56:32.000000000 +0200
@@ -0,0 +1,8 @@
+#!perl
+
+use Test::More;
+plan skip_all => 'PerlTidy tests are only run in RELEASE_TESTING mode.' unless
$ENV{'RELEASE_TESTING'};
+
+eval 'use Test::PerlTidy';
+plan skip_all => 'Test::PerlTidy required for testing PerlTidy-ness' if $@;
+Test::PerlTidy::run_tests();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.5/t/pkg-changes.t
new/File-Path-Tiny-0.7/t/pkg-changes.t
--- old/File-Path-Tiny-0.5/t/pkg-changes.t 1970-01-01 01:00:00.000000000
+0100
+++ new/File-Path-Tiny-0.7/t/pkg-changes.t 2013-09-27 01:56:32.000000000
+0200
@@ -0,0 +1,9 @@
+#!perl
+
+use Test::More;
+plan skip_all => 'pkg/Changes tests are only run in RELEASE_TESTING mode.'
unless $ENV{'RELEASE_TESTING'};
+
+eval 'use Test::CPAN::Changes 0.23';
+plan skip_all => 'Test::CPAN::Changes 0.23 required for testing the
pkg/Changes file' if $@;
+
+changes_ok(); # this does the plan
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.5/t/pkg-readme.t
new/File-Path-Tiny-0.7/t/pkg-readme.t
--- old/File-Path-Tiny-0.5/t/pkg-readme.t 1970-01-01 01:00:00.000000000
+0100
+++ new/File-Path-Tiny-0.7/t/pkg-readme.t 2013-09-27 01:56:32.000000000
+0200
@@ -0,0 +1,9 @@
+#!perl
+
+use Test::More;
+plan skip_all => 'pkg/README tests are only run in RELEASE_TESTING mode.'
unless $ENV{'RELEASE_TESTING'};
+
+eval 'use Test::CPAN::README';
+plan skip_all => 'Test::CPAN::README required for testing the pkg/README file'
if $@;
+
+readme_ok('File::Path::Tiny'); # this does the plan
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.5/t/pod-coverage.t
new/File-Path-Tiny-0.7/t/pod-coverage.t
--- old/File-Path-Tiny-0.5/t/pod-coverage.t 2012-03-11 22:55:58.000000000
+0100
+++ new/File-Path-Tiny-0.7/t/pod-coverage.t 2013-09-27 01:56:32.000000000
+0200
@@ -1,6 +1,8 @@
-#!perl -T
+#!perl
use Test::More;
+plan skip_all => 'POD tests are only run in RELEASE_TESTING mode.' unless
$ENV{'RELEASE_TESTING'};
+
eval 'use Test::Pod::Coverage 1.04';
-plan skip_all => 'Test::Pod::Coverage 1.04 required for testing POD coverage'
if $@;
+plan skip_all => 'Test::Pod::Coverage v1.04 required for testing POD coverage'
if $@;
all_pod_coverage_ok();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.5/t/pod-spelling.t
new/File-Path-Tiny-0.7/t/pod-spelling.t
--- old/File-Path-Tiny-0.5/t/pod-spelling.t 1970-01-01 01:00:00.000000000
+0100
+++ new/File-Path-Tiny-0.7/t/pod-spelling.t 2013-09-27 01:56:32.000000000
+0200
@@ -0,0 +1,19 @@
+#!perl
+
+use Test::More;
+plan skip_all => 'POD tests are only run in RELEASE_TESTING mode.' unless
$ENV{'RELEASE_TESTING'};
+
+eval 'use Test::Spelling 0.19';
+plan skip_all => 'Test::Spelling v0.19 required for testing POD' if $@;
+
+add_stopwords( map { split /[\s\:\-]/ } readline(*DATA) );
+$ENV{LANG} = 'C';
+all_pod_files_spelling_ok();
+
+__DATA__
+MERCHANTABILITY
+Muey
+
+LICENCE
+app
+baz
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.5/t/pod.t
new/File-Path-Tiny-0.7/t/pod.t
--- old/File-Path-Tiny-0.5/t/pod.t 2012-03-11 22:55:58.000000000 +0100
+++ new/File-Path-Tiny-0.7/t/pod.t 2013-09-27 01:56:33.000000000 +0200
@@ -1,6 +1,8 @@
-#!perl -T
+#!perl
use Test::More;
+plan skip_all => 'POD tests are only run in RELEASE_TESTING mode.' unless
$ENV{'RELEASE_TESTING'};
+
eval 'use Test::Pod 1.14';
-plan skip_all => 'Test::Pod 1.14 required for testing POD' if $@;
+plan skip_all => 'Test::Pod v1.14 required for testing POD' if $@;
all_pod_files_ok();
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
