Make sure that whenever we don't inline, we warn, and add tests.

[gitmo/Moose.git] / t / 300_immutable / 002_apply_roles_to_immutable.t

diff --git a/t/300_immutable/002_apply_roles_to_immutable.t b/t/300_immutable/002_apply_roles_to_immutable.t
index cb86ed0..e373311 100644 (file)
--- a/t/300_immutable/002_apply_roles_to_immutable.t
+++ b/t/300_immutable/002_apply_roles_to_immutable.t
@@ -3,12 +3,10 @@
 use strict;
 use warnings;
 
-use Test::More no_plan => 1;
+use Test::More tests => 4;
 use Test::Exception;
 
-BEGIN {
-    use_ok('Moose');
-}
+
 
 {
     package My::Role;
@@ -26,7 +24,7 @@ BEGIN {
     
     sub baz { 'Foo::baz' }
     
-       make_immutable(debug => 0);
+       __PACKAGE__->meta->make_immutable(debug => 0);
 }
 
 my $foo = Foo->new;