r65414 - in /trunk/libmoosex-role-parameterized-perl: ./ debian/ lib/MooseX/Role/ lib/MooseX/Role/Parameterized/ lib/MooseX/Role/Parameterized/Meta/ lib/MooseX/Role/Parameterized/Meta/Role/ lib/MooseX/Role/Parameterized/Meta/Trait/ t/
carnil at users.alioth.debian.org
carnil at users.alioth.debian.org
Tue Nov 30 12:58:03 UTC 2010
Author: carnil
Date: Tue Nov 30 12:57:56 2010
New Revision: 65414
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=65414
Log:
* New upstream release
* debian/control: Change Build-Depends-Indep on libtest-exception-perl
(>= 0.27) to libtest-fatal-perl as Test::Fatal is used now in the
test suite.
Modified:
trunk/libmoosex-role-parameterized-perl/Changes
trunk/libmoosex-role-parameterized-perl/META.yml
trunk/libmoosex-role-parameterized-perl/Makefile.PL
trunk/libmoosex-role-parameterized-perl/debian/changelog
trunk/libmoosex-role-parameterized-perl/debian/control
trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized.pm
trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Parameter.pm
trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm
trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Role/Parameterized.pm
trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Trait/Parameterized.pm
trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Parameters.pm
trunk/libmoosex-role-parameterized-perl/t/001-parameters.t
trunk/libmoosex-role-parameterized-perl/t/002-role-block.t
trunk/libmoosex-role-parameterized-perl/t/003-apply.t
trunk/libmoosex-role-parameterized-perl/t/006-requires.t
trunk/libmoosex-role-parameterized-perl/t/007-excludes.t
trunk/libmoosex-role-parameterized-perl/t/100-erroneous-keywords.t
trunk/libmoosex-role-parameterized-perl/t/101-alias-excludes.t
trunk/libmoosex-role-parameterized-perl/t/102-nested.t
trunk/libmoosex-role-parameterized-perl/t/150-composite-role-application.t
Modified: trunk/libmoosex-role-parameterized-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/Changes?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/Changes (original)
+++ trunk/libmoosex-role-parameterized-perl/Changes Tue Nov 30 12:57:56 2010
@@ -1,4 +1,9 @@
Changes for MooseX-Role-Parameterized
+
+0.22 November 26, 2010
+ * The test suite now uses Test::Fatal instead of Test::Exception (Karen
+ Etheridge).
+ * Fix Test::More dependency (reported by Father Chrysostomos)
0.21 November 15, 2010
* "package" arg can now tell generate_role to use a specific package (rjbs)
Modified: trunk/libmoosex-role-parameterized-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/META.yml?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/META.yml (original)
+++ trunk/libmoosex-role-parameterized-perl/META.yml Tue Nov 30 12:57:56 2010
@@ -4,9 +4,9 @@
- 'Shawn M Moore, C<sartak at gmail.com>'
build_requires:
ExtUtils::MakeMaker: 6.42
- Test::Exception: 0.27
+ Test::Fatal: 0
Test::Moose: 0
- Test::More: 0.88
+ Test::More: 0.96
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
@@ -27,4 +27,4 @@
homepage: http://github.com/sartak/MooseX-Role-Parameterized/tree
license: http://dev.perl.org/licenses/
repository: git://github.com/sartak/MooseX-Role-Parameterized.git
-version: 0.21
+version: 0.22
Modified: trunk/libmoosex-role-parameterized-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/Makefile.PL?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/Makefile.PL (original)
+++ trunk/libmoosex-role-parameterized-perl/Makefile.PL Tue Nov 30 12:57:56 2010
@@ -1,5 +1,6 @@
# Load the Module::Install bundled in ./inc/
use inc::Module::Install;
+use Module::Install::GithubMeta;
# Define metadata
name 'MooseX-Role-Parameterized';
@@ -8,8 +9,8 @@
requires 'Moose' => '0.78';
test_requires 'Test::Moose';
-test_requires 'Test::More' => '0.88';
-test_requires 'Test::Exception' => '0.27';
+test_requires 'Test::More' => '0.96';
+test_requires 'Test::Fatal';
WriteAll;
Modified: trunk/libmoosex-role-parameterized-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/debian/changelog?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/debian/changelog (original)
+++ trunk/libmoosex-role-parameterized-perl/debian/changelog Tue Nov 30 12:57:56 2010
@@ -1,3 +1,12 @@
+libmoosex-role-parameterized-perl (0.22-1) unstable; urgency=low
+
+ * New upstream release
+ * debian/control: Change Build-Depends-Indep on libtest-exception-perl
+ (>= 0.27) to libtest-fatal-perl as Test::Fatal is used now in the
+ test suite.
+
+ -- Salvatore Bonaccorso <carnil at debian.org> Tue, 30 Nov 2010 13:57:27 +0100
+
libmoosex-role-parameterized-perl (0.21-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libmoosex-role-parameterized-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/debian/control?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/debian/control (original)
+++ trunk/libmoosex-role-parameterized-perl/debian/control Tue Nov 30 12:57:56 2010
@@ -3,7 +3,7 @@
Priority: optional
Build-Depends: debhelper (>= 7)
Build-Depends-Indep: perl, libtest-simple-perl (>= 0.96),
- libtest-exception-perl (>= 0.27), libmoose-perl (>= 0.78)
+ libtest-fatal-perl, libmoose-perl (>= 0.78)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Salvatore Bonaccorso <carnil at debian.org>,
Brian Cassidy <brian.cassidy at gmail.com>, Jonathan Yu <jawnsy at cpan.org>,
Modified: trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized.pm?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized.pm (original)
+++ trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized.pm Tue Nov 30 12:57:56 2010
@@ -7,7 +7,7 @@
use MooseX::Role::Parameterized::Meta::Role::Parameterizable;
-our $VERSION = '0.21';
+our $VERSION = '0.22';
our $CURRENT_METACLASS;
Moose::Exporter->setup_import_methods(
Modified: trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Parameter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Parameter.pm?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Parameter.pm (original)
+++ trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Parameter.pm Tue Nov 30 12:57:56 2010
@@ -2,7 +2,7 @@
use Moose;
extends 'Moose::Meta::Attribute';
-our $VERSION = '0.19';
+our $VERSION = '0.22';
# This doesn't actually do anything because _process_options does not consult
# the default value of "is". hrm.
Modified: trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm (original)
+++ trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm Tue Nov 30 12:57:56 2010
@@ -2,7 +2,7 @@
use Moose;
extends 'Moose::Meta::Role';
-our $VERSION = '0.19';
+our $VERSION = '0.22';
use MooseX::Role::Parameterized::Meta::Role::Parameterized;
use MooseX::Role::Parameterized::Meta::Parameter;
Modified: trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Role/Parameterized.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Role/Parameterized.pm?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Role/Parameterized.pm (original)
+++ trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Role/Parameterized.pm Tue Nov 30 12:57:56 2010
@@ -3,7 +3,7 @@
extends 'Moose::Meta::Role';
with 'MooseX::Role::Parameterized::Meta::Trait::Parameterized';
-our $VERSION = '0.19';
+our $VERSION = '0.22';
__PACKAGE__->meta->make_immutable;
no Moose;
Modified: trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Trait/Parameterized.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Trait/Parameterized.pm?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Trait/Parameterized.pm (original)
+++ trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Meta/Trait/Parameterized.pm Tue Nov 30 12:57:56 2010
@@ -1,7 +1,7 @@
package MooseX::Role::Parameterized::Meta::Trait::Parameterized;
use Moose::Role;
-our $VERSION = '0.19';
+our $VERSION = '0.22';
use MooseX::Role::Parameterized::Parameters;
Modified: trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Parameters.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Parameters.pm?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Parameters.pm (original)
+++ trunk/libmoosex-role-parameterized-perl/lib/MooseX/Role/Parameterized/Parameters.pm Tue Nov 30 12:57:56 2010
@@ -1,7 +1,7 @@
package MooseX::Role::Parameterized::Parameters;
use Moose;
-our $VERSION = '0.19';
+our $VERSION = '0.22';
__PACKAGE__->meta->make_immutable;
no Moose;
Modified: trunk/libmoosex-role-parameterized-perl/t/001-parameters.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/t/001-parameters.t?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/t/001-parameters.t (original)
+++ trunk/libmoosex-role-parameterized-perl/t/001-parameters.t Tue Nov 30 12:57:56 2010
@@ -2,7 +2,7 @@
use strict;
use warnings;
use Test::More tests => 16;
-use Test::Exception;
+use Test::Fatal;
use MooseX::Role::Parameterized::Parameters;
@@ -38,9 +38,9 @@
ok(MyRole::LengthParameter->meta->has_parameter('length'), 'has_parameter');
ok(!MyRole::LengthParameter->meta->has_parameter('kjhef'), 'has_parameter');
-throws_ok {
+like( exception {
MyRole::LengthParameter->meta->construct_parameters;
-} qr/^Attribute \(length\) is required/;
+}, qr/^Attribute \(length\) is required/);
$p = MyRole::LengthParameter->meta->construct_parameters(
length => 5,
@@ -48,9 +48,9 @@
is($p->length, 5, "correct length");
-throws_ok {
+like( exception {
$p->length(10);
-} qr/^Cannot assign a value to a read-only accessor/;
+}, qr/^Cannot assign a value to a read-only accessor/);
do {
package MyRole::LengthParameter;
Modified: trunk/libmoosex-role-parameterized-perl/t/002-role-block.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/t/002-role-block.t?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/t/002-role-block.t (original)
+++ trunk/libmoosex-role-parameterized-perl/t/002-role-block.t Tue Nov 30 12:57:56 2010
@@ -1,8 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More 0.96 tests => 3;
-use Test::Exception;
+use Test::More tests => 3;
my ($parameters, %args);
Modified: trunk/libmoosex-role-parameterized-perl/t/003-apply.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/t/003-apply.t?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/t/003-apply.t (original)
+++ trunk/libmoosex-role-parameterized-perl/t/003-apply.t Tue Nov 30 12:57:56 2010
@@ -2,7 +2,7 @@
use strict;
use warnings;
use Test::More tests => 22;
-use Test::Exception;
+use Test::Fatal;
my %args;
do {
@@ -122,21 +122,21 @@
can_ok('MyClass::Three' => qw(freeze_Dumper freeze_Storable thaw_Dumper thaw_Storable store dump));
is($args{consumer}, MyClass::Three->meta, 'Role block receives consumer');
-throws_ok {
+like( exception {
package MyClass::Error::Required;
use Moose;
with 'MyRole::Storage';
-} qr/^Attribute \(format\) is required/;
+}, qr/^Attribute \(format\) is required/);
-throws_ok {
+like( exception {
package MyClass::Error::Invalid;
use Moose;
with 'MyRole::Storage' => {
format => 'YAML',
};
-} qr/^Attribute \(format\) does not pass the type constraint/;
+}, qr/^Attribute \(format\) does not pass the type constraint/);
-throws_ok {
+like( exception {
package MyRole::Sans::Block;
use MooseX::Role::Parameterized;
@@ -145,7 +145,7 @@
package MyClass::Error::BlocklessRole;
use Moose;
with 'MyRole::Sans::Block' => {};
-} qr/^\QA role generator is required to apply parameterized roles (did you forget the 'role { ... }' block in your parameterized role 'MyRole::Sans::Block'?)\E/;
+}, qr/^\QA role generator is required to apply parameterized roles (did you forget the 'role { ... }' block in your parameterized role 'MyRole::Sans::Block'?)\E/);
sub cant_ok {
local $Test::Builder::Level = $Test::Builder::Level + 1;
Modified: trunk/libmoosex-role-parameterized-perl/t/006-requires.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/t/006-requires.t?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/t/006-requires.t (original)
+++ trunk/libmoosex-role-parameterized-perl/t/006-requires.t Tue Nov 30 12:57:56 2010
@@ -2,7 +2,7 @@
use strict;
use warnings;
use Test::More tests => 5;
-use Test::Exception;
+use Test::Fatal;
do {
package MyRole::Requires;
@@ -32,40 +32,40 @@
} @_
}
-throws_ok {
+like( exception {
Moose::Meta::Class->create_anon_class(
roles => [ requires_names('alpha') ],
);
-} qr/'Moose::Meta::Role::__ANON__::SERIAL::\d+' requires the method 'alpha' to be implemented by 'Class::MOP::Class::__ANON__::SERIAL::\d+'/;
+}, qr/'Moose::Meta::Role::__ANON__::SERIAL::\d+' requires the method 'alpha' to be implemented by 'Class::MOP::Class::__ANON__::SERIAL::\d+'/);
-lives_ok {
+is (exception {
Moose::Meta::Class->create_anon_class(
methods => {
alpha => sub {},
},
roles => [ requires_names('alpha') ],
);
-};
+}, undef);
-throws_ok {
+like( exception {
Moose::Meta::Class->create_anon_class(
methods => {
alpha => sub {},
},
roles => [ requires_names('alpha', 'beta') ],
);
-} qr/'Moose::Meta::Role::__ANON__::SERIAL::\d+\|Moose::Meta::Role::__ANON__::SERIAL::\d+' requires the method 'beta' to be implemented by 'Class::MOP::Class::__ANON__::SERIAL::\d+'/;
+}, qr/'Moose::Meta::Role::__ANON__::SERIAL::\d+\|Moose::Meta::Role::__ANON__::SERIAL::\d+' requires the method 'beta' to be implemented by 'Class::MOP::Class::__ANON__::SERIAL::\d+'/);
-throws_ok {
+like( exception {
Moose::Meta::Class->create_anon_class(
methods => {
beta => sub {},
},
roles => [ requires_names('alpha', 'beta') ],
);
-} qr/'Moose::Meta::Role::__ANON__::SERIAL::\d+\|Moose::Meta::Role::__ANON__::SERIAL::\d+' requires the method 'alpha' to be implemented by 'Class::MOP::Class::__ANON__::SERIAL::\d+'/;
+}, qr/'Moose::Meta::Role::__ANON__::SERIAL::\d+\|Moose::Meta::Role::__ANON__::SERIAL::\d+' requires the method 'alpha' to be implemented by 'Class::MOP::Class::__ANON__::SERIAL::\d+'/);
-lives_ok {
+is (exception {
Moose::Meta::Class->create_anon_class(
methods => {
alpha => sub {},
@@ -73,5 +73,5 @@
},
roles => [ requires_names('alpha', 'beta') ],
);
-};
+}, undef);
Modified: trunk/libmoosex-role-parameterized-perl/t/007-excludes.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/t/007-excludes.t?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/t/007-excludes.t (original)
+++ trunk/libmoosex-role-parameterized-perl/t/007-excludes.t Tue Nov 30 12:57:56 2010
@@ -2,7 +2,7 @@
use strict;
use warnings;
use Test::More tests => 3;
-use Test::Exception;
+use Test::Fatal;
do {
package MyRole::Excluder;
@@ -35,21 +35,21 @@
} @_
}
-lives_ok {
+is (exception {
Moose::Meta::Class->create_anon_class(
roles => [ excludes_roles('Role::A') ],
);
-};
+}, undef);
-throws_ok {
+like( exception {
Moose::Meta::Class->create_anon_class(
roles => [ 'Role::A', excludes_roles('Role::A') ],
);
-} qr/^Conflict detected: Role Moose::Meta::Role::__ANON__::SERIAL::\d+ excludes role 'Role::A'/;
+}, qr/^Conflict detected: Role Moose::Meta::Role::__ANON__::SERIAL::\d+ excludes role 'Role::A'/);
-lives_ok {
+is (exception {
Moose::Meta::Class->create_anon_class(
roles => [ 'Role::B', excludes_roles('Role::A') ],
);
-};
+}, undef);
Modified: trunk/libmoosex-role-parameterized-perl/t/100-erroneous-keywords.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/t/100-erroneous-keywords.t?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/t/100-erroneous-keywords.t (original)
+++ trunk/libmoosex-role-parameterized-perl/t/100-erroneous-keywords.t Tue Nov 30 12:57:56 2010
@@ -2,30 +2,29 @@
use strict;
use warnings;
use Test::More tests => 5;
-
-use Test::Exception;
+use Test::Fatal;
do {
package MyRole::Storage;
use MooseX::Role::Parameterized;
- ::throws_ok {
+ ::like( ::exception {
parameter()
- } qr/^You must provide a name for the parameter/;
+ }, qr/^You must provide a name for the parameter/);
role {
- ::throws_ok {
+ ::like( ::exception {
extends 'MyRole::Parameterized';
- } qr/^Roles do not currently support 'extends'/;
- ::throws_ok {
+ }, qr/^Roles do not currently support 'extends'/);
+ ::like( ::exception {
inner()
- } qr/^Roles cannot support 'inner'/;
- ::throws_ok {
+ }, qr/^Roles cannot support 'inner'/);
+ ::like( ::exception {
augment()
- } qr/^Roles cannot support 'augment'/;
- ::throws_ok {
+ }, qr/^Roles cannot support 'augment'/);
+ ::like( ::exception {
parameter()
- } qr/^'parameter' may not be used inside of the role block/;
+ }, qr/^'parameter' may not be used inside of the role block/);
};
};
Modified: trunk/libmoosex-role-parameterized-perl/t/101-alias-excludes.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/t/101-alias-excludes.t?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/t/101-alias-excludes.t (original)
+++ trunk/libmoosex-role-parameterized-perl/t/101-alias-excludes.t Tue Nov 30 12:57:56 2010
@@ -2,35 +2,35 @@
use strict;
use warnings;
use Test::More tests => 4;
-use Test::Exception;
+use Test::Fatal;
do {
package MyRole;
use MooseX::Role::Parameterized;
- ::throws_ok {
+ ::like( ::exception {
parameter 'alias';
- } qr/^The parameter name \(alias\) is currently forbidden/;
+ }, qr/^The parameter name \(alias\) is currently forbidden/);
- ::throws_ok {
+ ::like( ::exception {
parameter 'excludes';
- } qr/^The parameter name \(excludes\) is currently forbidden/;
+ }, qr/^The parameter name \(excludes\) is currently forbidden/);
};
do {
package MyClass;
use MooseX::Role::Parameterized;
- ::throws_ok {
+ ::like( ::exception {
with MyRole => {
alias => 1,
};
- } qr/^The parameter name \(alias\) is currently forbidden/;
+ }, qr/^The parameter name \(alias\) is currently forbidden/);
- ::throws_ok {
+ ::like( ::exception {
with MyRole => {
excludes => 1,
};
- } qr/^The parameter name \(excludes\) is currently forbidden/;
+ }, qr/^The parameter name \(excludes\) is currently forbidden/);
};
Modified: trunk/libmoosex-role-parameterized-perl/t/102-nested.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/t/102-nested.t?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/t/102-nested.t (original)
+++ trunk/libmoosex-role-parameterized-perl/t/102-nested.t Tue Nov 30 12:57:56 2010
@@ -1,7 +1,7 @@
use strict;
use warnings;
use Test::More;
-use Test::Exception;
+use Test::Fatal;
use FindBin;
use lib "$FindBin::Bin/lib";
@@ -24,17 +24,17 @@
{
package Moo;
use Moose;
- ::lives_ok(sub {
+ ::is( ::exception {
with 'Foo';
- });
+ }, undef);
}
{
package se;
use Moose;
- ::lives_ok(sub {
+ ::is( ::exception {
with 'Bar';
- });
+ }, undef);
}
my $foo = Moo->meta->roles->[0];
Modified: trunk/libmoosex-role-parameterized-perl/t/150-composite-role-application.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-role-parameterized-perl/t/150-composite-role-application.t?rev=65414&op=diff
==============================================================================
--- trunk/libmoosex-role-parameterized-perl/t/150-composite-role-application.t (original)
+++ trunk/libmoosex-role-parameterized-perl/t/150-composite-role-application.t Tue Nov 30 12:57:56 2010
@@ -3,7 +3,6 @@
use warnings;
use Test::More tests => 7;
-use Test::Exception;
do {
package MyCompositeRoleA;
More information about the Pkg-perl-cvs-commits
mailing list