Hello community, here is the log from the commit of package perl-SVG for openSUSE:Factory checked in at 2018-02-16 21:45:40 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-SVG (Old) and /work/SRC/openSUSE:Factory/.perl-SVG.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-SVG" Fri Feb 16 21:45:40 2018 rev:19 rq:577185 version:2.83 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-SVG/perl-SVG.changes 2018-01-24 15:30:46.689593927 +0100 +++ /work/SRC/openSUSE:Factory/.perl-SVG.new/perl-SVG.changes 2018-02-16 21:45:42.800834952 +0100 @@ -1,0 +2,9 @@ +Tue Feb 13 07:02:30 UTC 2018 - [email protected] + +- updated to 2.83 + see /usr/share/doc/packages/perl-SVG/Changes + + 2.83 2018.02.12 MANWAR + - Merged PR #11 (Test Reports), thanks @genio. + +------------------------------------------------------------------- Old: ---- SVG-2.82.tar.gz New: ---- SVG-2.83.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-SVG.spec ++++++ --- /var/tmp/diff_new_pack.fgMY54/_old 2018-02-16 21:45:43.728801484 +0100 +++ /var/tmp/diff_new_pack.fgMY54/_new 2018-02-16 21:45:43.732801340 +0100 @@ -17,7 +17,7 @@ Name: perl-SVG -Version: 2.82 +Version: 2.83 Release: 0 %define cpan_name SVG Summary: Perl extension for generating Scalable Vector Graphics (SVG) documents ++++++ SVG-2.82.tar.gz -> SVG-2.83.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/Changes new/SVG-2.83/Changes --- old/SVG-2.82/Changes 2017-12-18 13:25:03.000000000 +0100 +++ new/SVG-2.83/Changes 2018-02-12 16:58:18.000000000 +0100 @@ -1,5 +1,8 @@ Revision history for Perl extension SVG. +2.83 2018.02.12 MANWAR + - Merged PR #11 (Test Reports), thanks @genio. + 2.82 2017.12.18 MANWAR - Fixed subquery (txn-1762542) of the issue RT #123896. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/MANIFEST new/SVG-2.83/MANIFEST --- old/SVG-2.82/MANIFEST 2017-12-18 13:25:41.000000000 +0100 +++ new/SVG-2.83/MANIFEST 2018-02-12 17:01:09.000000000 +0100 @@ -29,6 +29,7 @@ Makefile.PL MANIFEST This list of files README +t/00-report-prereqs.t t/00-load.t t/01-loadsvg.t t/03-render.t @@ -53,13 +54,13 @@ t/22-xlink.t t/23-xmlescape.t t/30-shapes.t -t/96-perl-critic.t -t/98-tidyall.t -t/99_test_pod_coverage.t t/duplicate_credits.t -t/meta-json.t -t/meta-yml.t -xt/98_all_pod.t -xt/99_perl_critic.t +xt/author/perl-critic.t +xt/author/perl-critic-tidy.t +xt/author/pod-coverage.t +xt/author/pod-syntax.t +xt/author/tidyall.t +xt/release/meta-json.t +xt/release/meta-yml.t META.yml Module YAML 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/SVG-2.82/META.json new/SVG-2.83/META.json --- old/SVG-2.82/META.json 2017-12-18 13:25:41.000000000 +0100 +++ new/SVG-2.83/META.json 2018-02-12 17:01:09.000000000 +0100 @@ -22,42 +22,54 @@ "prereqs" : { "build" : { "requires" : { - "Test::More" : "0.94" + "ExtUtils::MakeMaker" : "0", + "File::Spec" : "0", + "Test::More" : "0.94", + "strict" : "0", + "warnings" : "0" } }, "configure" : { "requires" : { - "ExtUtils::MakeMaker" : "0" + "ExtUtils::MakeMaker" : "0", + "perl" : "5.006", + "strict" : "0", + "warnings" : "0" } }, "runtime" : { "requires" : { + "Exporter" : "0", "Scalar::Util" : "0", + "constant" : "0", "parent" : "0", - "perl" : "5.006" + "perl" : "5.006", + "strict" : "0", + "vars" : "0", + "warnings" : "0" } } }, "provides" : { "SVG" : { "file" : "lib/SVG.pm", - "version" : "2.82" + "version" : "2.83" }, "SVG::DOM" : { "file" : "lib/SVG/DOM.pm", - "version" : "2.82" + "version" : "2.83" }, "SVG::Element" : { "file" : "lib/SVG/Element.pm", - "version" : "2.82" + "version" : "2.83" }, "SVG::Extension" : { "file" : "lib/SVG/Extension.pm", - "version" : "2.82" + "version" : "2.83" }, "SVG::XML" : { "file" : "lib/SVG/XML.pm", - "version" : "2.82" + "version" : "2.83" } }, "release_status" : "stable", @@ -68,7 +80,7 @@ "web" : "https://github.com/manwar/SVG"; } }, - "version" : "2.82", + "version" : "2.83", "x_contributors" : [ "Peter Wainwright", "Ian Hickson", diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/META.yml new/SVG-2.83/META.yml --- old/SVG-2.82/META.yml 2017-12-18 13:25:41.000000000 +0100 +++ new/SVG-2.83/META.yml 2018-02-12 17:01:09.000000000 +0100 @@ -3,9 +3,16 @@ author: - 'Ronan Oger <[email protected]>' build_requires: + ExtUtils::MakeMaker: '0' + File::Spec: '0' Test::More: '0.94' + strict: '0' + warnings: '0' configure_requires: ExtUtils::MakeMaker: '0' + perl: '5.006' + strict: '0' + warnings: '0' dynamic_config: 1 generated_by: 'ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150005' license: perl @@ -20,26 +27,31 @@ provides: SVG: file: lib/SVG.pm - version: '2.82' + version: '2.83' SVG::DOM: file: lib/SVG/DOM.pm - version: '2.82' + version: '2.83' SVG::Element: file: lib/SVG/Element.pm - version: '2.82' + version: '2.83' SVG::Extension: file: lib/SVG/Extension.pm - version: '2.82' + version: '2.83' SVG::XML: file: lib/SVG/XML.pm - version: '2.82' + version: '2.83' requires: + Exporter: '0' Scalar::Util: '0' + constant: '0' parent: '0' perl: '5.006' + strict: '0' + vars: '0' + warnings: '0' resources: repository: https://github.com/manwar/SVG.git -version: '2.82' +version: '2.83' x_contributors: - 'Peter Wainwright' - 'Ian Hickson' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/Makefile.PL new/SVG-2.83/Makefile.PL --- old/SVG-2.82/Makefile.PL 2017-12-18 13:25:14.000000000 +0100 +++ new/SVG-2.83/Makefile.PL 2018-02-12 16:51:10.000000000 +0100 @@ -9,11 +9,26 @@ NAME => 'SVG', VERSION_FROM => 'lib/SVG.pm', PREREQ_PM => { + 'strict' => 0, + 'warnings' => 0, + 'constant' => 0, 'parent' => 0, + 'vars' => 0, + 'Exporter' => 0, 'Scalar::Util' => 0, }, BUILD_REQUIRES => { - 'Test::More' => '0.94', + 'strict' => 0, + 'warnings' => 0, + 'ExtUtils::MakeMaker' => 0, + 'File::Spec' => 0, + 'Test::More' => '0.94', + }, + CONFIGURE_REQUIRES => { + 'perl' => '5.006', + 'strict' => 0, + 'warnings' => 0, + 'ExtUtils::MakeMaker' => 0, }, MIN_PERL_VERSION => 5.006, dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', }, @@ -25,11 +40,11 @@ (eval { ExtUtils::MakeMaker->VERSION(6.46) } ? (META_MERGE => { 'meta-spec' => { version => 2 }, provides => { - 'SVG' => { file => 'lib/SVG.pm' , version => '2.82' }, - 'SVG::DOM' => { file => 'lib/SVG/DOM.pm' , version => '2.82' }, - 'SVG::Element' => { file => 'lib/SVG/Element.pm' , version => '2.82' }, - 'SVG::Extension' => { file => 'lib/SVG/Extension.pm', version => '2.82' }, - 'SVG::XML' => { file => 'lib/SVG/XML.pm' , version => '2.82' }, + 'SVG' => { file => 'lib/SVG.pm' , version => '2.83' }, + 'SVG::DOM' => { file => 'lib/SVG/DOM.pm' , version => '2.83' }, + 'SVG::Element' => { file => 'lib/SVG/Element.pm' , version => '2.83' }, + 'SVG::Extension' => { file => 'lib/SVG/Extension.pm', version => '2.83' }, + 'SVG::XML' => { file => 'lib/SVG/XML.pm' , version => '2.83' }, }, resources => { repository => { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/lib/SVG/DOM.pm new/SVG-2.83/lib/SVG/DOM.pm --- old/SVG-2.82/lib/SVG/DOM.pm 2017-12-18 13:22:22.000000000 +0100 +++ new/SVG-2.83/lib/SVG/DOM.pm 2018-02-12 16:50:40.000000000 +0100 @@ -4,7 +4,7 @@ use Scalar::Util qw/weaken/; -our $VERSION = '2.82'; +our $VERSION = '2.83'; # this module extends SVG::Element package SVG::Element; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/lib/SVG/Element.pm new/SVG-2.83/lib/SVG/Element.pm --- old/SVG-2.82/lib/SVG/Element.pm 2017-12-18 13:22:22.000000000 +0100 +++ new/SVG-2.83/lib/SVG/Element.pm 2018-02-12 16:50:40.000000000 +0100 @@ -3,7 +3,7 @@ use strict; use warnings; -our $VERSION = '2.82'; +our $VERSION = '2.83'; =pod diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/lib/SVG/Extension.pm new/SVG-2.83/lib/SVG/Extension.pm --- old/SVG-2.82/lib/SVG/Extension.pm 2017-12-18 13:22:22.000000000 +0100 +++ new/SVG-2.83/lib/SVG/Extension.pm 2018-02-12 16:50:40.000000000 +0100 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '2.82'; +our $VERSION = '2.83'; =head1 NAME diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/lib/SVG/XML.pm new/SVG-2.83/lib/SVG/XML.pm --- old/SVG-2.82/lib/SVG/XML.pm 2017-12-18 13:22:22.000000000 +0100 +++ new/SVG-2.83/lib/SVG/XML.pm 2018-02-12 16:50:40.000000000 +0100 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '2.82'; +our $VERSION = '2.83'; =pod diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/lib/SVG.pm new/SVG-2.83/lib/SVG.pm --- old/SVG-2.82/lib/SVG.pm 2017-12-18 13:22:22.000000000 +0100 +++ new/SVG-2.83/lib/SVG.pm 2018-02-12 16:50:40.000000000 +0100 @@ -7,7 +7,7 @@ use parent qw(SVG::Element SVG::Extension); use Scalar::Util qw/weaken/; -our $VERSION = '2.82'; +our $VERSION = '2.83'; =pod diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/t/00-report-prereqs.t new/SVG-2.83/t/00-report-prereqs.t --- old/SVG-2.82/t/00-report-prereqs.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SVG-2.83/t/00-report-prereqs.t 2018-02-12 16:43:49.000000000 +0100 @@ -0,0 +1,212 @@ +#!perl + +use strict; +use warnings; + +# This test was generated by Dist::Zilla::Plugin::Test::ReportPrereqs 0.027 + +use Test::More tests => 1; + +use ExtUtils::MakeMaker; +use File::Spec; + +# from $version::LAX +my $lax_version_re + = qr/(?: undef | (?: (?:[0-9]+) (?: \. | (?:\.[0-9]+) (?:_[0-9]+)? )? + | + (?:\.[0-9]+) (?:_[0-9]+)? + ) | (?: + v (?:[0-9]+) (?: (?:\.[0-9]+)+ (?:_[0-9]+)? )? + | + (?:[0-9]+)? (?:\.[0-9]+){2,} (?:_[0-9]+)? + ) + )/x; + +# hide optional CPAN::Meta modules from prereq scanner +# and check if they are available +my $cpan_meta = "CPAN::Meta"; +my $cpan_meta_pre = "CPAN::Meta::Prereqs"; +my $HAS_CPAN_META = eval "require $cpan_meta; $cpan_meta->VERSION('2.120900')" + && eval "require $cpan_meta_pre"; ## no critic + +# Verify requirements? +my $DO_VERIFY_PREREQS = 1; + +sub _max { + my $max = shift; + $max = ( $_ > $max ) ? $_ : $max for @_; + return $max; +} + +sub _merge_prereqs { + my ( $collector, $prereqs ) = @_; + + # CPAN::Meta::Prereqs object + if ( ref $collector eq $cpan_meta_pre ) { + return $collector->with_merged_prereqs( + CPAN::Meta::Prereqs->new($prereqs) ); + } + + # Raw hashrefs + for my $phase ( keys %$prereqs ) { + for my $type ( keys %{ $prereqs->{$phase} } ) { + for my $module ( keys %{ $prereqs->{$phase}{$type} } ) { + $collector->{$phase}{$type}{$module} + = $prereqs->{$phase}{$type}{$module}; + } + } + } + + return $collector; +} + +my @include = qw( + +); + +my @exclude = qw( + +); + +# Add static prereqs to the included modules list +my $static_prereqs = do './t/00-report-prereqs.dd'; + +# Merge all prereqs (either with ::Prereqs or a hashref) +my $full_prereqs + = _merge_prereqs( ( $HAS_CPAN_META ? $cpan_meta_pre->new : {} ), + $static_prereqs ); + +# Add dynamic prereqs to the included modules list (if we can) +my ($source) = grep {-f} 'MYMETA.json', 'MYMETA.yml'; +my $cpan_meta_error; +if ( $source + && $HAS_CPAN_META + && ( my $meta = eval { CPAN::Meta->load_file($source) } ) ) +{ + $full_prereqs = _merge_prereqs( $full_prereqs, $meta->prereqs ); +} +else { + $cpan_meta_error = $@; # capture error from CPAN::Meta->load_file($source) + $source = 'static metadata'; +} + +my @full_reports; +my @dep_errors; +my $req_hash = $HAS_CPAN_META ? $full_prereqs->as_string_hash : $full_prereqs; + +# Add static includes into a fake section +for my $mod (@include) { + $req_hash->{other}{modules}{$mod} = 0; +} + +for my $phase (qw(configure build test runtime develop other)) { + next unless $req_hash->{$phase}; + next if ( $phase eq 'develop' and not $ENV{AUTHOR_TESTING} ); + + for my $type (qw(requires recommends suggests conflicts modules)) { + next unless $req_hash->{$phase}{$type}; + + my $title = ucfirst($phase) . ' ' . ucfirst($type); + my @reports = [qw/Module Want Have/]; + + for my $mod ( sort keys %{ $req_hash->{$phase}{$type} } ) { + next if $mod eq 'perl'; + next if grep { $_ eq $mod } @exclude; + + my $file = $mod; + $file =~ s{::}{/}g; + $file .= ".pm"; + my ($prefix) = grep { -e File::Spec->catfile( $_, $file ) } @INC; + + my $want = $req_hash->{$phase}{$type}{$mod}; + $want = "undef" unless defined $want; + $want = "any" if !$want && $want == 0; + + my $req_string + = $want eq 'any' + ? 'any version required' + : "version '$want' required"; + + if ($prefix) { + my $have = MM->parse_version( + File::Spec->catfile( $prefix, $file ) ); + $have = "undef" unless defined $have; + push @reports, [ $mod, $want, $have ]; + + if ( $DO_VERIFY_PREREQS + && $HAS_CPAN_META + && $type eq 'requires' ) + { + if ( $have !~ /\A$lax_version_re\z/ ) { + push @dep_errors, + "$mod version '$have' cannot be parsed ($req_string)"; + } + elsif ( !$full_prereqs->requirements_for( $phase, $type ) + ->accepts_module( $mod => $have ) ) + { + push @dep_errors, + "$mod version '$have' is not in required range '$want'"; + } + } + } + else { + push @reports, [ $mod, $want, "missing" ]; + + if ( $DO_VERIFY_PREREQS && $type eq 'requires' ) { + push @dep_errors, "$mod is not installed ($req_string)"; + } + } + } + + if (@reports) { + push @full_reports, "=== $title ===\n\n"; + + my $ml = _max( map { length $_->[0] } @reports ); + my $wl = _max( map { length $_->[1] } @reports ); + my $hl = _max( map { length $_->[2] } @reports ); + + if ( $type eq 'modules' ) { + splice @reports, 1, 0, [ "-" x $ml, "", "-" x $hl ]; + push @full_reports, map { + sprintf( " %*s %*s\n", -$ml, $_->[0], $hl, $_->[2] ) + } @reports; + } + else { + splice @reports, 1, 0, [ "-" x $ml, "-" x $wl, "-" x $hl ]; + push @full_reports, map { + sprintf( " %*s %*s %*s\n", + -$ml, $_->[0], $wl, $_->[1], $hl, $_->[2] ) + } @reports; + } + + push @full_reports, "\n"; + } + } +} + +if (@full_reports) { + diag + "\nVersions for all modules listed in $source (including optional ones):\n\n", + @full_reports; +} + +if ( $cpan_meta_error || @dep_errors ) { + diag + "\n*** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ***\n"; +} + +if ($cpan_meta_error) { + my ($orig_source) = grep {-f} 'MYMETA.json', 'MYMETA.yml'; + diag + "\nCPAN::Meta->load_file('$orig_source') failed with: $cpan_meta_error\n"; +} + +if (@dep_errors) { + diag join( "\n", + "\nThe following REQUIRED prerequisites were not satisfied:\n", + @dep_errors, "\n" ); +} + +pass; + +# vim: ts=4 sts=4 sw=4 et: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/t/96-perl-critic.t new/SVG-2.83/t/96-perl-critic.t --- old/SVG-2.82/t/96-perl-critic.t 2017-12-01 12:03:38.000000000 +0100 +++ new/SVG-2.83/t/96-perl-critic.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,31 +0,0 @@ -use strict; -use warnings; -use Test::More; - -plan skip_all => 'Set $ENV{TEST_AUTHOR} to enable this test.' - unless $ENV{TEST_AUTHOR}; - -## no critic -#use Perl::Critic; -eval 'use Perl::Tidy'; -plan skip_all => 'Perl::Tidy required' if $@; - -eval 'use Test::Perl::Critic 1.02'; -plan skip_all => 'Test::Perl::Critic 1.02 required' if $@; - -# NOTE: New files will be tested automatically. - -# FIXME: Things should be removed (not added) to this list. -# Temporarily skip any files that existed before adding the tests. -# Eventually these should all be removed (once the files are cleaned up). -my %skip = map { ( $_ => 1 ) } qw( -); - -my @files = grep { !$skip{$_} } - ( Perl::Critic::Utils::all_perl_files(qw( bin lib )) ); # TODO t - -foreach my $file (@files) { - critic_ok( $file, $file ); -} - -done_testing(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/t/98-tidyall.t new/SVG-2.83/t/98-tidyall.t --- old/SVG-2.82/t/98-tidyall.t 2017-12-01 12:04:24.000000000 +0100 +++ new/SVG-2.83/t/98-tidyall.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,18 +0,0 @@ -#!/usr/bin/env perl - -use strict; -use warnings; - -use Test::More; - -plan skip_all => 'Set $ENV{TEST_AUTHOR} to enable this test.' - unless $ENV{TEST_AUTHOR}; - -eval 'use Perl::Tidy'; -plan skip_all => 'Perl::Tidy required' if $@; - -eval "use Test::Code::TidyAll"; -plan skip_all => "Test::Code::TidyAll required for testing tidyness" - if $@; - -tidyall_ok(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/t/99_test_pod_coverage.t new/SVG-2.83/t/99_test_pod_coverage.t --- old/SVG-2.82/t/99_test_pod_coverage.t 2017-12-01 12:03:55.000000000 +0100 +++ new/SVG-2.83/t/99_test_pod_coverage.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,10 +0,0 @@ -use Test::More; - -plan skip_all => 'Set $ENV{TEST_AUTHOR} to enable this test.' - unless $ENV{TEST_AUTHOR}; - -eval "use Test::Pod::Coverage"; -plan skip_all => "Test::Pod::Coverage required for testing pod coverage" - if $@; -plan tests => 1; -pod_coverage_ok("SVG"); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/t/meta-json.t new/SVG-2.83/t/meta-json.t --- old/SVG-2.82/t/meta-json.t 2017-05-08 21:09:02.000000000 +0200 +++ new/SVG-2.83/t/meta-json.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,31 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; -use Test::More; - -plan skip_all => 'Set $ENV{TEST_AUTHOR} to enable this test.' - unless $ENV{TEST_AUTHOR}; - -eval "use Test::CPAN::Meta::JSON"; -plan skip_all => 'Test::CPAN::Meta::JSON required for testing MYMETA.json' - if $@; - -use SVG; - -my $meta = meta_spec_ok('MYMETA.json'); -my $version = $SVG::VERSION; - -is( $meta->{version}, $version, 'MYMETA.json distribution version matches' ); - -if ( $meta->{provides} ) { - foreach my $mod ( keys %{ $meta->{provides} } ) { - eval("use $mod;"); - my $mod_version = eval( sprintf( "\$%s::VERSION", $mod ) ); - is( $meta->{provides}{$mod}{version}, - $version, "MYMETA.json entry [$mod] version matches" ); - is( $mod_version, $version, "Package $mod doesn't match version." ); - } -} - -done_testing(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/t/meta-yml.t new/SVG-2.83/t/meta-yml.t --- old/SVG-2.82/t/meta-yml.t 2017-05-08 21:10:28.000000000 +0200 +++ new/SVG-2.83/t/meta-yml.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,31 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; -use Test::More; - -plan skip_all => 'Set $ENV{TEST_AUTHOR} to enable this test.' - unless $ENV{TEST_AUTHOR}; - -eval "use Test::CPAN::Meta"; -plan skip_all => "Test::CPAN::Meta required for testing MYMETA.yml" - if $@; - -use SVG; - -my $meta = meta_spec_ok('MYMETA.yml'); -my $version = $SVG::VERSION; - -is( $meta->{version}, $version, 'MYMETA.yml distribution version matches' ); - -if ( $meta->{provides} ) { - foreach my $mod ( keys %{ $meta->{provides} } ) { - eval("use $mod;"); - my $mod_version = eval( sprintf( "\$%s::VERSION", $mod ) ); - is( $meta->{provides}{$mod}{version}, - $version, "MYMETA.yml entry [$mod] version matches" ); - is( $mod_version, $version, "Package $mod doesn't match version." ); - } -} - -done_testing(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/xt/98_all_pod.t new/SVG-2.83/xt/98_all_pod.t --- old/SVG-2.82/xt/98_all_pod.t 2017-03-07 13:00:54.000000000 +0100 +++ new/SVG-2.83/xt/98_all_pod.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,7 +0,0 @@ -use strict; -use Test::More; -eval "use Test::Pod 1.00"; -plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; -my @poddirs = qw( blib blib/SVG); -all_pod_files_ok( all_pod_files( @poddirs ) ); - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/xt/99_perl_critic.t new/SVG-2.83/xt/99_perl_critic.t --- old/SVG-2.82/xt/99_perl_critic.t 2017-03-07 13:00:54.000000000 +0100 +++ new/SVG-2.83/xt/99_perl_critic.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,3 +0,0 @@ -use Test::Perl::Critic; -all_critic_ok('lib'); - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/xt/author/perl-critic-tidy.t new/SVG-2.83/xt/author/perl-critic-tidy.t --- old/SVG-2.82/xt/author/perl-critic-tidy.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SVG-2.83/xt/author/perl-critic-tidy.t 2018-02-12 16:43:49.000000000 +0100 @@ -0,0 +1,28 @@ +use strict; +use warnings; +use Test::More; + +plan skip_all => 'Set $ENV{TEST_AUTHOR} to enable this test.' + unless $ENV{TEST_AUTHOR}; + +## no critic +#use Perl::Critic; +use Perl::Tidy; +use Test::Perl::Critic 1.02; + +# NOTE: New files will be tested automatically. + +# FIXME: Things should be removed (not added) to this list. +# Temporarily skip any files that existed before adding the tests. +# Eventually these should all be removed (once the files are cleaned up). +my %skip = map { ( $_ => 1 ) } qw( +); + +my @files = grep { !$skip{$_} } + ( Perl::Critic::Utils::all_perl_files(qw( bin lib )) ); # TODO t + +foreach my $file (@files) { + critic_ok( $file, $file ); +} + +done_testing(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/xt/author/perl-critic.t new/SVG-2.83/xt/author/perl-critic.t --- old/SVG-2.82/xt/author/perl-critic.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SVG-2.83/xt/author/perl-critic.t 2018-02-12 16:43:49.000000000 +0100 @@ -0,0 +1,3 @@ +use Test::Perl::Critic; +all_critic_ok('lib'); + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/xt/author/pod-coverage.t new/SVG-2.83/xt/author/pod-coverage.t --- old/SVG-2.82/xt/author/pod-coverage.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SVG-2.83/xt/author/pod-coverage.t 2018-02-12 16:43:49.000000000 +0100 @@ -0,0 +1,5 @@ +use Test::More; +use Test::Pod::Coverage; + +plan tests => 1; +pod_coverage_ok("SVG"); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/xt/author/pod-syntax.t new/SVG-2.83/xt/author/pod-syntax.t --- old/SVG-2.82/xt/author/pod-syntax.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SVG-2.83/xt/author/pod-syntax.t 2018-02-12 16:43:49.000000000 +0100 @@ -0,0 +1,6 @@ +use strict; +use Test::More; +use Test::Pod 1.00; + +my @poddirs = qw( blib blib/SVG); +all_pod_files_ok( all_pod_files( @poddirs ) ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/xt/author/tidyall.t new/SVG-2.83/xt/author/tidyall.t --- old/SVG-2.82/xt/author/tidyall.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SVG-2.83/xt/author/tidyall.t 2018-02-12 16:43:49.000000000 +0100 @@ -0,0 +1,14 @@ +use strict; +use warnings; + +use Test::More; + +use Perl::Tidy; +use Test::Code::TidyAll; + +tidyall_ok( + verbose => ( exists $ENV{TEST_TIDYALL_VERBOSE} ? $ENV{TEST_TIDYALL_VERBOSE} : 0 ), + jobs => ( exists $ENV{TEST_TIDYALL_JOBS} ? $ENV{TEST_TIDYALL_JOBS} : 1 ), +); + +done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/xt/release/meta-json.t new/SVG-2.83/xt/release/meta-json.t --- old/SVG-2.82/xt/release/meta-json.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SVG-2.83/xt/release/meta-json.t 2018-02-12 16:43:49.000000000 +0100 @@ -0,0 +1,23 @@ +use strict; +use warnings; +use Test::More; + +use Test::CPAN::Meta::JSON; +use SVG; + +my $meta = meta_spec_ok('MYMETA.json'); +my $version = $SVG::VERSION; + +is( $meta->{version}, $version, 'MYMETA.json distribution version matches' ); + +if ( $meta->{provides} ) { + foreach my $mod ( keys %{ $meta->{provides} } ) { + eval("use $mod;"); + my $mod_version = eval( sprintf( "\$%s::VERSION", $mod ) ); + is( $meta->{provides}{$mod}{version}, + $version, "MYMETA.json entry [$mod] version matches" ); + is( $mod_version, $version, "Package $mod doesn't match version." ); + } +} + +done_testing(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.82/xt/release/meta-yml.t new/SVG-2.83/xt/release/meta-yml.t --- old/SVG-2.82/xt/release/meta-yml.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SVG-2.83/xt/release/meta-yml.t 2018-02-12 16:43:49.000000000 +0100 @@ -0,0 +1,23 @@ +use strict; +use warnings; +use Test::More; + +use Test::CPAN::Meta; +use SVG; + +my $meta = meta_spec_ok('MYMETA.yml'); +my $version = $SVG::VERSION; + +is( $meta->{version}, $version, 'MYMETA.yml distribution version matches' ); + +if ( $meta->{provides} ) { + foreach my $mod ( keys %{ $meta->{provides} } ) { + eval("use $mod;"); + my $mod_version = eval( sprintf( "\$%s::VERSION", $mod ) ); + is( $meta->{provides}{$mod}{version}, + $version, "MYMETA.yml entry [$mod] version matches" ); + is( $mod_version, $version, "Package $mod doesn't match version." ); + } +} + +done_testing();
