Hello community,
here is the log from the commit of package perl-Test-Script for openSUSE:Factory checked in at 2016-10-23 12:53:36
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Test-Script (Old)
and /work/SRC/openSUSE:Factory/.perl-Test-Script.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-Script"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Test-Script/perl-Test-Script.changes 2016-05-08 10:46:15.000000000 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Test-Script.new/perl-Test-Script.changes 2016-10-23 12:53:44.000000000 +0200
@@ -1,0 +2,16 @@
+Fri Oct 14 06:24:43 UTC 2016 - coolo@suse.com
+
+- updated to 1.14
+ see /usr/share/doc/packages/perl-Test-Script/Changes
+
+ 1.14 2016-10-13 11:04:48 -0400
+ - Fix a regex in a test that fails on recent versions of
+ Test2 on Windows (possibly others) (gh#8)
+ - One of the tests was unreasonably slow, so it does
+ not get run for users, but will be used for development
+ only
+ - Remove warning condition that happens with at least some
+ older versions of Perl when using quotemeta without
+ parentheses (gh#7 Thanks Brendan Byrd)
+
+-------------------------------------------------------------------
Old:
----
Test-Script-1.12.tar.gz
New:
----
Test-Script-1.14.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Test-Script.spec ++++++
--- /var/tmp/diff_new_pack.rnbWg2/_old 2016-10-23 12:53:45.000000000 +0200
+++ /var/tmp/diff_new_pack.rnbWg2/_new 2016-10-23 12:53:45.000000000 +0200
@@ -17,7 +17,7 @@
Name: perl-Test-Script
-Version: 1.12
+Version: 1.14
Release: 0
%define cpan_name Test-Script
Summary: Basic cross-platform tests for scripts
@@ -75,6 +75,6 @@
%files -f %{name}.files
%defattr(-,root,root,755)
-%doc Changes LICENSE README
+%doc author.yml Changes LICENSE README
%changelog
++++++ Test-Script-1.12.tar.gz -> Test-Script-1.14.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/Changes new/Test-Script-1.14/Changes
--- old/Test-Script-1.12/Changes 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/Changes 2016-10-13 17:04:52.000000000 +0200
@@ -1,5 +1,15 @@
Revision history for Perl extension Test-Script
+1.14 2016-10-13 11:04:48 -0400
+ - Fix a regex in a test that fails on recent versions of
+ Test2 on Windows (possibly others) (gh#8)
+ - One of the tests was unreasonably slow, so it does
+ not get run for users, but will be used for development
+ only
+ - Remove warning condition that happens with at least some
+ older versions of Perl when using quotemeta without
+ parentheses (gh#7 Thanks Brendan Byrd)
+
1.12 2016-05-02 11:18:01 -0400
- Production release identical to 1.11_03 release.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/INSTALL new/Test-Script-1.14/INSTALL
--- old/Test-Script-1.12/INSTALL 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/INSTALL 2016-10-13 17:04:52.000000000 +0200
@@ -8,10 +8,10 @@
% cpanm Test::Script
-If you are installing into a system-wide directory, you may need to pass the
-"-S" flag to cpanm, which uses sudo to install the module:
-
- % cpanm -S Test::Script
+If it does not have permission to install modules to the current perl, cpanm
+will automatically set up and install to a local::lib in your home directory.
+See the local::lib documentation (https://metacpan.org/pod/local::lib) for
+details on enabling it in your environment.
## Installing with the CPAN shell
@@ -31,9 +31,9 @@
% make install
-If you are installing into a system-wide directory, you may need to run:
-
- % sudo make install
+If your perl is system-managed, you can create a local::lib in your home
+directory to install modules to. For details, see the local::lib documentation:
+https://metacpan.org/pod/local::lib
## Documentation
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/MANIFEST new/Test-Script-1.14/MANIFEST
--- old/Test-Script-1.12/MANIFEST 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/MANIFEST 2016-10-13 17:04:52.000000000 +0200
@@ -1,4 +1,4 @@
-# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.003.
+# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.007.
Changes
INSTALL
LICENSE
@@ -7,6 +7,7 @@
META.yml
Makefile.PL
README
+author.yml
cpanfile
dist.ini
lib/Test/Script.pm
@@ -29,12 +30,11 @@
t2/test_script__exports.t
t2/test_script__script_compiles.t
t2/test_script__script_runs.t
-xt/release/eol.t
+xt/author/eol.t
+xt/author/no_tabs.t
+xt/author/pod.t
+xt/author/pod_coverage.t
+xt/author/pod_spelling_common.t
+xt/author/pod_spelling_system.t
+xt/author/version.t
xt/release/fixme.t
-xt/release/no_tabs.t
-xt/release/pod.t
-xt/release/pod_coverage.t
-xt/release/pod_spelling_common.t
-xt/release/pod_spelling_system.t
-xt/release/release.yml
-xt/release/version.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/META.json new/Test-Script-1.14/META.json
--- old/Test-Script-1.12/META.json 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/META.json 2016-10-13 17:04:52.000000000 +0200
@@ -5,7 +5,7 @@
"Adam Kennedy"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 6.003, CPAN::Meta::Converter version 2.150005",
+ "generated_by" : "Dist::Zilla version 6.007, CPAN::Meta::Converter version 2.150010",
"license" : [
"perl_5"
],
@@ -22,9 +22,6 @@
}
},
"develop" : {
- "recommends" : {
- "YAML::XS" : "0"
- },
"requires" : {
"FindBin" : "0",
"Test::EOL" : "0",
@@ -63,13 +60,14 @@
"bugtracker" : {
"web" : "https://github.com/plicease/Test-Script/issues"
},
- "homepage" : "http://perl.wdlabs.com/Test-Script",
+ "homepage" : "https://metacpan.org/pod/Test::Script",
"repository" : {
"type" : "git",
"url" : "git://github.com/plicease/Test-Script.git",
"web" : "https://github.com/plicease/Test-Script"
}
},
- "version" : "1.12"
+ "version" : "1.14",
+ "x_serialization_backend" : "Cpanel::JSON::XS version 3.0217"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/META.yml new/Test-Script-1.14/META.yml
--- old/Test-Script-1.12/META.yml 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/META.yml 2016-10-13 17:04:52.000000000 +0200
@@ -13,7 +13,7 @@
ExtUtils::MakeMaker: '0'
perl: '5.006'
dynamic_config: 0
-generated_by: 'Dist::Zilla version 6.003, CPAN::Meta::Converter version 2.150005'
+generated_by: 'Dist::Zilla version 6.007, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -28,6 +28,7 @@
perl: '5.006'
resources:
bugtracker: https://github.com/plicease/Test-Script/issues
- homepage: http://perl.wdlabs.com/Test-Script
+ homepage: https://metacpan.org/pod/Test::Script
repository: git://github.com/plicease/Test-Script.git
-version: '1.12'
+version: '1.14'
+x_serialization_backend: 'YAML::Tiny version 1.69'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/Makefile.PL new/Test-Script-1.14/Makefile.PL
--- old/Test-Script-1.12/Makefile.PL 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/Makefile.PL 2016-10-13 17:04:52.000000000 +0200
@@ -10,7 +10,7 @@
exit;
}
}
-# This file was automatically generated by Dist::Zilla::Plugin::Author::Plicease::MakeMaker v2.03.
+# This file was automatically generated by Dist::Zilla::Plugin::Author::Plicease::MakeMaker v2.10.
use strict;
use warnings;
@@ -44,7 +44,7 @@
"Test::More" => "0.96",
"Test::Tester" => 0
},
- "VERSION" => "1.12",
+ "VERSION" => "1.14",
"test" => {
"TESTS" => "t/*.t"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/README new/Test-Script-1.14/README
--- old/Test-Script-1.12/README 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/README 2016-10-13 17:04:52.000000000 +0200
@@ -4,7 +4,7 @@
VERSION
- version 1.12
+ version 1.14
SYNOPSIS
@@ -203,6 +203,10 @@
Current maintainer: Graham Ollis
+ Contributors:
+
+ Brendan Byrd
+
COPYRIGHT AND LICENSE
This software is copyright (c) 2006 by Adam Kennedy.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/author.yml new/Test-Script-1.14/author.yml
--- old/Test-Script-1.12/author.yml 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Script-1.14/author.yml 2016-10-13 17:04:52.000000000 +0200
@@ -0,0 +1,26 @@
+---
+pod_spelling_system:
+ skip: 0
+ # list of words that are spelled correctly
+ # (regardless of what spell check thinks)
+ stopwords:
+ # australian spelling.
+ - localised
+
+pod_coverage:
+ skip: 0
+ # format is "Class#method" or "Class", regex allowed
+ # for either Class or method.
+ private:
+ # private
+ - Test::Script#path
+ - Test::Script#perl
+ # old interface
+ - Test::Script#script_compiles_ok
+
+unused_vars:
+ skip: 0
+ global:
+ ignore_vars: []
+ module: {}
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/cpanfile new/Test-Script-1.14/cpanfile
--- old/Test-Script-1.12/cpanfile 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/cpanfile 2016-10-13 17:04:52.000000000 +0200
@@ -30,7 +30,3 @@
requires "Test::Spelling" => "0";
requires "YAML" => "0";
};
-
-on 'develop' => sub {
- recommends "YAML::XS" => "0";
-};
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/dist.ini new/Test-Script-1.14/dist.ini
--- old/Test-Script-1.12/dist.ini 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/dist.ini 2016-10-13 17:04:52.000000000 +0200
@@ -4,13 +4,12 @@
license = Perl_5
copyright_holder = Adam Kennedy
copyright_year = 2006
-version = 1.12
+version = 1.14
[@Author::Plicease]
:version = 1.94
travis_status = 1
release_tests = 1
-release_tests_skip = (changes|strict)\.t
diag_preamble = | $post_diag = sub
diag_preamble = | {
@@ -57,4 +56,8 @@
[Author::Plicease::Thanks]
current = Graham Ollis
original = Adam Kennedy
+contributor = Brendan Byrd
+[PruneFiles]
+filename = xt/release/changes.t
+filename = xt/author/strict.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/lib/Test/Script.pm new/Test-Script-1.14/lib/Test/Script.pm
--- old/Test-Script-1.12/lib/Test/Script.pm 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/lib/Test/Script.pm 2016-10-13 17:04:52.000000000 +0200
@@ -1,7 +1,7 @@
package Test::Script;
# ABSTRACT: Basic cross-platform tests for scripts
-our $VERSION = '1.12'; # VERSION
+our $VERSION = '1.14'; # VERSION
use 5.006;
@@ -131,7 +131,7 @@
join ',',
# quotemeta is overkill, but it will make sure that characters
# like " are quoted
- map { '"' . quotemeta . '"' }
+ map { '"' . quotemeta($_) . '"' }
grep { ! ref } @INC)
|| die "unable to write $filename: $!";
close($fh) || die "unable to close $filename: $!";;
@@ -315,7 +315,7 @@
=head1 VERSION
-version 1.12
+version 1.14
=head1 SYNOPSIS
@@ -522,6 +522,10 @@
Current maintainer: Graham Ollis E<lt>plicease@cpan.orgE<gt>
+Contributors:
+
+Brendan Byrd
+
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2006 by Adam Kennedy.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/t2/test_script__script_compiles.t new/Test-Script-1.14/t2/test_script__script_compiles.t
--- old/Test-Script-1.12/t2/test_script__script_compiles.t 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/t2/test_script__script_compiles.t 2016-10-13 17:04:52.000000000 +0200
@@ -45,7 +45,6 @@
my $rv;
my $bad = File::Spec->catfile(qw( t bin bad.pl ));
- my $qbad = quotemeta($bad);
ok -f $bad, 'found bad script';
is(
@@ -62,8 +61,8 @@
# generated by TB / T2
};
event Diag => sub {
- call message => match qr{\d+ - (?:Using.*\n# )?Bad at $qbad line 4\.\n};
- call message => match qr{BEGIN failed--compilation aborted at $bad line 5.};
+ call message => match qr{\d+ - (?:Using.*\n# )?Bad at \Q$bad\E line 4\.\n};
+ call message => match qr{BEGIN failed--compilation aborted at \Q$bad\E line 5.};
};
end;
},
@@ -86,8 +85,8 @@
# generated by TB / T2
};
event Diag => sub {
- call message => match qr{\d+ - (?:Using.*\n# )?Bad at $qbad line 4\.\n};
- call message => match qr{BEGIN failed--compilation aborted at $bad line 5.};
+ call message => match qr{\d+ - (?:Using.*\n# )?Bad at \Q$bad\E line 4\.\n};
+ call message => match qr{BEGIN failed--compilation aborted at \Q$bad\E line 5\.};
};
end;
},
@@ -100,6 +99,8 @@
subtest 'unreasonable number of libs' => sub {
+ skip_all 'developer only test' unless $ENV{TEST_SCRIPT_DEV_TEST};
+
local @INC = @INC;
my $dir = tempdir( CLEANUP => 1 );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/t2/test_script__script_runs.t new/Test-Script-1.14/t2/test_script__script_runs.t
--- old/Test-Script-1.12/t2/test_script__script_runs.t 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/t2/test_script__script_runs.t 2016-10-13 17:04:52.000000000 +0200
@@ -88,6 +88,8 @@
subtest 'unreasonable number of libs' => sub {
+ skip_all 'developer only test' unless $ENV{TEST_SCRIPT_DEV_TEST};
+
local @INC = @INC;
my $dir = tempdir( CLEANUP => 1 );
for(map { File::Spec->catfile($dir, $_) } 1..1000000)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/xt/author/eol.t new/Test-Script-1.14/xt/author/eol.t
--- old/Test-Script-1.12/xt/author/eol.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Script-1.14/xt/author/eol.t 2016-10-13 17:04:52.000000000 +0200
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+use Test::More;
+BEGIN {
+ plan skip_all => 'test requires Test::EOL'
+ unless eval q{ use Test::EOL; 1 };
+};
+use Test::EOL;
+use FindBin;
+use File::Spec;
+
+chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
+
+all_perl_files_ok(grep { -e $_ } qw( bin lib t Makefile.PL ));
+
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/xt/author/no_tabs.t new/Test-Script-1.14/xt/author/no_tabs.t
--- old/Test-Script-1.12/xt/author/no_tabs.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Script-1.14/xt/author/no_tabs.t 2016-10-13 17:04:52.000000000 +0200
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+use Test::More;
+BEGIN {
+ plan skip_all => 'test requires Test::NoTabs'
+ unless eval q{ use Test::NoTabs; 1 };
+};
+use Test::NoTabs;
+use FindBin;
+use File::Spec;
+
+chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
+
+all_perl_files_ok( grep { -e $_ } qw( bin lib t Makefile.PL ));
+
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/xt/author/pod.t new/Test-Script-1.14/xt/author/pod.t
--- old/Test-Script-1.12/xt/author/pod.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Script-1.14/xt/author/pod.t 2016-10-13 17:04:52.000000000 +0200
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+use Test::More;
+BEGIN {
+ plan skip_all => 'test requires Test::Pod'
+ unless eval q{ use Test::Pod; 1 };
+};
+use Test::Pod;
+use FindBin;
+use File::Spec;
+
+chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
+
+all_pod_files_ok( grep { -e $_ } qw( bin lib ));
+
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/xt/author/pod_coverage.t new/Test-Script-1.14/xt/author/pod_coverage.t
--- old/Test-Script-1.12/xt/author/pod_coverage.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Script-1.14/xt/author/pod_coverage.t 2016-10-13 17:04:52.000000000 +0200
@@ -0,0 +1,75 @@
+use strict;
+use warnings;
+use Test::More;
+BEGIN {
+ plan skip_all => 'test requires 5.010 or better'
+ unless $] >= 5.010;
+ plan skip_all => 'test requires Test::Pod::Coverage'
+ unless eval q{ use Test::Pod::Coverage; 1 };
+ plan skip_all => 'test requires YAML'
+ unless eval q{ use YAML; 1; };
+};
+use Test::Pod::Coverage;
+use YAML qw( LoadFile );
+use FindBin;
+use File::Spec;
+
+my $config_filename = File::Spec->catfile(
+ $FindBin::Bin, File::Spec->updir, File::Spec->updir, 'author.yml'
+);
+
+my $config;
+$config = LoadFile($config_filename)
+ if -r $config_filename;
+
+plan skip_all => 'disabled' if $config->{pod_coverage}->{skip};
+
+chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
+
+my @private_classes;
+my %private_methods;
+
+push @{ $config->{pod_coverage}->{private} },
+ 'Alien::.*::Install::Files#Inline';
+
+foreach my $private (@{ $config->{pod_coverage}->{private} })
+{
+ my($class,$method) = split /#/, $private;
+ if(defined $class && $class ne '')
+ {
+ my $regex = eval 'qr{^' . $class . '$}';
+ if(defined $method && $method ne '')
+ {
+ push @private_classes, { regex => $regex, method => $method };
+ }
+ else
+ {
+ push @private_classes, { regex => $regex, all => 1 };
+ }
+ }
+ elsif(defined $method && $method ne '')
+ {
+ $private_methods{$_} = 1 for split /,/, $method;
+ }
+}
+
+my @classes = all_modules;
+
+plan tests => scalar @classes;
+
+foreach my $class (@classes)
+{
+ SKIP: {
+ my($is_private_class) = map { 1 } grep { $class =~ $_->{regex} && $_->{all} } @private_classes;
+ skip "private class: $class", 1 if $is_private_class;
+
+ my %methods = map {; $_ => 1 } map { split /,/, $_->{method} } grep { $class =~ $_->{regex} } @private_classes;
+ $methods{$_} = 1 for keys %private_methods;
+
+ my $also_private = eval 'qr{^' . join('|', keys %methods ) . '$}';
+
+ pod_coverage_ok $class, { also_private => [$also_private] };
+ };
+}
+
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/xt/author/pod_spelling_common.t new/Test-Script-1.14/xt/author/pod_spelling_common.t
--- old/Test-Script-1.12/xt/author/pod_spelling_common.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Script-1.14/xt/author/pod_spelling_common.t 2016-10-13 17:04:52.000000000 +0200
@@ -0,0 +1,29 @@
+use strict;
+use warnings;
+use Test::More;
+BEGIN {
+ plan skip_all => 'test requires Test::Pod::Spelling::CommonMistakes'
+ unless eval q{ use Test::Pod::Spelling::CommonMistakes; 1 };
+ plan skip_all => 'test requires YAML'
+ unless eval q{ use YAML qw( LoadFile ); 1 };
+};
+use Test::Pod::Spelling::CommonMistakes;
+use FindBin;
+use File::Spec;
+
+my $config_filename = File::Spec->catfile(
+ $FindBin::Bin, File::Spec->updir, File::Spec->updir, 'author.yml'
+);
+
+my $config;
+$config = LoadFile($config_filename)
+ if -r $config_filename;
+
+plan skip_all => 'disabled' if $config->{pod_spelling_common}->{skip};
+
+chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
+
+# TODO: test files in bin too.
+all_pod_files_ok;
+
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/xt/author/pod_spelling_system.t new/Test-Script-1.14/xt/author/pod_spelling_system.t
--- old/Test-Script-1.12/xt/author/pod_spelling_system.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Script-1.14/xt/author/pod_spelling_system.t 2016-10-13 17:04:52.000000000 +0200
@@ -0,0 +1,102 @@
+use strict;
+use warnings;
+use Test::More;
+BEGIN {
+ plan skip_all => 'test requires Test::Spelling'
+ unless eval q{ use Test::Spelling; 1 };
+ plan skip_all => 'test requires YAML'
+ unless eval q{ use YAML; 1; };
+};
+use Test::Spelling;
+use YAML qw( LoadFile );
+use FindBin;
+use File::Spec;
+
+my $config_filename = File::Spec->catfile(
+ $FindBin::Bin, File::Spec->updir, File::Spec->updir, 'author.yml'
+);
+
+my $config;
+$config = LoadFile($config_filename)
+ if -r $config_filename;
+
+plan skip_all => 'disabled' if $config->{pod_spelling_system}->{skip};
+
+chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
+
+add_stopwords(@{ $config->{pod_spelling_system}->{stopwords} });
+add_stopwords(qw(
+Plicease
+stdout
+stderr
+stdin
+subref
+loopback
+username
+os
+Ollis
+Mojolicious
+plicease
+CPAN
+reinstall
+TODO
+filename
+filenames
+login
+callback
+callbacks
+standalone
+VMS
+hostname
+hostnames
+TCP
+UDP
+IP
+API
+MSWin32
+OpenBSD
+FreeBSD
+NetBSD
+unencrypted
+WebSocket
+WebSockets
+timestamp
+timestamps
+poney
+BackPAN
+portably
+RedHat
+AIX
+BSD
+XS
+FFI
+perlish
+optimizations
+subdirectory
+RESTful
+SQLite
+JavaScript
+dir
+plugins
+munge
+jQuery
+namespace
+PDF
+PDFs
+usernames
+DBI
+pluggable
+APIs
+SSL
+JSON
+YAML
+uncommented
+Solaris
+OpenVMS
+URI
+URL
+CGI
+));
+all_pod_files_spelling_ok;
+
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/xt/author/version.t new/Test-Script-1.14/xt/author/version.t
--- old/Test-Script-1.12/xt/author/version.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Script-1.14/xt/author/version.t 2016-10-13 17:04:52.000000000 +0200
@@ -0,0 +1,45 @@
+use strict;
+use warnings;
+use Test::More;
+use FindBin ();
+BEGIN {
+
+ plan skip_all => "test requires Test::Version 2.00"
+ unless eval q{
+ use Test::Version 2.00 qw( version_all_ok ), {
+ has_version => 1,
+ filename_match => sub { $_[0] !~ m{/(ConfigData|Install/Files)\.pm$} },
+ };
+ 1
+ };
+
+ plan skip_all => "test requires Path::Class"
+ unless eval q{ use Path::Class qw( file dir ); 1 };
+ plan skip_all => 'test requires YAML'
+ unless eval q{ use YAML; 1; };
+}
+
+use YAML qw( LoadFile );
+use FindBin;
+use File::Spec;
+
+plan skip_all => "test not built yet (run dzil test)"
+ unless -e dir( $FindBin::Bin)->parent->parent->file('Makefile.PL')
+ || -e dir( $FindBin::Bin)->parent->parent->file('Build.PL');
+
+my $config_filename = File::Spec->catfile(
+ $FindBin::Bin, File::Spec->updir, File::Spec->updir, 'author.yml'
+);
+
+my $config;
+$config = LoadFile($config_filename)
+ if -r $config_filename;
+
+if($config->{version}->{dir})
+{
+ note "using dir " . $config->{version}->{dir}
+}
+
+version_all_ok($config->{version}->{dir} ? ($config->{version}->{dir}) : ());
+done_testing;
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/xt/release/eol.t new/Test-Script-1.14/xt/release/eol.t
--- old/Test-Script-1.12/xt/release/eol.t 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/xt/release/eol.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,14 +0,0 @@
-use strict;
-use warnings;
-use Test::More;
-BEGIN {
- plan skip_all => 'test requires Test::EOL'
- unless eval q{ use Test::EOL; 1 };
-};
-use Test::EOL;
-use FindBin;
-use File::Spec;
-
-chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
-
-all_perl_files_ok(grep { -e $_ } qw( bin lib t Makefile.PL ));
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/xt/release/fixme.t new/Test-Script-1.14/xt/release/fixme.t
--- old/Test-Script-1.12/xt/release/fixme.t 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/xt/release/fixme.t 2016-10-13 17:04:52.000000000 +0200
@@ -17,3 +17,4 @@
warn => 1,
);
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/xt/release/no_tabs.t new/Test-Script-1.14/xt/release/no_tabs.t
--- old/Test-Script-1.12/xt/release/no_tabs.t 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/xt/release/no_tabs.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,15 +0,0 @@
-use strict;
-use warnings;
-use Test::More;
-BEGIN {
- plan skip_all => 'test requires Test::NoTabs'
- unless eval q{ use Test::NoTabs; 1 };
-};
-use Test::NoTabs;
-use FindBin;
-use File::Spec;
-
-chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
-
-all_perl_files_ok( grep { -e $_ } qw( bin lib t Makefile.PL ));
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/xt/release/pod.t new/Test-Script-1.14/xt/release/pod.t
--- old/Test-Script-1.12/xt/release/pod.t 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/xt/release/pod.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,15 +0,0 @@
-use strict;
-use warnings;
-use Test::More;
-BEGIN {
- plan skip_all => 'test requires Test::Pod'
- unless eval q{ use Test::Pod; 1 };
-};
-use Test::Pod;
-use FindBin;
-use File::Spec;
-
-chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
-
-all_pod_files_ok( grep { -e $_ } qw( bin lib ));
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/xt/release/pod_coverage.t new/Test-Script-1.14/xt/release/pod_coverage.t
--- old/Test-Script-1.12/xt/release/pod_coverage.t 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/xt/release/pod_coverage.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,74 +0,0 @@
-use strict;
-use warnings;
-use Test::More;
-BEGIN {
- plan skip_all => 'test requires 5.010 or better'
- unless $] >= 5.010;
- plan skip_all => 'test requires Test::Pod::Coverage'
- unless eval q{ use Test::Pod::Coverage; 1 };
- plan skip_all => 'test requires YAML'
- unless eval q{ use YAML; 1; };
-};
-use Test::Pod::Coverage;
-use YAML qw( LoadFile );
-use FindBin;
-use File::Spec;
-
-my $config_filename = File::Spec->catfile(
- $FindBin::Bin, 'release.yml'
-);
-
-my $config;
-$config = LoadFile($config_filename)
- if -r $config_filename;
-
-plan skip_all => 'disabled' if $config->{pod_coverage}->{skip};
-
-chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
-
-my @private_classes;
-my %private_methods;
-
-push @{ $config->{pod_coverage}->{private} },
- 'Alien::.*::Install::Files#Inline';
-
-foreach my $private (@{ $config->{pod_coverage}->{private} })
-{
- my($class,$method) = split /#/, $private;
- if(defined $class && $class ne '')
- {
- my $regex = eval 'qr{^' . $class . '$}';
- if(defined $method && $method ne '')
- {
- push @private_classes, { regex => $regex, method => $method };
- }
- else
- {
- push @private_classes, { regex => $regex, all => 1 };
- }
- }
- elsif(defined $method && $method ne '')
- {
- $private_methods{$_} = 1 for split /,/, $method;
- }
-}
-
-my @classes = all_modules;
-
-plan tests => scalar @classes;
-
-foreach my $class (@classes)
-{
- SKIP: {
- my($is_private_class) = map { 1 } grep { $class =~ $_->{regex} && $_->{all} } @private_classes;
- skip "private class: $class", 1 if $is_private_class;
-
- my %methods = map {; $_ => 1 } map { split /,/, $_->{method} } grep { $class =~ $_->{regex} } @private_classes;
- $methods{$_} = 1 for keys %private_methods;
-
- my $also_private = eval 'qr{^' . join('|', keys %methods ) . '$}';
-
- pod_coverage_ok $class, { also_private => [$also_private] };
- };
-}
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/xt/release/pod_spelling_common.t new/Test-Script-1.14/xt/release/pod_spelling_common.t
--- old/Test-Script-1.12/xt/release/pod_spelling_common.t 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/xt/release/pod_spelling_common.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,27 +0,0 @@
-use strict;
-use warnings;
-use Test::More;
-BEGIN {
- plan skip_all => 'test requires Test::Pod::Spelling::CommonMistakes'
- unless eval q{ use Test::Pod::Spelling::CommonMistakes; 1 };
- plan skip_all => 'test requires YAML'
- unless eval q{ use YAML qw( LoadFile ); 1 };
-};
-use Test::Pod::Spelling::CommonMistakes;
-use FindBin;
-use File::Spec;
-
-my $config_filename = File::Spec->catfile(
- $FindBin::Bin, 'release.yml'
-);
-
-my $config;
-$config = LoadFile($config_filename)
- if -r $config_filename;
-
-plan skip_all => 'disabled' if $config->{pod_spelling_common}->{skip};
-
-chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
-
-# FIXME test files in bin too.
-all_pod_files_ok;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/xt/release/pod_spelling_system.t new/Test-Script-1.14/xt/release/pod_spelling_system.t
--- old/Test-Script-1.12/xt/release/pod_spelling_system.t 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/xt/release/pod_spelling_system.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,101 +0,0 @@
-use strict;
-use warnings;
-use Test::More;
-BEGIN {
- plan skip_all => 'test requires Test::Spelling'
- unless eval q{ use Test::Spelling; 1 };
- plan skip_all => 'test requires YAML'
- unless eval q{ use YAML; 1; };
-};
-use Test::Spelling;
-use YAML qw( LoadFile );
-use FindBin;
-use File::Spec;
-
-my $config_filename = File::Spec->catfile(
- $FindBin::Bin, 'release.yml'
-);
-
-my $config;
-$config = LoadFile($config_filename)
- if -r $config_filename;
-
-plan skip_all => 'disabled' if $config->{pod_spelling_system}->{skip};
-
-chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
-
-add_stopwords(@{ $config->{pod_spelling_system}->{stopwords} });
-add_stopwords(<DATA>);
-all_pod_files_spelling_ok;
-
-__DATA__
-Plicease
-stdout
-stderr
-stdin
-subref
-loopback
-username
-os
-Ollis
-Mojolicious
-plicease
-CPAN
-reinstall
-TODO
-filename
-filenames
-login
-callback
-callbacks
-standalone
-VMS
-hostname
-hostnames
-TCP
-UDP
-IP
-API
-MSWin32
-OpenBSD
-FreeBSD
-NetBSD
-unencrypted
-WebSocket
-WebSockets
-timestamp
-timestamps
-poney
-BackPAN
-portably
-RedHat
-AIX
-BSD
-XS
-FFI
-perlish
-optimizations
-subdirectory
-RESTful
-SQLite
-JavaScript
-dir
-plugins
-munge
-jQuery
-namespace
-PDF
-PDFs
-usernames
-DBI
-pluggable
-APIs
-SSL
-JSON
-YAML
-uncommented
-Solaris
-OpenVMS
-URI
-URL
-CGI
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/xt/release/release.yml new/Test-Script-1.14/xt/release/release.yml
--- old/Test-Script-1.12/xt/release/release.yml 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/xt/release/release.yml 1970-01-01 01:00:00.000000000 +0100
@@ -1,26 +0,0 @@
----
-pod_spelling_system:
- skip: 0
- # list of words that are spelled correctly
- # (regardless of what spell check thinks)
- stopwords:
- # australian spelling.
- - localised
-
-pod_coverage:
- skip: 0
- # format is "Class#method" or "Class", regex allowed
- # for either Class or method.
- private:
- # private
- - Test::Script#path
- - Test::Script#perl
- # old interface
- - Test::Script#script_compiles_ok
-
-unused_vars:
- skip: 0
- global:
- ignore_vars: []
- module: {}
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.12/xt/release/version.t new/Test-Script-1.14/xt/release/version.t
--- old/Test-Script-1.12/xt/release/version.t 2016-05-02 17:18:04.000000000 +0200
+++ new/Test-Script-1.14/xt/release/version.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,44 +0,0 @@
-use strict;
-use warnings;
-use Test::More;
-use FindBin ();
-BEGIN {
-
- plan skip_all => "test requires Test::Version 2.00"
- unless eval q{
- use Test::Version 2.00 qw( version_all_ok ), {
- has_version => 1,
- filename_match => sub { $_[0] !~ m{/(ConfigData|Install/Files)\.pm$} },
- };
- 1
- };
-
- plan skip_all => "test requires Path::Class"
- unless eval q{ use Path::Class qw( file dir ); 1 };
- plan skip_all => 'test requires YAML'
- unless eval q{ use YAML; 1; };
-}
-
-use YAML qw( LoadFile );
-use FindBin;
-use File::Spec;
-
-plan skip_all => "test not built yet (run dzil test)"
- unless -e dir( $FindBin::Bin)->parent->parent->file('Makefile.PL')
- || -e dir( $FindBin::Bin)->parent->parent->file('Build.PL');
-
-my $config_filename = File::Spec->catfile(
- $FindBin::Bin, 'release.yml'
-);
-
-my $config;
-$config = LoadFile($config_filename)
- if -r $config_filename;
-
-if($config->{version}->{dir})
-{
- note "using dir " . $config->{version}->{dir}
-}
-
-version_all_ok($config->{version}->{dir} ? ($config->{version}->{dir}) : ());
-done_testing;