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