X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F050_metaclasses%2F004_moose_for_meta.t;h=bd415eed28c5d44308817107e1a2ff069b4a82da;hb=ad3882b59692e4e4eab99f9b183c941e6f63d3bd;hp=dc966cd74aff9b31699598ff03313c3a5f9497d3;hpb=e59a5c292a333cac504b65ebd4bba20b5e98d796;p=gitmo%2FMoose.git

diff --git a/t/050_metaclasses/004_moose_for_meta.t b/t/050_metaclasses/004_moose_for_meta.t
index dc966cd..bd415ee 100644
--- a/t/050_metaclasses/004_moose_for_meta.t
+++ b/t/050_metaclasses/004_moose_for_meta.t
@@ -3,12 +3,9 @@
 use strict;
 use warnings;
 
-use Test::More tests => 17;
+use Test::More;
 use Test::Exception;
 
-BEGIN {
-    use_ok('Moose');           
-}
 
 =pod
 
@@ -20,9 +17,9 @@ Moose meta-level classes using Moose itself.
 {
     package My::Meta::Class;
     use Moose;
-    
+
     extends 'Moose::Meta::Class';
-    
+
     around 'create_anon_class' => sub {
         my $next = shift;
         my ($self, %options) = @_;
@@ -38,23 +35,23 @@ isa_ok($anon, 'Moose::Meta::Class');
 isa_ok($anon, 'Class::MOP::Class');
 
 is_deeply(
-    [ $anon->superclasses ], 
-    [ 'Moose::Object' ], 
+    [ $anon->superclasses ],
+    [ 'Moose::Object' ],
     '... got the default superclasses');
 
 {
     package My::Meta::Attribute::DefaultReadOnly;
     use Moose;
-    
+
     extends 'Moose::Meta::Attribute';
-    
+
     around 'new' => sub {
         my $next = shift;
         my ($self, $name, %options) = @_;
-        $options{is} = 'ro' 
+        $options{is} = 'ro'
             unless exists $options{is};
         $next->($self, $name, %options);
-    };    
+    };
 }
 
 {
@@ -79,3 +76,4 @@ is_deeply(
     ok($attr->has_accessor, '... the attribute does have an accessor (as expected)');
 }
 
+done_testing;