Hello community, here is the log from the commit of package perl-Devel-PartialDump for openSUSE:Factory checked in at 2013-12-12 11:20:39 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Devel-PartialDump (Old) and /work/SRC/openSUSE:Factory/.perl-Devel-PartialDump.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Devel-PartialDump" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Devel-PartialDump/perl-Devel-PartialDump.changes 2013-12-09 07:13:51.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Devel-PartialDump.new/perl-Devel-PartialDump.changes 2013-12-12 11:20:40.000000000 +0100 @@ -1,0 +2,10 @@ +Mon Dec 9 11:15:23 UTC 2013 - co...@suse.com + +- updated to 0.17 + - many fixes (thanks, Steven Lee!) + - attribute list_delim is now being used in list dumps + - setting attribute max_length to 0 now shortens more, to '...' + - fixed use of = in array/hash ref objects + - extra test coverage + +------------------------------------------------------------------- Old: ---- Devel-PartialDump-0.16.tar.gz New: ---- Devel-PartialDump-0.17.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Devel-PartialDump.spec ++++++ --- /var/tmp/diff_new_pack.heoJZ6/_old 2013-12-12 11:20:41.000000000 +0100 +++ /var/tmp/diff_new_pack.heoJZ6/_new 2013-12-12 11:20:41.000000000 +0100 @@ -17,7 +17,7 @@ Name: perl-Devel-PartialDump -Version: 0.16 +Version: 0.17 Release: 0 %define cpan_name Devel-PartialDump Summary: Partial dumping of data structures, optimized for argument printing. ++++++ Devel-PartialDump-0.16.tar.gz -> Devel-PartialDump-0.17.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/CONTRIBUTING new/Devel-PartialDump-0.17/CONTRIBUTING --- old/Devel-PartialDump-0.16/CONTRIBUTING 2013-11-24 01:43:56.000000000 +0100 +++ new/Devel-PartialDump-0.17/CONTRIBUTING 2013-11-30 21:47:55.000000000 +0100 @@ -50,7 +50,7 @@ $ dzil test --release $ dzil xtest $ dzil listdeps --json - $ dzil build --not + $ dzil build --notgz You can learn more about Dist::Zilla at http://dzil.org/. @@ -71,4 +71,4 @@ This file was generated via Dist::Zilla::Plugin::GenerateFile::ShareDir 0.002 from a -template file originating in Dist-Zilla-PluginBundle-Author-ETHER-0.040. +template file originating in Dist-Zilla-PluginBundle-Author-ETHER-0.041. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/Changes new/Devel-PartialDump-0.17/Changes --- old/Devel-PartialDump-0.16/Changes 2013-11-24 01:43:56.000000000 +0100 +++ new/Devel-PartialDump-0.17/Changes 2013-11-30 21:47:55.000000000 +0100 @@ -1,5 +1,12 @@ Revision history for Devel-PartialDump +0.17 2013-11-30 20:47:47Z + - many fixes (thanks, Steven Lee!) + - attribute list_delim is now being used in list dumps + - setting attribute max_length to 0 now shortens more, to '...' + - fixed use of = in array/hash ref objects + - extra test coverage + 0.16 2013-11-24 00:43:48Z - Moose dependency removed, resolving circular dependency in Moose's recommended prereqs (thanks, David Golden!) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/MANIFEST new/Devel-PartialDump-0.17/MANIFEST --- old/Devel-PartialDump-0.16/MANIFEST 2013-11-24 01:43:56.000000000 +0100 +++ new/Devel-PartialDump-0.17/MANIFEST 2013-11-30 21:47:55.000000000 +0100 @@ -14,6 +14,7 @@ t/00-report-prereqs.t t/basic.t t/exports.t +t/objects.t weaver.ini xt/author/00-compile.t xt/author/pod-spell.t @@ -27,4 +28,5 @@ xt/release/no-tabs.t xt/release/pod-no404s.t xt/release/pod-syntax.t +xt/release/portability.t xt/release/test-version.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/META.json new/Devel-PartialDump-0.17/META.json --- old/Devel-PartialDump-0.16/META.json 2013-11-24 01:43:56.000000000 +0100 +++ new/Devel-PartialDump-0.17/META.json 2013-11-30 21:47:55.000000000 +0100 @@ -29,7 +29,7 @@ }, "develop" : { "recommends" : { - "Dist::Zilla::PluginBundle::Author::ETHER" : "0.040" + "Dist::Zilla::PluginBundle::Author::ETHER" : "0.041" }, "requires" : { "Dist::Zilla" : "5.006", @@ -38,6 +38,7 @@ "Dist::Zilla::Plugin::GithubMeta" : "0", "Dist::Zilla::Plugin::MakeMaker::Fallback" : "0", "Dist::Zilla::Plugin::ModuleBuildTiny" : "0.004", + "Dist::Zilla::Plugin::Prereqs" : "0", "Dist::Zilla::PluginBundle::Author::ETHER" : "0", "File::Spec" : "0", "IO::Handle" : "0", @@ -48,7 +49,8 @@ "Test::Kwalitee" : "1.12", "Test::More" : "0.94", "Test::NoTabs" : "0", - "Test::Pod" : "1.41" + "Test::Pod" : "1.41", + "Test::Warnings" : "0" } }, "runtime" : { @@ -75,14 +77,16 @@ "List::Util" : "0", "Test::More" : "0", "Test::Warn" : "0", - "ok" : "0" + "if" : "0", + "ok" : "0", + "overload" : "0" } } }, "provides" : { "Devel::PartialDump" : { "file" : "lib/Devel/PartialDump.pm", - "version" : "0.16" + "version" : "0.17" } }, "release_status" : "stable", @@ -98,10 +102,10 @@ "web" : "https://github.com/karenetheridge/Devel-PartialDump" } }, - "version" : "0.16", + "version" : "0.17", "x_Dist_Zilla" : { "perl" : { - "version" : "5.019005" + "version" : "5.019006" }, "plugins" : [ { @@ -111,13 +115,41 @@ }, { "class" : "Dist::Zilla::Plugin::PromptIfStale", + "config" : { + "Dist::Zilla::Plugin::PromptIfStale" : { + "check_all_plugins" : 0, + "check_all_prereqs" : 0, + "modules" : [ + "Dist::Zilla::PluginBundle::Author::ETHER" + ], + "phase" : "build", + "skip" : [] + } + }, "name" : "@Author::ETHER/build", - "version" : "0.013" + "version" : "0.014" }, { "class" : "Dist::Zilla::Plugin::PromptIfStale", + "config" : { + "Dist::Zilla::Plugin::PromptIfStale" : { + "check_all_plugins" : "1", + "check_all_prereqs" : "1", + "modules" : [], + "phase" : "release", + "skip" : [ + "Dist::Zilla::Plugin::Git::Check", + "Dist::Zilla::Plugin::Git::Commit", + "Dist::Zilla::Plugin::Git::GatherDir", + "Dist::Zilla::Plugin::Git::NextVersion", + "Dist::Zilla::Plugin::Git::Push", + "Dist::Zilla::Plugin::Git::Tag", + "Dist::Zilla::Plugin::Git::Init" + ] + } + }, "name" : "@Author::ETHER/release", - "version" : "0.013" + "version" : "0.014" }, { "class" : "Dist::Zilla::Plugin::ExecDir", @@ -192,7 +224,7 @@ } }, "name" : "@Author::ETHER/Test::Compile", - "version" : "2.037" + "version" : "2.038" }, { "class" : "Dist::Zilla::Plugin::Test::NoTabs", @@ -271,6 +303,11 @@ "version" : "0.010" }, { + "class" : "Dist::Zilla::Plugin::Test::Portability", + "name" : "@Author::ETHER/Test::Portability", + "version" : "2.000005" + }, + { "class" : "Dist::Zilla::Plugin::PruneCruft", "name" : "@Author::ETHER/PruneCruft", "version" : "5.006" @@ -395,11 +432,6 @@ "version" : "1.008" }, { - "class" : "Pod::Weaver::Plugin::Encoding", - "name" : "-Encoding", - "version" : "0.02" - }, - { "class" : "Pod::Weaver::Section::Contributors", "name" : "Contributors", "version" : "0.006" @@ -418,7 +450,7 @@ { "class" : "Dist::Zilla::Plugin::ReadmeAnyFromPod", "name" : "@Author::ETHER/ReadmeAnyFromPod", - "version" : "0.133060" + "version" : "0.133290" }, { "class" : "Dist::Zilla::Plugin::GithubMeta", @@ -513,7 +545,7 @@ { "class" : "Dist::Zilla::Plugin::InstallGuide", "name" : "@Author::ETHER/InstallGuide", - "version" : "1.200001" + "version" : "1.200002" }, { "class" : "Dist::Zilla::Plugin::CheckSelfDependency", @@ -612,6 +644,17 @@ "version" : "5.006" }, { + "class" : "Dist::Zilla::Plugin::Prereqs", + "config" : { + "Dist::Zilla::Plugin::Prereqs" : { + "phase" : "develop", + "type" : "requires" + } + }, + "name" : "DevelopRequires", + "version" : "5.006" + }, + { "class" : "Dist::Zilla::Plugin::ContributorsFromGit", "name" : "ContributorsFromGit", "version" : "0.006" @@ -661,7 +704,8 @@ "Florian Ragwitz <r...@debian.org>", "Jesse Luehrs <d...@tozt.net>", "Karen Etheridge <et...@cpan.org>", - "Leo Lapworth <web@web-teams-computer.local>" + "Leo Lapworth <web@web-teams-computer.local>", + "Steven Lee <stevenwh....@gmail.com>" ] } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/META.yml new/Devel-PartialDump-0.17/META.yml --- old/Devel-PartialDump-0.16/META.yml 2013-11-24 01:43:56.000000000 +0100 +++ new/Devel-PartialDump-0.17/META.yml 2013-11-30 21:47:55.000000000 +0100 @@ -8,7 +8,9 @@ List::Util: 0 Test::More: 0 Test::Warn: 0 + if: 0 ok: 0 + overload: 0 configure_requires: ExtUtils::MakeMaker: 6.30 Module::Build::Tiny: 0.030 @@ -27,7 +29,7 @@ provides: Devel::PartialDump: file: lib/Devel/PartialDump.pm - version: 0.16 + version: 0.17 requires: Carp: 0 Carp::Heavy: 0 @@ -42,10 +44,10 @@ bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=Devel-PartialDump homepage: https://github.com/karenetheridge/Devel-PartialDump repository: https://github.com/karenetheridge/Devel-PartialDump.git -version: 0.16 +version: 0.17 x_Dist_Zilla: perl: - version: 5.019005 + version: 5.019006 plugins: - class: Dist::Zilla::Plugin::Git::NextVersion @@ -53,12 +55,34 @@ version: 2.017 - class: Dist::Zilla::Plugin::PromptIfStale + config: + Dist::Zilla::Plugin::PromptIfStale: + check_all_plugins: 0 + check_all_prereqs: 0 + modules: + - Dist::Zilla::PluginBundle::Author::ETHER + phase: build + skip: [] name: '@Author::ETHER/build' - version: 0.013 + version: 0.014 - class: Dist::Zilla::Plugin::PromptIfStale + config: + Dist::Zilla::Plugin::PromptIfStale: + check_all_plugins: 1 + check_all_prereqs: 1 + modules: [] + phase: release + skip: + - Dist::Zilla::Plugin::Git::Check + - Dist::Zilla::Plugin::Git::Commit + - Dist::Zilla::Plugin::Git::GatherDir + - Dist::Zilla::Plugin::Git::NextVersion + - Dist::Zilla::Plugin::Git::Push + - Dist::Zilla::Plugin::Git::Tag + - Dist::Zilla::Plugin::Git::Init name: '@Author::ETHER/release' - version: 0.013 + version: 0.014 - class: Dist::Zilla::Plugin::ExecDir name: '@Author::ETHER/ExecDir' @@ -116,7 +140,7 @@ - ':ExecFiles' - '@Author::ETHER/Examples' name: '@Author::ETHER/Test::Compile' - version: 2.037 + version: 2.038 - class: Dist::Zilla::Plugin::Test::NoTabs config: @@ -177,6 +201,10 @@ name: '@Author::ETHER/Test::ReportPrereqs' version: 0.010 - + class: Dist::Zilla::Plugin::Test::Portability + name: '@Author::ETHER/Test::Portability' + version: 2.000005 + - class: Dist::Zilla::Plugin::PruneCruft name: '@Author::ETHER/PruneCruft' version: 5.006 @@ -277,10 +305,6 @@ name: '-StopWords' version: 1.008 - - class: Pod::Weaver::Plugin::Encoding - name: '-Encoding' - version: 0.02 - - class: Pod::Weaver::Section::Contributors name: Contributors version: 0.006 @@ -293,7 +317,7 @@ - class: Dist::Zilla::Plugin::ReadmeAnyFromPod name: '@Author::ETHER/ReadmeAnyFromPod' - version: 0.133060 + version: 0.133290 - class: Dist::Zilla::Plugin::GithubMeta name: '@Author::ETHER/GithubMeta' @@ -367,7 +391,7 @@ - class: Dist::Zilla::Plugin::InstallGuide name: '@Author::ETHER/InstallGuide' - version: 1.200001 + version: 1.200002 - class: Dist::Zilla::Plugin::CheckSelfDependency name: '@Author::ETHER/CheckSelfDependency' @@ -445,6 +469,14 @@ name: '@Author::ETHER/via_options' version: 5.006 - + class: Dist::Zilla::Plugin::Prereqs + config: + Dist::Zilla::Plugin::Prereqs: + phase: develop + type: requires + name: DevelopRequires + version: 5.006 + - class: Dist::Zilla::Plugin::ContributorsFromGit name: ContributorsFromGit version: 0.006 @@ -484,3 +516,4 @@ - 'Jesse Luehrs <d...@tozt.net>' - 'Karen Etheridge <et...@cpan.org>' - 'Leo Lapworth <web@web-teams-computer.local>' + - 'Steven Lee <stevenwh....@gmail.com>' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/Makefile.PL new/Devel-PartialDump-0.17/Makefile.PL --- old/Devel-PartialDump-0.16/Makefile.PL 2013-11-24 01:43:56.000000000 +0100 +++ new/Devel-PartialDump-0.17/Makefile.PL 2013-11-30 21:47:55.000000000 +0100 @@ -7,8 +7,8 @@ BEGIN { my %configure_requires = ( - 'Module::Build::Tiny' => '0.030', 'ExtUtils::MakeMaker' => '6.30', + 'Module::Build::Tiny' => '0.030', ); my @missing = grep { @@ -85,9 +85,11 @@ "List::Util" => 0, "Test::More" => 0, "Test::Warn" => 0, - "ok" => 0 + "if" => 0, + "ok" => 0, + "overload" => 0 }, - "VERSION" => "0.16", + "VERSION" => "0.17", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/README new/Devel-PartialDump-0.17/README --- old/Devel-PartialDump-0.16/README 2013-11-24 01:43:56.000000000 +0100 +++ new/Devel-PartialDump-0.17/README 2013-11-30 21:47:55.000000000 +0100 @@ -1,7 +1,7 @@ This archive contains the distribution Devel-PartialDump, -version 0.16: +version 0.17: Partial dumping of data structures, optimized for argument printing. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/README.md new/Devel-PartialDump-0.17/README.md --- old/Devel-PartialDump-0.16/README.md 2013-11-24 01:43:56.000000000 +0100 +++ new/Devel-PartialDump-0.17/README.md 2013-11-30 21:47:55.000000000 +0100 @@ -4,7 +4,7 @@ # VERSION -version 0.16 +version 0.17 # SYNOPSIS @@ -93,7 +93,7 @@ - stringify Whether or not to let objects stringify themselves, instead of using - ["StrVal" in overload](http://search.cpan.org/perldoc?overload#StrVal) to avoid side effects. + ["StrVal" in overload](https://metacpan.org/pod/overload#StrVal) to avoid side effects. Defaults to false (no overloading). @@ -108,7 +108,7 @@ All exports are optional, nothing is exported by default. -This module uses [Sub::Exporter](http://search.cpan.org/perldoc?Sub::Exporter), so exports can be renamed, curried, etc. +This module uses [Sub::Exporter](https://metacpan.org/pod/Sub::Exporter), so exports can be renamed, curried, etc. - warn - show @@ -122,7 +122,7 @@ See the various methods for behavior documentation. These methods will use `$Devel::PartialDump::default_dumper` as the invocant if the - first argument is not blessed and `isa` [Devel::PartialDump](http://search.cpan.org/perldoc?Devel::PartialDump), so they can be + first argument is not blessed and `isa` [Devel::PartialDump](https://metacpan.org/pod/Devel::PartialDump), so they can be used as functions too. Particularly `warn` can be used as a drop in replacement for the built in @@ -168,14 +168,14 @@ which has a prototype of `$` (as opposed to taking a list). - This is similar to the venerable Ingy's fabulous and amazing [XXX](http://search.cpan.org/perldoc?XXX) module. + This is similar to the venerable Ingy's fabulous and amazing [XXX](https://metacpan.org/pod/XXX) module. - carp - croak - confess - cluck - Drop in replacements for [Carp](http://search.cpan.org/perldoc?Carp) exports, that format their arguments like + Drop in replacements for [Carp](https://metacpan.org/pod/Carp) exports, that format their arguments like `warn`. - dump @stuff @@ -235,3 +235,4 @@ - Jesse Luehrs <d...@tozt.net> - Karen Etheridge <et...@cpan.org> - Leo Lapworth <web@web-teams-computer.local> +- Steven Lee <stevenwh....@gmail.com> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/dist.ini new/Devel-PartialDump-0.17/dist.ini --- old/Devel-PartialDump-0.16/dist.ini 2013-11-24 01:43:56.000000000 +0100 +++ new/Devel-PartialDump-0.17/dist.ini 2013-11-30 21:47:55.000000000 +0100 @@ -10,6 +10,9 @@ -remove = PodCoverageTests -remove = Test::UnusedVars ; $depth not used +[Prereqs / DevelopRequires] +Test::Warnings = 0 + ; authordep Pod::Weaver::Section::Contributors [ContributorsFromGit] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/lib/Devel/PartialDump.pm new/Devel-PartialDump-0.17/lib/Devel/PartialDump.pm --- old/Devel-PartialDump-0.16/lib/Devel/PartialDump.pm 2013-11-24 01:43:56.000000000 +0100 +++ new/Devel-PartialDump-0.17/lib/Devel/PartialDump.pm 2013-11-30 21:47:55.000000000 +0100 @@ -2,9 +2,9 @@ use warnings; package Devel::PartialDump; { - $Devel::PartialDump::VERSION = '0.16'; + $Devel::PartialDump::VERSION = '0.17'; } -# git description: v0.15-14-g1affd47 +# git description: v0.16-10-g3303cfd BEGIN { $Devel::PartialDump::AUTHORITY = 'cpan:NUFFIN'; @@ -48,9 +48,9 @@ package DB; { - $DB::VERSION = '0.16'; + $DB::VERSION = '0.17'; } -# git description: v0.15-14-g1affd47 +# git description: v0.16-10-g3303cfd BEGIN { $DB::AUTHORITY = 'cpan:NUFFIN'; @@ -157,10 +157,10 @@ my $dump = $self->$method(1, @args); - if ( defined $self->max_length ) { - if ( length($dump) > $self->max_length ) { - $dump = substr($dump, 0, $self->max_length - 3) . "..."; - } + if ( defined $self->max_length and length($dump) > $self->max_length ) { + my $max_length = $self->max_length - 3; + $max_length = 0 if $max_length < 0; + substr( $dump, $max_length, length($dump) - $max_length ) = '...'; } if ( not defined wantarray ) { @@ -193,7 +193,7 @@ @what = splice(@what, 0, $self->max_elements * 2 ); } - return join($self->list_delim, $self->_dump_as_pairs($depth, @what), ($truncated ? "..." : ()) ); + return join( $self->list_delim, $self->_dump_as_pairs($depth, @what), ($truncated ? "..." : ()) ); } sub _dump_as_pairs { @@ -218,7 +218,7 @@ @what = splice(@what, 0, $self->max_elements ); } - return join( ", ", ( map { $self->format($depth, $_) } @what ), ($truncated ? "..." : ()) ); + return join( $self->list_delim, ( map { $self->format($depth, $_) } @what ), ($truncated ? "..." : ()) ); } sub format { @@ -263,6 +263,7 @@ my ( $self, $depth, $array ) = @_; my $class = blessed($array) || ''; + $class .= "=" if $class; return $class . "[ " . $self->dump_as_list($depth + 1, @$array) . " ]"; } @@ -271,6 +272,7 @@ my ( $self, $depth, $hash ) = @_; my $class = blessed($hash) || ''; + $class .= "=" if $class; return $class . "{ " . $self->dump_as_pairs($depth + 1, map { $_ => $hash->{$_} } sort keys %$hash) . " }"; } @@ -331,8 +333,8 @@ =encoding UTF-8 -=for :stopwords יובל קוג'מן (Yuval Kogman) David Golden Florian Ragwitz Jesse Luehrs Karen -Etheridge Leo Lapworth autodetect Ingy +=for :stopwords יובל קוג'מן (Yuval Kogman) David Steven Lee Golden Florian Ragwitz Jesse +Luehrs Karen Etheridge Leo Lapworth autodetect Ingy =head1 NAME @@ -340,7 +342,7 @@ =head1 VERSION -version 0.16 +version 0.17 =head1 SYNOPSIS @@ -631,6 +633,10 @@ Leo Lapworth <web@web-teams-computer.local> +=item * + +Steven Lee <stevenwh....@gmail.com> + =back =cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/t/00-report-prereqs.t new/Devel-PartialDump-0.17/t/00-report-prereqs.t --- old/Devel-PartialDump-0.16/t/00-report-prereqs.t 2013-11-24 01:43:56.000000000 +0100 +++ new/Devel-PartialDump-0.17/t/00-report-prereqs.t 2013-11-30 21:47:55.000000000 +0100 @@ -25,8 +25,10 @@ Sub::Exporter Test::More Test::Warn + if namespace::clean ok + overload perl strict warnings diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/t/basic.t new/Devel-PartialDump-0.17/t/basic.t --- old/Devel-PartialDump-0.16/t/basic.t 2013-11-24 01:43:56.000000000 +0100 +++ new/Devel-PartialDump-0.17/t/basic.t 2013-11-30 21:47:55.000000000 +0100 @@ -1,21 +1,20 @@ use strict; -use warnings; +use warnings FATAL => 'all'; use Test::More; +use if $ENV{AUTHOR_TESTING}, 'Test::Warnings'; use ok 'Devel::PartialDump'; -my $d = Devel::PartialDump->new; +our $d = Devel::PartialDump->new; is( $d->dump("foo"), '"foo"', "simple value" ); -is( $d->dump("foo" => "bar"), 'foo: "bar"', "named params" ); - -is( $d->dump( foo => "bar", gorch => [ 1, "bah" ] ), 'foo: "bar", gorch: [ 1, "bah" ]', "recursion" ); +is( $d->dump(undef), "undef", "undef" ); -like( $d->dump( [ { foo => ["bar"] } ] ), qr/\[ \{ foo: ARRAY\(0x[a-z0-9]+\) \} \]/i, "max depth" ); +is( $d->dump("foo" => "bar"), 'foo: "bar"', "named params" ); -is( $d->dump([ 1 .. 10 ]), '[ 1, 2, 3, 4, 5, 6, ... ]', "max elements" ); +is( $d->dump( \"foo" => "bar" ), '\\"foo", "bar"', "not named params" ); is( $d->dump("foo\nbar"), '"foo\nbar"', "newline" ); @@ -26,4 +25,83 @@ is( $d->dump(\\"foo"), '\\\\"foo"', "reference to reference" ); +subtest 'max_length' => sub { + my @list = 1 .. 10; + local $d = Devel::PartialDump->new( + pairs => 0, + max_elements => undef, + ); + + $d->max_length(undef); + is( $d->dump(@list), '1, 2, 3, 4, 5, 6, 7, 8, 9, 10', 'undefined'); + + $d->max_length(100); + is( $d->dump(@list), '1, 2, 3, 4, 5, 6, 7, 8, 9, 10', 'high'); + + $d->max_length(10); + is( $d->dump(@list), '1, 2, 3...', 'low' ); + + $d->max_length(0); + is( $d->dump(@list), '...', 'zero' ); +}; + +subtest 'max_elements for lists' => sub { + my @list = 1 .. 10; + local $d = Devel::PartialDump->new( pairs => 0 ); + + $d->max_elements(undef); + is( $d->dump(@list), '1, 2, 3, 4, 5, 6, 7, 8, 9, 10', 'undefined' ); + + $d->max_elements(100); + is( $d->dump(@list), '1, 2, 3, 4, 5, 6, 7, 8, 9, 10', 'high' ); + + $d->max_elements(6); + is( $d->dump(@list), '1, 2, 3, 4, 5, 6, ...', 'low' ); + + $d->max_elements(0); + is( $d->dump(@list), '...', 'zero' ); +}; + +subtest 'max_elements for pairs' => sub { + my @list = 1 .. 10; + local $d = Devel::PartialDump->new( pairs => 1 ); + + $d->max_elements(undef); + is( $d->dump(@list), '1: 2, 3: 4, 5: 6, 7: 8, 9: 10', 'undefined' ); + + $d->max_elements(100); + is( $d->dump(@list), '1: 2, 3: 4, 5: 6, 7: 8, 9: 10', 'high' ); + + $d->max_elements(3); + is( $d->dump(@list), '1: 2, 3: 4, 5: 6, ...', 'low' ); + + $d->max_elements(0); + is( $d->dump(@list), '...', 'zero' ); +}; + +subtest 'max_depth' => sub { + local $d = Devel::PartialDump->new; + + my $data = { foo => ["bar"], gorch => { 1 => ["bah"] } }; + + $d->max_depth(10); + is( $d->dump($data), '{ foo: [ "bar" ], gorch: { 1: [ "bah" ] } }', "high" ); + + $d->max_depth(2); + like( $d->dump($data), qr/^\{ foo: \[ "bar" \], gorch: \{ 1: ARRAY\(0x[a-z0-9]+\) \} \}/, "low" ); + + $d->max_depth(0); + like( $d->dump($data), qr/^HASH\(0x[a-z0-9]+\)/, "zero" ); +}; + +{ + local $d = Devel::PartialDump->new( pairs => 0, list_delim => ',' ); + is( $d->dump("foo", "bar"), '"foo","bar"', "list_delim" ); +} + +{ + local $d = Devel::PartialDump->new( pairs => 1, pair_delim => '=>' ); + is( $d->dump("foo" => "bar"), 'foo=>"bar"', "pair_delim" ); +} + done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/t/exports.t new/Devel-PartialDump-0.17/t/exports.t --- old/Devel-PartialDump-0.16/t/exports.t 2013-11-24 01:43:56.000000000 +0100 +++ new/Devel-PartialDump-0.17/t/exports.t 2013-11-30 21:47:55.000000000 +0100 @@ -1,8 +1,9 @@ use strict; -use warnings; +use warnings FATAL => 'all'; use Test::More; -use Test::Warn; +use if $ENV{AUTHOR_TESTING}, 'Test::Warnings'; +use Test::Warn; # for 'carped' { package Foo; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/t/objects.t new/Devel-PartialDump-0.17/t/objects.t --- old/Devel-PartialDump-0.16/t/objects.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Devel-PartialDump-0.17/t/objects.t 2013-11-30 21:47:55.000000000 +0100 @@ -0,0 +1,72 @@ +use strict; +use warnings; + +use Test::More; + +package My::Object::Hash; +{ + use overload '""' => \&stringify; + + sub new { + my $class = shift; + bless { value => $_[0] }, $class; + } + sub stringify { $_[0]->{value} } +} + +package My::Object::Array; +{ + use overload '""' => \&stringify; + + sub new { + my $class = shift; + bless [$_[0]], $class; + } + sub stringify { $_[0]->[0] } +} + +package My::Object::Scalar; +{ + use overload '""' => \&stringify; + + sub new { + my $class = shift; + my $arg = shift; + bless \$arg, $class; + } + sub stringify { ${$_[0]} } +} + +package main; + +use ok 'Devel::PartialDump'; + +my $hash = My::Object::Hash->new('foo'); +my $array = My::Object::Array->new('foo'); +my $scalar = My::Object::Scalar->new('foo'); + +subtest 'dump' => sub { + my $d = Devel::PartialDump->new( objects => 1, stringify => 0 ); + + is( $d->dump($hash), 'My::Object::Hash={ value: "foo" }' ); + is( $d->dump($array), 'My::Object::Array=[ "foo" ]' ); + is( $d->dump($scalar), 'My::Object::Scalar=\"foo"' ); +}; + +subtest 'string value' => sub { + my $d = Devel::PartialDump->new( objects => 0, stringify => 0 ); + + like( $d->dump($hash), qr/^My::Object::Hash=HASH\(0x[a-z0-9]+\)$/ ); + like( $d->dump($array), qr/^My::Object::Array=ARRAY\(0x[a-z0-9]+\)$/ ); + like( $d->dump($scalar), qr/^My::Object::Scalar=SCALAR\(0x[a-z0-9]+\)$/ ); +}; + +subtest 'string overload' => sub { + my $d = Devel::PartialDump->new( objects => 0, stringify => 1 ); + + is( $d->dump($hash), 'foo' ); + is( $d->dump($array), 'foo' ); + is( $d->dump($scalar), 'foo' ); +}; + +done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/weaver.ini new/Devel-PartialDump-0.17/weaver.ini --- old/Devel-PartialDump-0.16/weaver.ini 2013-11-24 01:43:56.000000000 +0100 +++ new/Devel-PartialDump-0.17/weaver.ini 2013-11-30 21:47:55.000000000 +0100 @@ -5,6 +5,4 @@ [-StopWords] -[-Encoding] - [Contributors] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/xt/author/00-compile.t new/Devel-PartialDump-0.17/xt/author/00-compile.t --- old/Devel-PartialDump-0.16/xt/author/00-compile.t 2013-11-24 01:43:56.000000000 +0100 +++ new/Devel-PartialDump-0.17/xt/author/00-compile.t 2013-11-30 21:47:55.000000000 +0100 @@ -1,7 +1,8 @@ +use 5.006; use strict; use warnings; -# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.037 +# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.038 use Test::More 0.94 tests => 1 + ($ENV{AUTHOR_TESTING} ? 1 : 0); @@ -21,15 +22,16 @@ use IPC::Open3; use IO::Handle; +open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!"; +my $stderr = IO::Handle->new; +binmode $stderr, ':crlf' if $^O eq 'MSWin32'; + my @warnings; for my $lib (@module_files) { # see L<perlfaq8/How can I capture STDERR from an external command?> - open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!"; - my $stderr = IO::Handle->new; my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-e', "require q[$lib]"); - binmode $stderr, ':crlf' if $^O eq 'MSWin32'; my @_warnings = <$stderr>; waitpid($pid, 0); is($?, 0, "$lib loaded ok"); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/xt/author/pod-spell.t new/Devel-PartialDump-0.17/xt/author/pod-spell.t --- old/Devel-PartialDump-0.16/xt/author/pod-spell.t 2013-11-24 01:43:56.000000000 +0100 +++ new/Devel-PartialDump-0.17/xt/author/pod-spell.t 2013-11-30 21:47:55.000000000 +0100 @@ -30,6 +30,9 @@ Leo Lapworth web +Steven +Lee +stevenwh lib Devel PartialDump diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/xt/release/changes_has_content.t new/Devel-PartialDump-0.17/xt/release/changes_has_content.t --- old/Devel-PartialDump-0.16/xt/release/changes_has_content.t 2013-11-24 01:43:56.000000000 +0100 +++ new/Devel-PartialDump-0.17/xt/release/changes_has_content.t 2013-11-30 21:47:55.000000000 +0100 @@ -4,7 +4,7 @@ note 'Checking Changes'; my $changes_file = 'Changes'; -my $newver = '0.16'; +my $newver = '0.17'; my $trial_token = '-TRIAL'; SKIP: { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-PartialDump-0.16/xt/release/portability.t new/Devel-PartialDump-0.17/xt/release/portability.t --- old/Devel-PartialDump-0.16/xt/release/portability.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Devel-PartialDump-0.17/xt/release/portability.t 2013-11-30 21:47:55.000000000 +0100 @@ -0,0 +1,11 @@ +#!perl + +use strict; +use warnings; + +use Test::More; + +eval 'use Test::Portability::Files'; +plan skip_all => 'Test::Portability::Files required for testing portability' + if $@; +run_tests(); -- To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org For additional commands, e-mail: opensuse-commit+h...@opensuse.org