Hello community, here is the log from the commit of package perl-Test-MockObject for openSUSE:Factory checked in at 2018-07-28 12:39:37 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-MockObject (Old) and /work/SRC/openSUSE:Factory/.perl-Test-MockObject.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-MockObject" Sat Jul 28 12:39:37 2018 rev:6 rq:623043 version:1.20180705 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Test-MockObject/perl-Test-MockObject.changes 2016-12-03 18:28:10.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Test-MockObject.new/perl-Test-MockObject.changes 2018-07-28 12:39:39.604340179 +0200 @@ -1,0 +2,9 @@ +Sat Jul 7 06:08:29 UTC 2018 - co...@suse.com + +- updated to 1.20180705 + see /usr/share/doc/packages/perl-Test-MockObject/Changes + + 1.20180705 2018-07-05 16:47:18-07:00 America/Los_Angeles + - added destructor to clear counters (choroboa PR #15, RT #71831) + +------------------------------------------------------------------- Old: ---- Test-MockObject-1.20161202.tar.gz New: ---- Test-MockObject-1.20180705.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-MockObject.spec ++++++ --- /var/tmp/diff_new_pack.Jx3604/_old 2018-07-28 12:39:40.144341217 +0200 +++ /var/tmp/diff_new_pack.Jx3604/_new 2018-07-28 12:39:40.148341225 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Test-MockObject # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,14 +17,14 @@ Name: perl-Test-MockObject -Version: 1.20161202 +Version: 1.20180705 Release: 0 %define cpan_name Test-MockObject Summary: Perl extension for emulating troublesome interfaces -License: Artistic-1.0 or GPL-1.0+ +License: Artistic-1.0 OR GPL-1.0-or-later Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Test-MockObject/ -Source0: http://www.cpan.org/authors/id/C/CH/CHROMATIC/%{cpan_name}-%{version}.tar.gz +Source0: https://cpan.metacpan.org/authors/id/C/CH/CHROMATIC/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build @@ -55,6 +55,7 @@ %prep %setup -q -n %{cpan_name}-%{version} +find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644 %build %{__perl} Makefile.PL INSTALLDIRS=vendor @@ -70,6 +71,7 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes LICENSE README +%doc Changes README +%license LICENSE %changelog ++++++ Test-MockObject-1.20161202.tar.gz -> Test-MockObject-1.20180705.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-MockObject-1.20161202/Changes new/Test-MockObject-1.20180705/Changes --- old/Test-MockObject-1.20161202/Changes 2016-12-03 00:12:42.000000000 +0100 +++ new/Test-MockObject-1.20180705/Changes 2018-07-06 01:47:19.000000000 +0200 @@ -1,5 +1,8 @@ Revision history for Perl extension Test::MockObject. +1.20180705 2018-07-05 16:47:18-07:00 America/Los_Angeles + - added destructor to clear counters (choroboa PR #15, RT #71831) + 1.20161202 2016-12-02 15:12:41-08:00 America/Los_Angeles - renamed README.pod to README (RT #118831) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-MockObject-1.20161202/LICENSE new/Test-MockObject-1.20180705/LICENSE --- old/Test-MockObject-1.20161202/LICENSE 2016-12-03 00:12:42.000000000 +0100 +++ new/Test-MockObject-1.20180705/LICENSE 2018-07-06 01:47:19.000000000 +0200 @@ -1,4 +1,4 @@ -This software is copyright (c) 2016 by chroma...@wgz.org. +This software is copyright (c) 2018 by chroma...@wgz.org. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. @@ -12,7 +12,7 @@ --- The GNU General Public License, Version 1, February 1989 --- -This software is Copyright (c) 2016 by chroma...@wgz.org. +This software is Copyright (c) 2018 by chroma...@wgz.org. This is free software, licensed under: @@ -272,7 +272,7 @@ --- The Artistic License 1.0 --- -This software is Copyright (c) 2016 by chroma...@wgz.org. +This software is Copyright (c) 2018 by chroma...@wgz.org. This is free software, licensed under: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-MockObject-1.20161202/MANIFEST new/Test-MockObject-1.20180705/MANIFEST --- old/Test-MockObject-1.20161202/MANIFEST 2016-12-03 00:12:42.000000000 +0100 +++ new/Test-MockObject-1.20180705/MANIFEST 2018-07-06 01:47:19.000000000 +0200 @@ -1,4 +1,4 @@ -# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.043. +# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.012. Changes LICENSE MANIFEST diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-MockObject-1.20161202/META.yml new/Test-MockObject-1.20180705/META.yml --- old/Test-MockObject-1.20161202/META.yml 2016-12-03 00:12:42.000000000 +0100 +++ new/Test-MockObject-1.20180705/META.yml 2018-07-06 01:47:19.000000000 +0200 @@ -14,7 +14,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 0 -generated_by: 'Dist::Zilla version 5.043, CPAN::Meta::Converter version 2.150001' +generated_by: 'Dist::Zilla version 6.012, CPAN::Meta::Converter version 2.150010' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -33,4 +33,6 @@ resources: bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Test-MockObject repository: https://github.com/chromatic/Test-MockObject.git -version: '1.20161202' +version: '1.20180705' +x_generated_by_perl: v5.28.0 +x_serialization_backend: 'YAML::Tiny version 1.73' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-MockObject-1.20161202/Makefile.PL new/Test-MockObject-1.20180705/Makefile.PL --- old/Test-MockObject-1.20161202/Makefile.PL 2016-12-03 00:12:42.000000000 +0100 +++ new/Test-MockObject-1.20180705/Makefile.PL 2018-07-06 01:47:19.000000000 +0200 @@ -1,4 +1,4 @@ -# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.043. +# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v6.012. use strict; use warnings; @@ -36,7 +36,7 @@ "overload" => 0, "vars" => 0 }, - "VERSION" => "1.20161202", + "VERSION" => "1.20180705", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-MockObject-1.20161202/README new/Test-MockObject-1.20180705/README --- old/Test-MockObject-1.20161202/README 2016-12-03 00:12:42.000000000 +0100 +++ new/Test-MockObject-1.20180705/README 2018-07-06 01:47:19.000000000 +0200 @@ -1,15 +1,12 @@ - - This archive contains the distribution Test-MockObject, -version 1.20161202: +version 1.20180705: Perl extension for emulating troublesome interfaces -This software is copyright (c) 2016 by chroma...@wgz.org. +This software is copyright (c) 2018 by chroma...@wgz.org. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. -This README file was generated by Dist::Zilla::Plugin::Readme v5.043. - +This README file was generated by Dist::Zilla::Plugin::Readme v6.012. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-MockObject-1.20161202/dist.ini new/Test-MockObject-1.20180705/dist.ini --- old/Test-MockObject-1.20161202/dist.ini 2016-12-03 00:12:42.000000000 +0100 +++ new/Test-MockObject-1.20180705/dist.ini 2018-07-06 01:47:19.000000000 +0200 @@ -2,7 +2,7 @@ author = chromatic license = Perl_5 copyright_holder = chroma...@wgz.org -copyright_year = 2016 +copyright_year = 2018 [MetaResources] bugtracker.web = http://rt.cpan.org/NoAuth/Bugs.html?Dist=Test-MockObject diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-MockObject-1.20161202/lib/Test/MockObject/Extends.pm new/Test-MockObject-1.20180705/lib/Test/MockObject/Extends.pm --- old/Test-MockObject-1.20161202/lib/Test/MockObject/Extends.pm 2016-12-03 00:12:42.000000000 +0100 +++ new/Test-MockObject-1.20180705/lib/Test/MockObject/Extends.pm 2018-07-06 01:47:19.000000000 +0200 @@ -1,5 +1,5 @@ package Test::MockObject::Extends; -$Test::MockObject::Extends::VERSION = '1.20161202'; +$Test::MockObject::Extends::VERSION = '1.20180705'; use strict; use warnings; @@ -78,6 +78,7 @@ *{ $package . '::isa' } = $class->gen_isa( $parent ); *{ $package . '::AUTOLOAD' } = $class->gen_autoload( $parent ); *{ $package . '::__get_parents' } = $class->gen_get_parents( $parent ); + *{ $package . '::DESTROY' } = $class->gen_destroy( $parent ); return $package; } @@ -120,6 +121,19 @@ }; } +sub gen_destroy +{ + my ($class, $parent) = @_; + my $destroy; + $destroy = sub + { + my $self = shift; + my $parent_destroy = $parent->can( 'DESTROY' ); + $self->$parent_destroy if $parent_destroy && $parent_destroy != $destroy; + $self->Test::MockObject::DESTROY; + } +} + sub gen_autoload { my ($class, $parent) = @_; @@ -129,7 +143,6 @@ our $AUTOLOAD; my $method = substr( $AUTOLOAD, rindex( $AUTOLOAD, ':' ) +1 ); - return if $method eq 'DESTROY'; my $self = shift; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-MockObject-1.20161202/lib/Test/MockObject.pm new/Test-MockObject-1.20180705/lib/Test/MockObject.pm --- old/Test-MockObject-1.20161202/lib/Test/MockObject.pm 2016-12-03 00:12:42.000000000 +0100 +++ new/Test-MockObject-1.20180705/lib/Test/MockObject.pm 2018-07-06 01:47:19.000000000 +0200 @@ -1,5 +1,5 @@ package Test::MockObject; -$Test::MockObject::VERSION = '1.20161202'; +$Test::MockObject::VERSION = '1.20180705'; use strict; use warnings; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-MockObject-1.20161202/t/extends-bugs.t new/Test-MockObject-1.20180705/t/extends-bugs.t --- old/Test-MockObject-1.20161202/t/extends-bugs.t 2016-12-03 00:12:42.000000000 +0100 +++ new/Test-MockObject-1.20180705/t/extends-bugs.t 2018-07-06 01:47:19.000000000 +0200 @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 33; +use Test::More tests => 35; use Test::Exception; my $module = 'Test::MockObject::Extends'; @@ -155,3 +155,14 @@ my $o = Test::MockObject::Extends->new('Obj')->set_always( -class_method => 'FAKED RESULT' ); is( $o->class_method, 'FAKED RESULT', 'class method mocked' ); + +# Don't reuse call info from destroyed object +sub extend +{ + my $obj = bless {}, 'My'; + $obj = Test::MockObject::Extends->new($obj); + ok ! $obj->call_pos(1), 'not called'; + $obj->set_true('test'); + $obj->test(); +} +extend() for 1, 2;