convert all uses of Test::Exception to Test::Fatal.

[gitmo/Moose.git] / t / 060_compat / 002_moose_respects_base.t

diff --git a/t/060_compat/002_moose_respects_base.t b/t/060_compat/002_moose_respects_base.t
index c967c22..5933dd0 100644 (file)
--- 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;