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 - [email protected] + +- 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 <[email protected]> + 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 <[email protected]> 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>[email protected]<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;
