Convert all tests to done_testing.
[gitmo/Class-MOP.git] / t / 001_basic.t
index 1e9fca0..f45712d 100644 (file)
@@ -1,20 +1,20 @@
 use strict;
 use warnings;
 
-use Test::More tests => 23;
+use Test::More;
 use Test::Exception;
 
 use Class::MOP;
 use Class::MOP::Class;
 
-{   
+{
     package Foo;
     use metaclass;
     our $VERSION = '0.01';
-    
+
     package Bar;
     our @ISA = ('Foo');
-    
+
     our $AUTHORITY = 'cpan:JRANDOM';
 }
 
@@ -44,15 +44,15 @@ $Foo->superclasses('UNIVERSAL');
 is_deeply([$Foo->superclasses], ['UNIVERSAL'], '... Foo->superclasses == (UNIVERSAL) now');
 
 is_deeply(
-    [ $Foo->class_precedence_list ], 
-    [ 'Foo', 'UNIVERSAL' ], 
+    [ $Foo->class_precedence_list ],
+    [ 'Foo', 'UNIVERSAL' ],
     '... Foo->class_precedence_list == (Foo, UNIVERSAL)');
 
 is_deeply(
-    [ $Bar->class_precedence_list ], 
-    [ 'Bar', 'Foo', 'UNIVERSAL' ], 
+    [ $Bar->class_precedence_list ],
+    [ 'Bar', 'Foo', 'UNIVERSAL' ],
     '... Bar->class_precedence_list == (Bar, Foo, UNIVERSAL)');
-    
+
 # create a class using Class::MOP::Class ...
 
 my $Baz = Class::MOP::Class->create(
@@ -73,7 +73,8 @@ is($Baz->identifier, 'Baz-0.10-cpan:YOMAMA', '... Baz->identifier == Baz-0.10-cp
 is_deeply([$Baz->superclasses], ['Bar'], '... Baz->superclasses == (Bar)');
 
 is_deeply(
-    [ $Baz->class_precedence_list ], 
-    [ 'Baz', 'Bar', 'Foo', 'UNIVERSAL' ], 
+    [ $Baz->class_precedence_list ],
+    [ 'Baz', 'Bar', 'Foo', 'UNIVERSAL' ],
     '... Baz->class_precedence_list == (Baz, Bar, Foo, UNIVERSAL)');
 
+done_testing;