Convert all tests to done_testing.

[gitmo/Moose.git] / t / 050_metaclasses / 003_moose_w_metaclass.t

diff --git a/t/050_metaclasses/003_moose_w_metaclass.t b/t/050_metaclasses/003_moose_w_metaclass.t
index cdf3034..0749068 100644 (file)
--- a/t/050_metaclasses/003_moose_w_metaclass.t
+++ b/t/050_metaclasses/003_moose_w_metaclass.t
@@ -3,18 +3,17 @@
 use strict;
 use warnings;
 
-use Test::More tests => 4;
+use Test::More;
 use Test::Exception;
 
 
-
 =pod
 
-This test demonstrates that Moose will respect 
-a metaclass previously set with the metaclass 
-pragma. 
+This test demonstrates that Moose will respect
+a metaclass previously set with the metaclass
+pragma.
 
-It also checks an error condition where that 
+It also checks an error condition where that
 metaclass must be a Moose::Meta::Class subclass
 in order to work.
 
@@ -27,7 +26,7 @@ in order to work.
     use warnings;
 
     use base 'Moose::Meta::Class';
-    
+
     package Foo;
     use strict;
     use warnings;
@@ -41,16 +40,18 @@ isa_ok(Foo->meta, 'Foo::Meta');
     package Bar::Meta;
     use strict;
     use warnings;
-    
+
     use base 'Class::MOP::Class';
-    
+
     package Bar;
     use strict;
     use warnings;
     use metaclass 'Bar::Meta';
     eval 'use Moose;';
     ::ok($@, '... could not load moose without correct metaclass');
-    ::like($@, 
-        qr/^Bar already has a \&meta function\, but it does not return a Moose\:\:Meta\:\:Class/, 
+    ::like($@,
+        qr/^Bar already has a metaclass, but it does not inherit Moose::Meta::Class/,
         '... got the right error too');
 }
+
+done_testing;