X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F050_metaclasses%2F004_moose_for_meta.t;h=c8d187fc3a952c782d149d276206c20a0e912281;hb=d1c8ece1746518ea738c27bd1d7170e04246e543;hp=d355dbc7e38586d94ddab9f7e22cc9e16bcb02ad;hpb=7ff5653479c2bfc0794635f7fbade9bfe7bb2381;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 d355dbc..c8d187f 100644
--- a/t/050_metaclasses/004_moose_for_meta.t
+++ b/t/050_metaclasses/004_moose_for_meta.t
@@ -3,9 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 16;
-use Test::Exception;
-
+use Test::More;
 
 
 =pod
@@ -18,9 +16,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) = @_;
@@ -36,23 +34,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);
-    };    
+    };
 }
 
 {
@@ -77,3 +75,4 @@ is_deeply(
     ok($attr->has_accessor, '... the attribute does have an accessor (as expected)');
 }
 
+done_testing;