[Moose-commits] r7375 - Moose/trunk/t/030_roles

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

Author: autarch
Date: 2009-01-22 14:58:37 -0800 (Thu, 22 Jan 2009)
New Revision: 7375

Modified:
   Moose/trunk/t/030_roles/003_apply_role.t
Log:
fix this test so it actually tests the right thing (though it really needs to look at the error message to do it properly

Modified: Moose/trunk/t/030_roles/003_apply_role.t
===================================================================
--- Moose/trunk/t/030_roles/003_apply_role.t	2009-01-22 22:44:04 UTC (rev 7374)
+++ Moose/trunk/t/030_roles/003_apply_role.t	2009-01-22 22:58:37 UTC (rev 7375)
@@ -36,8 +36,6 @@
 
     sub boo {'BarClass::boo'}
     sub foo {'BarClass::foo'}    # << the role overrides this ...
-
-    __PACKAGE__->meta->make_immutable( debug => 0 );
 }
 
 {
@@ -50,8 +48,6 @@
     sub blau {'FooClass::blau'}    # << the role wraps this ...
 
     sub goo {'FooClass::goo'}      # << overrides the one from the role ...
-
-    __PACKAGE__->meta->make_immutable( debug => 0 );
 }
 
 {
@@ -74,12 +70,12 @@
 '... does_role requires a role name';
 
 dies_ok {
-    $foo_class_meta->apply_role();
+    $foo_class_meta->add_role();
 }
 '... apply_role requires a role';
 
 dies_ok {
-    $foo_class_meta->apply_role( bless( {} => 'Fail' ) );
+    $foo_class_meta->add_role( bless( {} => 'Fail' ) );
 }
 '... apply_role requires a role';