r63819 - in /branches/upstream/libpackage-deprecationmanager-perl/current: Changes META.json META.yml Makefile.PL README SIGNATURE dist.ini lib/Package/DeprecationManager.pm t/basic.t
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Sat Oct 16 19:19:21 UTC 2010
Author: ansgar
Date: Sat Oct 16 19:18:50 2010
New Revision: 63819
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=63819
Log:
[svn-upgrade] new version libpackage-deprecationmanager-perl (0.08)
Modified:
branches/upstream/libpackage-deprecationmanager-perl/current/Changes
branches/upstream/libpackage-deprecationmanager-perl/current/META.json
branches/upstream/libpackage-deprecationmanager-perl/current/META.yml
branches/upstream/libpackage-deprecationmanager-perl/current/Makefile.PL
branches/upstream/libpackage-deprecationmanager-perl/current/README
branches/upstream/libpackage-deprecationmanager-perl/current/SIGNATURE
branches/upstream/libpackage-deprecationmanager-perl/current/dist.ini
branches/upstream/libpackage-deprecationmanager-perl/current/lib/Package/DeprecationManager.pm
branches/upstream/libpackage-deprecationmanager-perl/current/t/basic.t
Modified: branches/upstream/libpackage-deprecationmanager-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-deprecationmanager-perl/current/Changes?rev=63819&op=diff
==============================================================================
--- branches/upstream/libpackage-deprecationmanager-perl/current/Changes (original)
+++ branches/upstream/libpackage-deprecationmanager-perl/current/Changes Sat Oct 16 19:18:50 2010
@@ -1,3 +1,18 @@
+0.08 2010-10-15
+
+- Include Test::Requires in prereq list. Reported by Todd Rinaldo. RT #62173.
+
+
+0.07 2010-10-15
+
+- The use of regular expressions in ignores didn't really work in 0.06.
+
+- Added missing dep on List::MoreUtils.
+
+- Replaced Test::Warn with Test::Output in the tests, and made the tests
+ actually test what I think they should be testing.
+
+
0.06 2010-10-14
- The -ignore parameter now accepts regular expressions as well as package
Modified: branches/upstream/libpackage-deprecationmanager-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-deprecationmanager-perl/current/META.json?rev=63819&op=diff
==============================================================================
--- branches/upstream/libpackage-deprecationmanager-perl/current/META.json (original)
+++ branches/upstream/libpackage-deprecationmanager-perl/current/META.json Sat Oct 16 19:18:50 2010
@@ -22,6 +22,7 @@
"runtime" : {
"requires" : {
"Carp" : 0,
+ "List::MoreUtils" : 0,
"Params::Util" : 0,
"Sub::Install" : 0
}
@@ -29,7 +30,8 @@
"test" : {
"requires" : {
"Test::Exception" : 0,
- "Test::More" : "0.88"
+ "Test::More" : "0.88",
+ "Test::Requires" : 0
}
}
},
@@ -45,6 +47,6 @@
"web" : "http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo/Package-DeprecationManager.git;a=summary"
}
},
- "version" : "0.06"
+ "version" : "0.08"
}
Modified: branches/upstream/libpackage-deprecationmanager-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-deprecationmanager-perl/current/META.yml?rev=63819&op=diff
==============================================================================
--- branches/upstream/libpackage-deprecationmanager-perl/current/META.yml (original)
+++ branches/upstream/libpackage-deprecationmanager-perl/current/META.yml Sat Oct 16 19:18:50 2010
@@ -5,6 +5,7 @@
build_requires:
Test::Exception: 0
Test::More: 0.88
+ Test::Requires: 0
configure_requires:
ExtUtils::MakeMaker: 6.31
dynamic_config: 0
@@ -16,9 +17,10 @@
name: Package-DeprecationManager
requires:
Carp: 0
+ List::MoreUtils: 0
Params::Util: 0
Sub::Install: 0
resources:
bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Package-DeprecationManager
repository: git://git.moose.perl.org/Package-DeprecationManager.git
-version: 0.06
+version: 0.08
Modified: branches/upstream/libpackage-deprecationmanager-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-deprecationmanager-perl/current/Makefile.PL?rev=63819&op=diff
==============================================================================
--- branches/upstream/libpackage-deprecationmanager-perl/current/Makefile.PL (original)
+++ branches/upstream/libpackage-deprecationmanager-perl/current/Makefile.PL Sat Oct 16 19:18:50 2010
@@ -13,7 +13,8 @@
'AUTHOR' => 'Dave Rolsky <autarch at urth.org>',
'BUILD_REQUIRES' => {
'Test::Exception' => '0',
- 'Test::More' => '0.88'
+ 'Test::More' => '0.88',
+ 'Test::Requires' => '0'
},
'CONFIGURE_REQUIRES' => {
'ExtUtils::MakeMaker' => '6.31'
@@ -24,10 +25,11 @@
'NAME' => 'Package::DeprecationManager',
'PREREQ_PM' => {
'Carp' => '0',
+ 'List::MoreUtils' => '0',
'Params::Util' => '0',
'Sub::Install' => '0'
},
- 'VERSION' => '0.06',
+ 'VERSION' => '0.08',
'test' => {
'TESTS' => 't/*.t'
}
Modified: branches/upstream/libpackage-deprecationmanager-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-deprecationmanager-perl/current/README?rev=63819&op=diff
==============================================================================
--- branches/upstream/libpackage-deprecationmanager-perl/current/README (original)
+++ branches/upstream/libpackage-deprecationmanager-perl/current/README Sat Oct 16 19:18:50 2010
@@ -1,7 +1,7 @@
This archive contains the distribution Package-DeprecationManager,
-version 0.06:
+version 0.08:
Manage deprecation warnings for your distribution
Modified: branches/upstream/libpackage-deprecationmanager-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-deprecationmanager-perl/current/SIGNATURE?rev=63819&op=diff
==============================================================================
--- branches/upstream/libpackage-deprecationmanager-perl/current/SIGNATURE (original)
+++ branches/upstream/libpackage-deprecationmanager-perl/current/SIGNATURE Sat Oct 16 19:18:50 2010
@@ -14,17 +14,17 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 92856b6360165fb9b2644a62fcbfa9d774d812cd Changes
+SHA1 2e5f93d2f11eab6eeff484d7d79ebba711ca0679 Changes
SHA1 e605c1369fca70aef0107226cbf4d5250a02f18c INSTALL
SHA1 23c628b4a8a36738405ccdacaeb912d2e727b4c0 LICENSE
SHA1 8290538f0bb62f1c05437cbfe29284f47e4fda41 MANIFEST
-SHA1 538d32ff9bbc45d61b14c21bf1c1463d0912dbc7 META.json
-SHA1 90a3b0d967bab745d34fc70f56a5a14b8a371281 META.yml
-SHA1 23ed780c17145ab83e8b8ebb11d5cfe3ea068804 Makefile.PL
-SHA1 d4d7c07eaa72ca3f56d5c082efc39e277cc21990 README
-SHA1 3f06fa8928b09dff6f5af69eae807422be798560 dist.ini
-SHA1 ca9da43e3eb587386d2affd6a5925814a1ab6e9b lib/Package/DeprecationManager.pm
-SHA1 fd4115706b6342bb8e4011cec3bc5bb43802ccf2 t/basic.t
+SHA1 792d6b7213e092c84fb512e35b76e7a29017ee30 META.json
+SHA1 24e0b8f2e1b6a502696642d0bd2599497a249fcf META.yml
+SHA1 a866855546270f25b7ea2027bb3f42ad3763648e Makefile.PL
+SHA1 c3bc5f5820cc28d22f1e5280ee535e6828b38213 README
+SHA1 bf7a322982118891e30fc1aefeef609c757ee204 dist.ini
+SHA1 fc303b515d18e091391814a7160130cc6b00d1e9 lib/Package/DeprecationManager.pm
+SHA1 6b2e40cd7b8df47e9a59ce3a23d469150fa441af t/basic.t
SHA1 a032c41ef6887fab1b900669c2d304fab46680e2 t/release-eol.t
SHA1 961a1e2c92d836c8cad2d34b784cbc75345dec63 t/release-kwalitee.t
SHA1 455d1dd1867212a665ad5ea4126b572411de300c t/release-no-tabs.t
@@ -33,7 +33,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (GNU/Linux)
-iEYEARECAAYFAky3XsYACgkQIgMCsV8qvRK8fACgic0EUnW9nSxgPZyhijswTIpv
-faUAoIJFe6HvpltlFGHRSjg5IvJGFRMU
-=t+Q5
+iEYEARECAAYFAky4g8IACgkQIgMCsV8qvRJicACdFyHH4KJsqZcOukcMtRrnh9pU
+B4MAoId5HyU/etbDMsjbtHzqzXz/GNWj
+=ye5N
-----END PGP SIGNATURE-----
Modified: branches/upstream/libpackage-deprecationmanager-perl/current/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-deprecationmanager-perl/current/dist.ini?rev=63819&op=diff
==============================================================================
--- branches/upstream/libpackage-deprecationmanager-perl/current/dist.ini (original)
+++ branches/upstream/libpackage-deprecationmanager-perl/current/dist.ini Sat Oct 16 19:18:50 2010
@@ -2,7 +2,7 @@
author = Dave Rolsky <autarch at urth.org>
copyright_year = 2010
-version = 0.06
+version = 0.08
[@Basic]
@@ -29,12 +29,14 @@
[CheckChangeLog]
[Prereqs]
-Carp = 0
-Params::Util = 0
-Sub::Install = 0
+Carp = 0
+List::MoreUtils = 0
+Params::Util = 0
+Sub::Install = 0
[Prereqs / TestRequires]
Test::Exception = 0
Test::More = 0.88
+Test::Requires = 0
[@Git]
Modified: branches/upstream/libpackage-deprecationmanager-perl/current/lib/Package/DeprecationManager.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-deprecationmanager-perl/current/lib/Package/DeprecationManager.pm?rev=63819&op=diff
==============================================================================
--- branches/upstream/libpackage-deprecationmanager-perl/current/lib/Package/DeprecationManager.pm (original)
+++ branches/upstream/libpackage-deprecationmanager-perl/current/lib/Package/DeprecationManager.pm Sat Oct 16 19:18:50 2010
@@ -1,6 +1,6 @@
package Package::DeprecationManager;
BEGIN {
- $Package::DeprecationManager::VERSION = '0.06';
+ $Package::DeprecationManager::VERSION = '0.08';
}
use strict;
@@ -78,7 +78,7 @@
my $skipped = 1;
- if ( keys %ignore ) {
+ if ( @ignore_res || keys %ignore ) {
while ( defined $package
&& ( $ignore{$package} || any { $package =~ $_ } @ignore_res )
) {
@@ -137,7 +137,7 @@
=head1 VERSION
-version 0.06
+version 0.08
=head1 SYNOPSIS
Modified: branches/upstream/libpackage-deprecationmanager-perl/current/t/basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-deprecationmanager-perl/current/t/basic.t?rev=63819&op=diff
==============================================================================
--- branches/upstream/libpackage-deprecationmanager-perl/current/t/basic.t (original)
+++ branches/upstream/libpackage-deprecationmanager-perl/current/t/basic.t Sat Oct 16 19:18:50 2010
@@ -5,7 +5,7 @@
use Test::More;
use Test::Requires {
- 'Test::Warn' => '0.21',
+ 'Test::Output' => '0.16',
};
{
@@ -59,33 +59,33 @@
Foo->import();
- ::warning_is{ Foo::foo() }
- { carped => 'foo is deprecated' },
+ ::stderr_like{ Foo::foo() }
+ qr/\Qfoo is deprecated/,
'deprecation warning for foo';
- ::warning_is{ Foo::bar() }
- { carped => 'bar is deprecated' },
+ ::stderr_like{ Foo::bar() }
+ qr/\Qbar is deprecated/,
'deprecation warning for bar';
- ::warning_is{ Foo::baz() }
- { carped => 'Foo::baz has been deprecated since version 1.21' },
+ ::stderr_like{ Foo::baz() }
+ qr/\QFoo::baz has been deprecated since version 1.21/,
'deprecation warning for baz, and message is generated by Package::DeprecationManager';
- ::warning_is{ Foo::foo() } q{}, 'no warning on second call to foo';
-
- ::warning_is{ Foo::bar() } q{}, 'no warning on second call to bar';
-
- ::warning_is{ Foo::baz() } q{}, 'no warning on second call to baz';
-
- ::warning_is{ Foo::varies(1) }
- { carped => "The varies sub varies: 1" },
+ ::stderr_is{ Foo::foo() } q{}, 'no warning on second call to foo';
+
+ ::stderr_is{ Foo::bar() } q{}, 'no warning on second call to bar';
+
+ ::stderr_is{ Foo::baz() } q{}, 'no warning on second call to baz';
+
+ ::stderr_like{ Foo::varies(1) }
+ qr/\QThe varies sub varies: 1/,
'warning for varies sub';
- ::warning_is{ Foo::varies(2) }
- { carped => "The varies sub varies: 2" },
+ ::stderr_like{ Foo::varies(2) }
+ qr/\QThe varies sub varies: 2/,
'warning for varies sub with different error';
- ::warning_is{ Foo::varies(1) }
+ ::stderr_is{ Foo::varies(1) }
q{},
'no warning for varies sub with same message as first call';
}
@@ -95,15 +95,15 @@
Foo->import( -api_version => '0.01' );
- ::warning_is{ Foo::foo() }
+ ::stderr_is{ Foo::foo() }
q{},
'no warning for foo with api_version = 0.01';
- ::warning_is{ Foo::bar() }
+ ::stderr_is{ Foo::bar() }
q{},
'no warning for bar with api_version = 0.01';
- ::warning_is{ Foo::baz() }
+ ::stderr_is{ Foo::baz() }
q{},
'no warning for baz with api_version = 0.01';
}
@@ -113,15 +113,15 @@
Foo->import( -api_version => '1.17' );
- ::warning_is{ Foo::foo() }
- { carped => 'foo is deprecated' },
+ ::stderr_like{ Foo::foo() }
+ qr/\Qfoo is deprecated/,
'deprecation warning for foo with api_version = 1.17';
- ::warning_is{ Foo::bar() }
- { carped => 'bar is deprecated' },
+ ::stderr_like{ Foo::bar() }
+ qr/\Qbar is deprecated/,
'deprecation warning for bar with api_version = 1.17';
- ::warning_is{ Foo::baz() }
+ ::stderr_is{ Foo::baz() }
q{},
'no warning for baz with api_version = 1.17';
}
@@ -131,12 +131,12 @@
Foo->import();
- ::warning_is{ Foo::quux(1) }
+ ::stderr_is{ Foo::quux(1) }
q{},
'no warning for quux(1)';
- ::warning_is{ Foo::quux(10) }
- { carped => 'quux > 5 has been deprecated' },
+ ::stderr_like{ Foo::quux(10) }
+ qr/\Qquux > 5 has been deprecated/,
'got a warning for quux(10)';
}
@@ -145,7 +145,7 @@
package Dep;
use Package::DeprecationManager -deprecations => {
- 'foo' => '1.00',
+ 'Dep::foo' => '1.00',
},
-ignore => [ 'My::Package1', 'My::Package2' ];
@@ -158,9 +158,9 @@
package Dep2;
use Package::DeprecationManager -deprecations => {
- 'bar' => '1.00',
+ 'Dep2::bar' => '1.00',
},
- -ignore => [ 'My::Package2' ];
+ -ignore => [ qr/My::Package[12]/ ];
sub bar {
deprecated('bar is deprecated');
@@ -168,24 +168,10 @@
}
{
- package Dep3;
-
- use Package::DeprecationManager -deprecations => {
- 'baz' => '1.00',
- },
- -ignore => [ qr/My::Package[12]/ ];
-
- sub baz {
- deprecated('baz is deprecated');
- }
-}
-
-{
package My::Package1;
sub foo { Dep::foo() }
sub bar { Dep2::bar() }
- sub baz { Dep3::baz() }
}
{
@@ -193,33 +179,42 @@
sub foo { My::Package1::foo() }
sub bar { My::Package1::bar() }
- sub baz { My::Package1::baz() }
}
{
package My::Baz;
- ::warning_like{ My::Package1::bar() }
- qr/^bar is deprecated at t.basic\.t line \d+/,
- 'deprecation warning for call to My::Package1::bar()';
-
- ::warning_like{ My::Package2::foo() }
- qr/^foo is deprecated at t.basic\.t line \d+/,
- 'deprecation warning for call to My::Package2::foo()';
-
- ::warning_like{ My::Package1::baz() }
- qr/^baz is deprecated at t.basic\.t line \d+/,
- 'deprecation warning for call to My::Package2::foo()';
-}
-
-{
- package My::Baz;
-
- Dep->import( -api_version => '0.8' );
-
- ::warning_is{ My::Package2::foo() }
- q{},
- 'no warning when calling My::Package2::foo()';
+ ::stderr_like{ My::Package2::foo() }
+ qr/^foo is deprecated at t.basic\.t line \d+\s+My::Baz/,
+ 'deprecation warning for call to My::Package2::foo() and mentions My::Baz but not My::Package[12]';
+
+ ::stderr_is{ My::Package2::foo() }
+ q{},
+ 'no deprecation warning for second call to My::Package2::foo()';
+
+ ::stderr_is{ My::Package1::foo() }
+ q{},
+ 'no deprecation warning for call to My::Package1::foo()';
+
+ ::stderr_like{ My::Package2::bar() }
+ qr/^bar is deprecated at t.basic\.t line \d+\s+My::Baz/,
+ 'deprecation warning for call to My::Package2::foo() and mentions My::Baz but not My::Package[12]';
+
+ ::stderr_is{ My::Package2::bar() }
+ q{},
+ 'no deprecation warning for second call to My::Package2::bar()';
+}
+
+{
+ package My::Quux;
+
+ ::stderr_like{ My::Package1::foo() }
+ qr/^foo is deprecated at t.basic\.t line \d+\s+My::Quux/,
+ 'deprecation warning for call to My::Package1::foo() and mentions My::Quux but not My::Package[12]';
+
+ ::stderr_is{ My::Package1::foo() }
+ q{},
+ 'no deprecation warning for second call to My::Package1::foo()';
}
done_testing();
More information about the Pkg-perl-cvs-commits
mailing list