r63848 - in /branches/upstream/libtest-deep-perl/current: CHANGES META.yml Makefile.PL lib/Test/Deep.pm lib/Test/Deep.pod
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Sun Oct 17 10:19:27 UTC 2010
Author: ansgar
Date: Sun Oct 17 10:19:09 2010
New Revision: 63848
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=63848
Log:
[svn-upgrade] new version libtest-deep-perl (0.108)
Modified:
branches/upstream/libtest-deep-perl/current/CHANGES
branches/upstream/libtest-deep-perl/current/META.yml
branches/upstream/libtest-deep-perl/current/Makefile.PL
branches/upstream/libtest-deep-perl/current/lib/Test/Deep.pm
branches/upstream/libtest-deep-perl/current/lib/Test/Deep.pod
Modified: branches/upstream/libtest-deep-perl/current/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-deep-perl/current/CHANGES?rev=63848&op=diff
==============================================================================
--- branches/upstream/libtest-deep-perl/current/CHANGES (original)
+++ branches/upstream/libtest-deep-perl/current/CHANGES Sun Oct 17 10:19:09 2010
@@ -1,5 +1,10 @@
-0.170 2009-09-28
+0.108 2009-1015
+
+ simple (stringwise) comparison should now be much faster (thanks,
+ NCLEATON)
+
+0.107 2009-09-28
New maintainer: Ricardo Signes (rjbs)
Modified: branches/upstream/libtest-deep-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-deep-perl/current/META.yml?rev=63848&op=diff
==============================================================================
--- branches/upstream/libtest-deep-perl/current/META.yml (original)
+++ branches/upstream/libtest-deep-perl/current/META.yml Sun Oct 17 10:19:09 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Test-Deep
-version: 0.107
+version: 0.108
abstract: ~
author:
- Fergal Daly <fergal at esatclear.ie>
Modified: branches/upstream/libtest-deep-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-deep-perl/current/Makefile.PL?rev=63848&op=diff
==============================================================================
--- branches/upstream/libtest-deep-perl/current/Makefile.PL (original)
+++ branches/upstream/libtest-deep-perl/current/Makefile.PL Sun Oct 17 10:19:09 2010
@@ -11,25 +11,25 @@
my $tt_prereq = "0.04";
if (eval { require Test::Tester; require Test::Builder; 1 } &&
- $Test::Tester::VERSION <= 0.106 &&
- $Test::Builder::VERSION >= 0.78) {
+ $Test::Tester::VERSION <= 0.106 &&
+ $Test::Builder::VERSION >= 0.78) {
$tt_prereq = "0.107";
}
WriteMakefile(
- AUTHOR => 'Fergal Daly <fergal at esatclear.ie>',
- NAME => 'Test::Deep',
- VERSION_FROM => './lib/Test/Deep.pm',
- PREREQ_PM => {
- 'Test::More' => '0',
- 'Test::Tester' => $tt_prereq,
- 'Test::NoWarnings' => '0.02',
- 'Scalar::Util' => '1.09',
+ AUTHOR => 'Fergal Daly <fergal at esatclear.ie>',
+ NAME => 'Test::Deep',
+ VERSION_FROM => './lib/Test/Deep.pm',
+ PREREQ_PM => {
+ 'Test::More' => '0',
+ 'Test::Tester' => $tt_prereq,
+ 'Test::NoWarnings' => '0.02',
+ 'Scalar::Util' => '1.09',
- # apparently CPAN doesn't get the version of Scalar::Util
- 'List::Util' => '1.09',
- },
+ # apparently CPAN doesn't get the version of Scalar::Util
+ 'List::Util' => '1.09',
+ },
($] < 5.010 ? (INSTALLDIRS => 'perl') : ()),
);
Modified: branches/upstream/libtest-deep-perl/current/lib/Test/Deep.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-deep-perl/current/lib/Test/Deep.pm?rev=63848&op=diff
==============================================================================
--- branches/upstream/libtest-deep-perl/current/lib/Test/Deep.pm (original)
+++ branches/upstream/libtest-deep-perl/current/lib/Test/Deep.pm Sun Oct 17 10:19:09 2010
@@ -27,7 +27,7 @@
$Snobby $Expects $DNE $DNE_ADDR $Shallow
);
-$VERSION = '0.107';
+$VERSION = '0.108';
$VERSION = eval $VERSION;
require Exporter;
@@ -49,35 +49,35 @@
# if no sub name is supplied then we use the package name in lower case
my %constructors = (
- Number => "num",
- Methods => "",
- ListMethods => "",
- String => "str",
- Boolean => "bool",
- ScalarRef => "scalref",
- ScalarRefOnly => "",
- Array => "",
- ArrayEach => "array_each",
- ArrayElementsOnly => "",
- Hash => "",
- HashEach => "hash_each",
- Regexp => "re",
- RegexpMatches => "",
- RegexpOnly => "",
- RegexpRef => "",
- Ignore => "",
- Shallow => "",
- Any => "",
- All => "",
- Isa => "Isa",
- RegexpRefOnly => "",
- RefType => "",
- Blessed => "",
- ArrayLength => "",
- ArrayLengthOnly => "",
- HashKeys => "",
- HashKeysOnly => "",
- Code => "",
+ All => "",
+ Any => "",
+ Array => "",
+ ArrayEach => "array_each",
+ ArrayElementsOnly => "",
+ ArrayLength => "",
+ ArrayLengthOnly => "",
+ Blessed => "",
+ Boolean => "bool",
+ Code => "",
+ Hash => "",
+ HashEach => "hash_each",
+ HashKeys => "",
+ HashKeysOnly => "",
+ Ignore => "",
+ Isa => "Isa",
+ ListMethods => "",
+ Methods => "",
+ Number => "num",
+ RefType => "",
+ Regexp => "re",
+ RegexpMatches => "",
+ RegexpOnly => "",
+ RegexpRef => "",
+ RegexpRefOnly => "",
+ ScalarRef => "scalref",
+ ScalarRefOnly => "",
+ Shallow => "",
+ String => "str",
);
while (my ($pkg, $name) = each %constructors)
@@ -256,6 +256,19 @@
{
my ($d1, $d2) = @_;
+ if (!ref $d1 and !ref $d2)
+ {
+ # Shortcut comparison for the non-reference case.
+ if (defined $d1)
+ {
+ return 1 if defined $d2 and $d1 eq $d2;
+ }
+ else
+ {
+ return 1 if !defined $d2;
+ }
+ }
+
if (! $Expects and ref($d1) and UNIVERSAL::isa($d1, "Test::Deep::Cmp"))
{
my $where = $Stack->render('$data');
Modified: branches/upstream/libtest-deep-perl/current/lib/Test/Deep.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-deep-perl/current/lib/Test/Deep.pod?rev=63848&op=diff
==============================================================================
--- branches/upstream/libtest-deep-perl/current/lib/Test/Deep.pod (original)
+++ branches/upstream/libtest-deep-perl/current/lib/Test/Deep.pod Sun Oct 17 10:19:09 2010
@@ -21,7 +21,7 @@
cmp_deeply(
\@array,
- [$hash1, $hash2, ignore(
+ [$hash1, $hash2, ignore()],
"first 2 elements are as expected, ignoring 3"
);
More information about the Pkg-perl-cvs-commits
mailing list