clean up ::Destructor

[gitmo/Moose.git] / t / 100_bugs / 004_subclass_use_base_bug.t

diff --git a/t/100_bugs/004_subclass_use_base_bug.t b/t/100_bugs/004_subclass_use_base_bug.t
index 689cc21..3115307 100644 (file)
--- a/t/100_bugs/004_subclass_use_base_bug.t
+++ b/t/100_bugs/004_subclass_use_base_bug.t
@@ -3,28 +3,28 @@
 use strict;
 use warnings;
 
-use Test::More tests => 2;
-
-
+use Test::More;
 
 =pod
 
-This just makes sure that the Bar gets 
+This just makes sure that the Bar gets
 a metaclass initialized for it correctly.
 
 =cut
 
 {
-    package Foo; 
-    use Moose; 
+    package Foo;
+    use Moose;
 
-    package Bar; 
+    package Bar;
     use strict;
     use warnings;
-        
-    use base 'Foo'; 
+
+    use base 'Foo';
 }
 
 my $bar = Bar->new;
 isa_ok($bar, 'Bar');
-isa_ok($bar, 'Foo');
\ No newline at end of file
+isa_ok($bar, 'Foo');
+
+done_testing;