r23972 - in /branches/upstream/libtest-differences-perl/current: Changes Differences.pm MANIFEST META.yml t/regression.t
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Fri Aug 8 19:36:47 UTC 2008
Author: dmn
Date: Fri Aug 8 19:36:45 2008
New Revision: 23972
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=23972
Log:
[svn-upgrade] Integrating new upstream version, libtest-differences-perl (0.48.01)
Added:
branches/upstream/libtest-differences-perl/current/META.yml
branches/upstream/libtest-differences-perl/current/t/regression.t
Modified:
branches/upstream/libtest-differences-perl/current/Changes
branches/upstream/libtest-differences-perl/current/Differences.pm
branches/upstream/libtest-differences-perl/current/MANIFEST
Modified: branches/upstream/libtest-differences-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-differences-perl/current/Changes?rev=23972&op=diff
==============================================================================
--- branches/upstream/libtest-differences-perl/current/Changes (original)
+++ branches/upstream/libtest-differences-perl/current/Changes Fri Aug 8 19:36:45 2008
@@ -1,4 +1,9 @@
Changes file for Test::Differences
+
+0.48_01 Wed Jul 30 10:42:52 GMT 2008
+ - Fixed bug when comparing AoH with non-scalar values. Reported (with
+ fix) by Mark Zealey
+ (http://rt.cpan.org/Public/Bug/Display.html?id=29732)
0.47 Tue Jun 17 08:54:59 EDT 2003
- Add context option (reworked patch from fetko at slaysys.com)
Modified: branches/upstream/libtest-differences-perl/current/Differences.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-differences-perl/current/Differences.pm?rev=23972&op=diff
==============================================================================
--- branches/upstream/libtest-differences-perl/current/Differences.pm (original)
+++ branches/upstream/libtest-differences-perl/current/Differences.pm Fri Aug 8 19:36:45 2008
@@ -200,7 +200,7 @@
=cut
-$VERSION = 0.47;
+$VERSION = 0.48_01;
use Exporter;
@@ -220,7 +220,7 @@
sub _isnt_HASH_of_scalars {
return 1 if ref ne "HASH";
- return scalar grep ref, keys %$_;
+ return scalar grep ref, values %$_;
}
use constant ARRAY_of_scalars => "ARRAY of scalars";
Modified: branches/upstream/libtest-differences-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-differences-perl/current/MANIFEST?rev=23972&op=diff
==============================================================================
--- branches/upstream/libtest-differences-perl/current/MANIFEST (original)
+++ branches/upstream/libtest-differences-perl/current/MANIFEST Fri Aug 8 19:36:45 2008
@@ -11,3 +11,4 @@
t/10test.t
t/20test_more.t
t/99example.t
+t/regression.t
Added: branches/upstream/libtest-differences-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-differences-perl/current/META.yml?rev=23972&op=file
==============================================================================
--- branches/upstream/libtest-differences-perl/current/META.yml (added)
+++ branches/upstream/libtest-differences-perl/current/META.yml Fri Aug 8 19:36:45 2008
@@ -1,0 +1,13 @@
+--- #YAML:1.0
+name: Test-Differences
+version: 0.4801
+abstract: ~
+license: ~
+author: ~
+generated_by: ExtUtils::MakeMaker version 6.42
+distribution_type: module
+requires:
+ Text::Diff: 0.34
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
Added: branches/upstream/libtest-differences-perl/current/t/regression.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-differences-perl/current/t/regression.t?rev=23972&op=file
==============================================================================
--- branches/upstream/libtest-differences-perl/current/t/regression.t (added)
+++ branches/upstream/libtest-differences-perl/current/t/regression.t Fri Aug 8 19:36:45 2008
@@ -1,0 +1,25 @@
+
+use Test;
+
+use Test::Differences;
+
+my $got = [
+ { a => 1 },
+ { b => 1,
+ c => [],
+ }
+];
+my $expected = [
+ { a => 1 },
+ { b => 1,
+ c => [],
+ }
+];
+
+my @tests = (
+ sub { eq_or_diff $got, $expected },
+);
+
+plan tests => scalar @tests;
+
+$_->() for @tests;
More information about the Pkg-perl-cvs-commits
mailing list