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=0d1b9a965bf9fb9cb79376524faa25f7a42a53df;hp=3a8bd33d8f5387242226455cf276f3411e974ee0;hb=43e6a50b260b096a34b0c46da87296bd220c4184;hpb=7af701163148f7c6f277796b309313b6c448ff54

diff --git a/t/000-recipes/001_point.t b/t/000-recipes/001_point.t
index 3a8bd33..0d1b9a9 100644
--- a/t/000-recipes/001_point.t
+++ b/t/000-recipes/001_point.t
@@ -3,15 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More;
-BEGIN {
-    if (eval "require Class::Method::Modifiers; 1") {
-        plan tests => 57;
-    }
-    else {
-        plan skip_all => "Class::Method::Modifiers required for this test";
-    }
-}
+use Test::More tests => 59;
 
 use Mouse::Util;
 use Test::Exception;
@@ -36,7 +28,7 @@ use Test::Exception;
 	
 	extends 'Point';
 	
-	has 'z' => (isa => 'Int');
+	has 'z' => (isa => 'Int', is => 'bare');
 	
 	after 'clear' => sub {
 	    my $self = shift;
@@ -134,7 +126,7 @@ is_deeply(
 	[ 'Mouse::Object' ],
 	'... Point got the automagic base class');
 
-my @Point_methods = qw(meta new x y clear);
+my @Point_methods = qw(meta new x y clear DESTROY);
 my @Point_attrs   = ('x', 'y');
 
 is_deeply(
@@ -174,7 +166,7 @@ is_deeply(
 	[ 'Point' ],
 	'... Point3D gets the parent given to it');
 
-my @Point3D_methods = qw(new meta clear);
+my @Point3D_methods = qw(new meta clear DESTROY);
 my @Point3D_attrs   = ('z');
 
 SKIP: {