Tidy code and remove unneeded module loads
[gitmo/Moose.git] / t / 060_compat / 002_moose_respects_base.t
index e146561..df23b74 100644 (file)
@@ -3,18 +3,16 @@
 use strict;
 use warnings;
 
-use Test::More tests => 6;
-use Test::Exception;
-
+use Test::More;
 
 
 =pod
 
-This test demonstrates that Moose will respect 
-a previously set @ISA using use base, and not 
-try to add Moose::Object to it. 
+This test demonstrates that Moose will respect
+a previously set @ISA using use base, and not
+try to add Moose::Object to it.
 
-However, this is extremely order sensitive as 
+However, this is extremely order sensitive as
 this test also demonstrates.
 
 =cut
@@ -23,18 +21,18 @@ this test also demonstrates.
     package Foo;
     use strict;
     use warnings;
-    
+
     sub foo { 'Foo::foo' }
-    
-    package Bar;    
+
+    package Bar;
     use base 'Foo';
     use Moose;
-    
-    sub new { (shift)->meta->new_object(@_) }    
-    
+
+    sub new { (shift)->meta->new_object(@_) }
+
     package Baz;
-    use Moose;    
-    use base 'Foo'; 
+    use Moose;
+    use base 'Foo';
 }
 
 my $bar = Bar->new;
@@ -47,3 +45,4 @@ isa_ok($baz, 'Baz');
 isa_ok($baz, 'Foo');
 isa_ok($baz, 'Moose::Object');
 
+done_testing;