[Moose-commits] r7724 - in MooseX-Role-Parameterized/trunk: . t

[phaylon at code2.0beta.co.uk]

Author: phaylon
Date: 2009-02-18 17:03:38 -0800 (Wed, 18 Feb 2009)
New Revision: 7724

Modified:
   MooseX-Role-Parameterized/trunk/dist.ini
   MooseX-Role-Parameterized/trunk/t/150-composite-role-application.t
Log:
added Test::Exception prereq, replaced eval's in tests

Modified: MooseX-Role-Parameterized/trunk/dist.ini
===================================================================
--- MooseX-Role-Parameterized/trunk/dist.ini	2009-02-19 00:55:39 UTC (rev 7723)
+++ MooseX-Role-Parameterized/trunk/dist.ini	2009-02-19 01:03:38 UTC (rev 7724)
@@ -8,4 +8,5 @@
 
 [Prereq]
 Moose = 0.64
+Test::Exception = 0.27
 

Modified: MooseX-Role-Parameterized/trunk/t/150-composite-role-application.t
===================================================================
--- MooseX-Role-Parameterized/trunk/t/150-composite-role-application.t	2009-02-19 00:55:39 UTC (rev 7723)
+++ MooseX-Role-Parameterized/trunk/t/150-composite-role-application.t	2009-02-19 01:03:38 UTC (rev 7724)
@@ -3,6 +3,7 @@
 use warnings;
 
 use Test::More tests => 9;
+use Test::Exception;
 
 do {
     package MyCompositeRoleA;
@@ -48,12 +49,10 @@
          MyCompositeRoleB => { accessor  => 'bar' };
 };
 
-local $@;
-eval {
+lives_ok {
     ok(MyDoubleConsumer->can('foo'), 'first role in composite applied successfully');
     ok(MyDoubleConsumer->can('bar'), 'second role in composite applied successfully');
-}; 
-ok !$@, 'testing composite roles lived';
+} 'testing composite roles lived';
 
 do {
     package MyExtendingRole;
@@ -82,12 +81,10 @@
          MyExtendingRole  => { foo => 23 };
 };
 
-local $@;
-eval {
+lives_ok {
     ok(MyExtendedConsumer->can('bar'), 'role composed through other role applied successfully');
     is(MyExtendedConsumer->new->foo, 23, 'role composing other role applied successfully');
-};
-ok !$@, 'testing role through application through other role lived';
+} 'testing role through application through other role lived';
 
 do {
     package MyRoleProxy;
@@ -117,10 +114,8 @@
     );
 };
 
-local $@;
-eval {
+lives_ok {
     ok(MyProxyConsumer->can('baz'), 'proxied role got applied successfully');
     ok(MyProxyConsumer->can('qux'), 'other role besides proxied one got applied successfully');
-};
-ok !$@, 'testing proxied roles lived';
+} 'testing proxied roles lived';