changelog

[gitmo/Class-MOP.git] / t / 300_random_eval_bug.t

diff --git a/t/300_random_eval_bug.t b/t/300_random_eval_bug.t
index 112ae87..1bf1cca 100644 (file)
--- a/t/300_random_eval_bug.t
+++ b/t/300_random_eval_bug.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 1;
+use Test::More;
 
 use Class::MOP;
 
@@ -22,26 +22,29 @@ Moral of the story:
     use strict;
     use warnings;
     use metaclass;
-    
+
     sub new {
         my ($class) = @_;
         return bless {} => $class;
-    }  
-    
+    }
+
     sub employees {
         die "This didnt work";
     }
-    
+
     sub DESTROY {
-       my $self = shift;
-       foreach my $method ($self->meta->find_all_methods_by_name('DEMOLISH')) {
-               $method->{code}->($self);
-       }        
+        my $self = shift;
+        foreach
+            my $method ( $self->meta->find_all_methods_by_name('DEMOLISH') ) {
+            $method->{code}->($self);
+        }
     }
 }
 
-eval {        
-    my $c = Company->new();    
+eval {
+    my $c = Company->new();
     $c->employees();
-};  
-ok($@, '... we die correctly with bad args');
+};
+ok( $@, '... we die correctly with bad args' );
+
+done_testing;