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 - [email protected]
+
+- 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 [email protected].
+This software is copyright (c) 2018 by [email protected].
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 [email protected].
+This software is Copyright (c) 2018 by [email protected].
This is free software, licensed under:
@@ -272,7 +272,7 @@
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2016 by [email protected].
+This software is Copyright (c) 2018 by [email protected].
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 [email protected].
+This software is copyright (c) 2018 by [email protected].
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 = [email protected]
-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;
