X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_basic.t;h=f45712dd28a88237aa696d4e812334f79433a350;hb=86a4d8730cfe673db674c692f7703632b700c7c9;hp=1e9fca0867302a0521a49ce4951863044273fde4;hpb=6bb3669a84ccc4e5e984238258c4bcd0868fe137;p=gitmo%2FClass-MOP.git

diff --git a/t/001_basic.t b/t/001_basic.t
index 1e9fca0..f45712d 100644
--- a/t/001_basic.t
+++ b/t/001_basic.t
@@ -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;