X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F000-recipes%2F001_point.t;h=23d5e8f15a5627449d3cc0cf3e11bbb1f420f309;hp=23f15d5df764fbfbcf5f09a141ac4e5a7cca2429;hb=8632b6fe69bd4417ad67fbcbbca617ad4fd54ccb;hpb=1e7a7baa941314cdbf9ba898e7885367a39b6a76

diff --git a/t/000-recipes/001_point.t b/t/000-recipes/001_point.t
index 23f15d5..23d5e8f 100644
--- a/t/000-recipes/001_point.t
+++ b/t/000-recipes/001_point.t
@@ -33,6 +33,7 @@ BEGIN {
 	    $self->y(0);    
 	}
 	
+    __PACKAGE__->meta->make_immutable();
 }{	
 	package Point3D;
 	use Mouse;
@@ -46,6 +47,7 @@ BEGIN {
 	    $self->{z} = 0;
 	};
 	
+    __PACKAGE__->meta->make_immutable();
 }
 
 my $point = Point->new(x => 1, y => 2);	
@@ -139,13 +141,13 @@ is_deeply(
 my @Point_methods = qw(meta new x y clear);
 my @Point_attrs   = ('x', 'y');
 
-SKIP: {
-    skip "Mouse has no method introspection", 2 + @Point_methods;
+is_deeply(
+    [ sort @Point_methods                 ],
+    [ sort Point->meta->get_method_list() ],
+    '... we match the method list for Point');
 
-    is_deeply(
-        [ sort @Point_methods                 ],
-        [ sort Point->meta->get_method_list() ],
-        '... we match the method list for Point');
+SKIP: {
+    skip "Mouse has no method introspection", 1 + @Point_methods;
         
     is_deeply(
         [ sort @Point_attrs                      ],