X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F060_compat%2F002_moose_respects_base.t;h=5933dd0110ed92d6c1a6577719e391bdf9632ce8;hb=be0ed15704fdad5f2d8517380a6f24687432c1dd;hp=c967c224d3538add67cb987647c4695330b9227e;hpb=e59a5c292a333cac504b65ebd4bba20b5e98d796;p=gitmo%2FMoose.git

diff --git a/t/060_compat/002_moose_respects_base.t b/t/060_compat/002_moose_respects_base.t
index c967c22..5933dd0 100644
--- a/t/060_compat/002_moose_respects_base.t
+++ b/t/060_compat/002_moose_respects_base.t
@@ -3,20 +3,17 @@
 use strict;
 use warnings;
 
-use Test::More tests => 7;
-use Test::Exception;
+use Test::More;
+use Test::Fatal;
 
-BEGIN {
-    use_ok('Moose');           
-}
 
 =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
@@ -25,18 +22,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;
@@ -49,3 +46,4 @@ isa_ok($baz, 'Baz');
 isa_ok($baz, 'Foo');
 isa_ok($baz, 'Moose::Object');
 
+done_testing;