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

[gitmo/Moose.git] / t / 010_basics / 003_super_and_override.t

diff --git a/t/010_basics/003_super_and_override.t b/t/010_basics/003_super_and_override.t
index e04eea5..abb3f21 100644 (file)
--- a/t/010_basics/003_super_and_override.t
+++ b/t/010_basics/003_super_and_override.t
@@ -3,35 +3,32 @@
 use strict;
 use warnings;
 
-use Test::More tests => 17;
-use Test::Exception;
+use Test::More;
+use Test::Fatal;
 
-BEGIN {
-    use_ok('Moose');           
-}
 
 {
     package Foo;
     use Moose;
-    
+
     sub foo { 'Foo::foo' }
-    sub bar { 'Foo::bar' }    
+    sub bar { 'Foo::bar' }
     sub baz { 'Foo::baz' }
-    
+
     package Bar;
     use Moose;
-    
+
     extends 'Foo';
-    
-    override bar => sub { 'Bar::bar -> ' . super() };   
-    
+
+    override bar => sub { 'Bar::bar -> ' . super() };
+
     package Baz;
     use Moose;
-    
+
     extends 'Bar';
-    
-    override bar => sub { 'Baz::bar -> ' . super() };       
-    override baz => sub { 'Baz::baz -> ' . super() }; 
+
+    override bar => sub { 'Baz::bar -> ' . super() };
+    override baz => sub { 'Baz::baz -> ' . super() };
 
     no Moose; # ensure super() still works after unimport
 }
@@ -65,19 +62,20 @@ is($foo->baz(), 'Foo::baz', '... got the right value from &baz');
 {
     package Bling;
     use Moose;
-    
+
     sub bling { 'Bling::bling' }
-    
+
     package Bling::Bling;
     use Moose;
-    
+
     extends 'Bling';
-    
-    sub bling { 'Bling::bling' }    
-    
-    ::dies_ok {
+
+    sub bling { 'Bling::bling' }
+
+    ::ok ::exception {
         override 'bling' => sub {};
-    } '... cannot override a method which has a local equivalent';
-    
+    }, '... cannot override a method which has a local equivalent';
+
 }
 
+done_testing;