X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F060_compat%2F001_module_refresh_compat.t;h=7ba140705c29ff7580955195b076044a976a2782;hb=a28e50e44945358d15eb19e4688573741a319fe0;hp=ab139a0ba0f27b6c7a13f0e18042f1c46e8bbc6f;hpb=e59a5c292a333cac504b65ebd4bba20b5e98d796;p=gitmo%2FMoose.git

diff --git a/t/060_compat/001_module_refresh_compat.t b/t/060_compat/001_module_refresh_compat.t
index ab139a0..7ba1407 100644
--- a/t/060_compat/001_module_refresh_compat.t
+++ b/t/060_compat/001_module_refresh_compat.t
@@ -10,26 +10,25 @@ use Test::Exception;
 
 BEGIN {
     eval "use Module::Refresh;";
-    plan skip_all => "Module::Refresh is required for this test" if $@;        
-    plan tests => 23;    
+    plan skip_all => "Module::Refresh is required for this test" if $@;
 }
 
 =pod
 
 First lets test some of our simple example modules ...
 
-=cut 
+=cut
 
 my @modules = qw[Foo Bar MyMooseA MyMooseB MyMooseObject];
 
 do {
     use_ok($_);
-    
+
     is($_->meta->name, $_, '... initialized the meta correctly');
-    
+
     lives_ok {
         Module::Refresh->new->refresh_module($_ . '.pm')
-    } '... successfully refreshed ' . $_;    
+    } '... successfully refreshed ' . $_;
 } foreach @modules;
 
 =pod
@@ -57,7 +56,7 @@ has 'foo' => (is => 'rw', isa => 'Int');
 |;
 
 {
-    open FILE, ">", $test_module_file 
+    open FILE, ">", $test_module_file
         || die "Could not open $test_module_file because $!";
     print FILE $test_module_source_1;
     close FILE;
@@ -69,7 +68,7 @@ ok(TestBaz->meta->has_attribute('foo'), '... it has the foo attribute as well');
 ok(!TestBaz->isa('Foo'), '... TestBaz is not a Foo');
 
 {
-    open FILE, ">", $test_module_file 
+    open FILE, ">", $test_module_file
         || die "Could not open $test_module_file because $!";
     print FILE $test_module_source_2;
     close FILE;
@@ -85,7 +84,4 @@ ok(TestBaz->isa('Foo'), '... TestBaz is a Foo');
 
 unlink $test_module_file;
 
-
-
-
-
+done_testing;