Don't rely on qw() providing PAREN tokens

[gitmo/Moose.git] / t / 050_metaclasses / 004_moose_for_meta.t

diff --git a/t/050_metaclasses/004_moose_for_meta.t b/t/050_metaclasses/004_moose_for_meta.t
index d355dbc..bd415ee 100644 (file)
--- a/t/050_metaclasses/004_moose_for_meta.t
+++ b/t/050_metaclasses/004_moose_for_meta.t
@@ -3,11 +3,10 @@
 use strict;
 use warnings;
 
-use Test::More tests => 16;
+use Test::More;
 use Test::Exception;
 
 
-
 =pod
 
 This test demonstrates the ability to extend
@@ -18,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) = @_;
@@ -36,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);
-    };    
+    };
 }
 
 {
@@ -77,3 +76,4 @@ is_deeply(
     ok($attr->has_accessor, '... the attribute does have an accessor (as expected)');
 }
 
+done_testing;