This is an automated email from the git hooks/post-receive script. gregoa pushed a commit to branch master in repository libmock-quick-perl.
commit 313f27680c6b302b24cb9d60af46a66f3bd2f6a1 Author: gregor herrmann <gre...@debian.org> Date: Sun Oct 18 18:01:22 2015 +0200 Imported Upstream version 1.110 --- Changes | 7 +++++++ MANIFEST | 7 ++++--- MANIFEST.bak | 22 ---------------------- META.json | 6 +++--- META.yml | 6 +++--- lib/Mock/Quick.pm | 2 +- lib/Mock/Quick/Util.pm | 2 +- t/clear_warn.t | 25 +++++++++++++++++++++++++ 8 files changed, 44 insertions(+), 33 deletions(-) diff --git a/Changes b/Changes new file mode 100644 index 0000000..d4d0713 --- /dev/null +++ b/Changes @@ -0,0 +1,7 @@ +1.110 2015-08-26 10:02:22-07:00 America/Los_Angeles + + - Fix Test from 1.109 to skip when required module is missing + +1.109 2015-08-26 08:51:08-07:00 America/Los_Angeles + + - Fix #16, overloading + compare warning diff --git a/MANIFEST b/MANIFEST index 0ac9bac..31e8e84 100644 --- a/MANIFEST +++ b/MANIFEST @@ -1,4 +1,5 @@ Build.PL +Changes lib/Mock/Quick.pm lib/Mock/Quick/Class.pm lib/Mock/Quick/Method.pm @@ -7,12 +8,10 @@ lib/Mock/Quick/Object/Control.pm lib/Mock/Quick/Util.pm lib/Object/Quick.pm MANIFEST This list of files -MANIFEST.bak MANIFEST.SKIP -META.json -META.yml README t/Class.t +t/clear_warn.t t/intercept.t t/Method.t t/metrics.t @@ -21,3 +20,5 @@ t/Object-Quick.t t/Object.t t/object_control.t t/Util.t +META.yml +META.json diff --git a/MANIFEST.bak b/MANIFEST.bak deleted file mode 100644 index b988d84..0000000 --- a/MANIFEST.bak +++ /dev/null @@ -1,22 +0,0 @@ -Build.PL -lib/Mock/Quick.pm -lib/Mock/Quick/Class.pm -lib/Mock/Quick/Method.pm -lib/Mock/Quick/Object.pm -lib/Mock/Quick/Object/Control.pm -lib/Mock/Quick/Util.pm -lib/Object/Quick.pm -MANIFEST This list of files -MANIFEST.SKIP -README -t/Class.t -t/intercept.t -t/Method.t -t/metrics.t -t/Mock-Quick.t -t/Object-Quick.t -t/Object.t -t/object_control.t -t/Util.t -META.yml -META.json diff --git a/META.json b/META.json index 46b78dc..0e3d52b 100644 --- a/META.json +++ b/META.json @@ -4,7 +4,7 @@ "Chad Granum <exodi...@gmail.com>" ], "dynamic_config" : 1, - "generated_by" : "Module::Build version 0.4208", + "generated_by" : "Module::Build version 0.4214", "license" : [ "perl_5" ], @@ -37,7 +37,7 @@ "provides" : { "Mock::Quick" : { "file" : "lib/Mock/Quick.pm", - "version" : "1.108" + "version" : "1.110" }, "Mock::Quick::Class" : { "file" : "lib/Mock/Quick/Class.pm" @@ -70,5 +70,5 @@ "url" : "http://github.com/exodist/Mock-Quick" } }, - "version" : "1.108" + "version" : "1.110" } diff --git a/META.yml b/META.yml index a0129bd..c8c0a3c 100644 --- a/META.yml +++ b/META.yml @@ -9,7 +9,7 @@ build_requires: configure_requires: Module::Build: '0.42' dynamic_config: 1 -generated_by: 'Module::Build version 0.4208, CPAN::Meta::Converter version 2.140640' +generated_by: 'Module::Build version 0.4214, CPAN::Meta::Converter version 2.150001' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -18,7 +18,7 @@ name: Mock-Quick provides: Mock::Quick: file: lib/Mock/Quick.pm - version: '1.108' + version: '1.110' Mock::Quick::Class: file: lib/Mock/Quick/Class.pm Mock::Quick::Method: @@ -39,4 +39,4 @@ resources: bugtracker: http://github.com/exodist/Mock-Quick/issues license: http://dev.perl.org/licenses/ repository: http://github.com/exodist/Mock-Quick -version: '1.108' +version: '1.110' diff --git a/lib/Mock/Quick.pm b/lib/Mock/Quick.pm index c9999aa..4cf12c3 100644 --- a/lib/Mock/Quick.pm +++ b/lib/Mock/Quick.pm @@ -9,7 +9,7 @@ use Mock::Quick::Method; use Mock::Quick::Util; use Carp qw/carp/; -our $VERSION = '1.108'; +our $VERSION = '1.110'; import_arguments qw/intercept/; diff --git a/lib/Mock/Quick/Util.pm b/lib/Mock/Quick/Util.pm index 1b5bcb6..f536214 100644 --- a/lib/Mock/Quick/Util.pm +++ b/lib/Mock/Quick/Util.pm @@ -41,7 +41,7 @@ sub call { unless exists $self->{$name}; } - if ( @_ && ref $_[0] && $_[0] == \$CLEAR ) { + if ( @_ && ref $_[0] && "$_[0]" eq "" . \$CLEAR ) { delete $self->{ $name }; delete $control->metrics->{$name}; return; diff --git a/t/clear_warn.t b/t/clear_warn.t new file mode 100644 index 0000000..1034fda --- /dev/null +++ b/t/clear_warn.t @@ -0,0 +1,25 @@ +use strict; +use warnings; + +use Test::More; + +BEGIN { + unless(eval { require Path::Class; 1 }) { + Test::More->import(skip_all => 'Path::Class is needed for this test'); + exit 0; + } +} + +use Mock::Quick; +use Path::Class; + +my $x = qobj(foo => qmeth { print "# My file is $_[1]\n" }); + +my @warnings; +{ + local $SIG{__WARN__} = sub { push @warnings => @_ }; + $x->foo( file(".") ); +} +ok(!@warnings, "No warnings") || print STDERR @warnings; + +done_testing; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmock-quick-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits