r65412 - in /branches/upstream/libmoosex-role-parameterized-perl/current: ./ 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:55:32 UTC 2010


Author: carnil
Date: Tue Nov 30 12:55:06 2010
New Revision: 65412

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=65412
Log:
[svn-upgrade] new version libmoosex-role-parameterized-perl (0.22)

Modified:
    branches/upstream/libmoosex-role-parameterized-perl/current/Changes
    branches/upstream/libmoosex-role-parameterized-perl/current/META.yml
    branches/upstream/libmoosex-role-parameterized-perl/current/Makefile.PL
    branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized.pm
    branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Parameter.pm
    branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm
    branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Role/Parameterized.pm
    branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Trait/Parameterized.pm
    branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Parameters.pm
    branches/upstream/libmoosex-role-parameterized-perl/current/t/001-parameters.t
    branches/upstream/libmoosex-role-parameterized-perl/current/t/002-role-block.t
    branches/upstream/libmoosex-role-parameterized-perl/current/t/003-apply.t
    branches/upstream/libmoosex-role-parameterized-perl/current/t/006-requires.t
    branches/upstream/libmoosex-role-parameterized-perl/current/t/007-excludes.t
    branches/upstream/libmoosex-role-parameterized-perl/current/t/100-erroneous-keywords.t
    branches/upstream/libmoosex-role-parameterized-perl/current/t/101-alias-excludes.t
    branches/upstream/libmoosex-role-parameterized-perl/current/t/102-nested.t
    branches/upstream/libmoosex-role-parameterized-perl/current/t/150-composite-role-application.t

Modified: branches/upstream/libmoosex-role-parameterized-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-role-parameterized-perl/current/Changes?rev=65412&op=diff
==============================================================================
--- branches/upstream/libmoosex-role-parameterized-perl/current/Changes (original)
+++ branches/upstream/libmoosex-role-parameterized-perl/current/Changes Tue Nov 30 12:55:06 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: branches/upstream/libmoosex-role-parameterized-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-role-parameterized-perl/current/META.yml?rev=65412&op=diff
==============================================================================
--- branches/upstream/libmoosex-role-parameterized-perl/current/META.yml (original)
+++ branches/upstream/libmoosex-role-parameterized-perl/current/META.yml Tue Nov 30 12:55:06 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: branches/upstream/libmoosex-role-parameterized-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-role-parameterized-perl/current/Makefile.PL?rev=65412&op=diff
==============================================================================
--- branches/upstream/libmoosex-role-parameterized-perl/current/Makefile.PL (original)
+++ branches/upstream/libmoosex-role-parameterized-perl/current/Makefile.PL Tue Nov 30 12:55:06 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: branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized.pm?rev=65412&op=diff
==============================================================================
--- branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized.pm (original)
+++ branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized.pm Tue Nov 30 12:55:06 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: branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Parameter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Parameter.pm?rev=65412&op=diff
==============================================================================
--- branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Parameter.pm (original)
+++ branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Parameter.pm Tue Nov 30 12:55:06 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: branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm?rev=65412&op=diff
==============================================================================
--- branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm (original)
+++ branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm Tue Nov 30 12:55:06 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: branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Role/Parameterized.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Role/Parameterized.pm?rev=65412&op=diff
==============================================================================
--- branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Role/Parameterized.pm (original)
+++ branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Role/Parameterized.pm Tue Nov 30 12:55:06 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: branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Trait/Parameterized.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Trait/Parameterized.pm?rev=65412&op=diff
==============================================================================
--- branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Trait/Parameterized.pm (original)
+++ branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Meta/Trait/Parameterized.pm Tue Nov 30 12:55:06 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: branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Parameters.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Parameters.pm?rev=65412&op=diff
==============================================================================
--- branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Parameters.pm (original)
+++ branches/upstream/libmoosex-role-parameterized-perl/current/lib/MooseX/Role/Parameterized/Parameters.pm Tue Nov 30 12:55:06 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: branches/upstream/libmoosex-role-parameterized-perl/current/t/001-parameters.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-role-parameterized-perl/current/t/001-parameters.t?rev=65412&op=diff
==============================================================================
--- branches/upstream/libmoosex-role-parameterized-perl/current/t/001-parameters.t (original)
+++ branches/upstream/libmoosex-role-parameterized-perl/current/t/001-parameters.t Tue Nov 30 12:55:06 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: branches/upstream/libmoosex-role-parameterized-perl/current/t/002-role-block.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-role-parameterized-perl/current/t/002-role-block.t?rev=65412&op=diff
==============================================================================
--- branches/upstream/libmoosex-role-parameterized-perl/current/t/002-role-block.t (original)
+++ branches/upstream/libmoosex-role-parameterized-perl/current/t/002-role-block.t Tue Nov 30 12:55:06 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: branches/upstream/libmoosex-role-parameterized-perl/current/t/003-apply.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-role-parameterized-perl/current/t/003-apply.t?rev=65412&op=diff
==============================================================================
--- branches/upstream/libmoosex-role-parameterized-perl/current/t/003-apply.t (original)
+++ branches/upstream/libmoosex-role-parameterized-perl/current/t/003-apply.t Tue Nov 30 12:55:06 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: branches/upstream/libmoosex-role-parameterized-perl/current/t/006-requires.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-role-parameterized-perl/current/t/006-requires.t?rev=65412&op=diff
==============================================================================
--- branches/upstream/libmoosex-role-parameterized-perl/current/t/006-requires.t (original)
+++ branches/upstream/libmoosex-role-parameterized-perl/current/t/006-requires.t Tue Nov 30 12:55:06 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: branches/upstream/libmoosex-role-parameterized-perl/current/t/007-excludes.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-role-parameterized-perl/current/t/007-excludes.t?rev=65412&op=diff
==============================================================================
--- branches/upstream/libmoosex-role-parameterized-perl/current/t/007-excludes.t (original)
+++ branches/upstream/libmoosex-role-parameterized-perl/current/t/007-excludes.t Tue Nov 30 12:55:06 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: branches/upstream/libmoosex-role-parameterized-perl/current/t/100-erroneous-keywords.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-role-parameterized-perl/current/t/100-erroneous-keywords.t?rev=65412&op=diff
==============================================================================
--- branches/upstream/libmoosex-role-parameterized-perl/current/t/100-erroneous-keywords.t (original)
+++ branches/upstream/libmoosex-role-parameterized-perl/current/t/100-erroneous-keywords.t Tue Nov 30 12:55:06 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: branches/upstream/libmoosex-role-parameterized-perl/current/t/101-alias-excludes.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-role-parameterized-perl/current/t/101-alias-excludes.t?rev=65412&op=diff
==============================================================================
--- branches/upstream/libmoosex-role-parameterized-perl/current/t/101-alias-excludes.t (original)
+++ branches/upstream/libmoosex-role-parameterized-perl/current/t/101-alias-excludes.t Tue Nov 30 12:55:06 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: branches/upstream/libmoosex-role-parameterized-perl/current/t/102-nested.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-role-parameterized-perl/current/t/102-nested.t?rev=65412&op=diff
==============================================================================
--- branches/upstream/libmoosex-role-parameterized-perl/current/t/102-nested.t (original)
+++ branches/upstream/libmoosex-role-parameterized-perl/current/t/102-nested.t Tue Nov 30 12:55:06 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: branches/upstream/libmoosex-role-parameterized-perl/current/t/150-composite-role-application.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-role-parameterized-perl/current/t/150-composite-role-application.t?rev=65412&op=diff
==============================================================================
--- branches/upstream/libmoosex-role-parameterized-perl/current/t/150-composite-role-application.t (original)
+++ branches/upstream/libmoosex-role-parameterized-perl/current/t/150-composite-role-application.t Tue Nov 30 12:55:06 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