X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Getopt.git;a=blobdiff_plain;f=t%2F008_configfromfile.t;fp=t%2F008_configfromfile.t;h=1a1d847a62650b482424b47aeb4af7e46a124bed;hp=ea3f9b50fa5f386c09de66a450a0b7a5669c5f8a;hb=aabf4179f74c8607d8c9de5a1da07a5f2cb48b3b;hpb=d08ef824ff9b41efb8fbbc09fe6af178ef83080b

diff --git a/t/008_configfromfile.t b/t/008_configfromfile.t
index ea3f9b5..1a1d847 100644
--- a/t/008_configfromfile.t
+++ b/t/008_configfromfile.t
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Test::More tests => 37;
-use Test::Exception;
+use Test::Fatal;
 use File::Spec;
 
 use Test::Requires 0.05 {
@@ -86,7 +86,7 @@ use Test::Requires 0.05 {
 {
     local @ARGV = qw( --required_from_argv 1 );
 
-    throws_ok { App->new_with_options } qr/Required option missing: required_from_config/;
+    like exception { App->new_with_options }, qr/Required option missing: required_from_config/;
 
     {
         my $app = App::DefaultConfigFile->new_with_options;
@@ -155,7 +155,7 @@ use Test::Requires 0.05 {
 # Required arg not supplied from cmdline
 {
     local @ARGV = qw( --configfile /notused );
-    throws_ok { App->new_with_options } qr/Required option missing: required_from_argv/;
+    like exception { App->new_with_options }, qr/Required option missing: required_from_argv/;
 }
 
 # Config file value overriden from cmdline
@@ -204,7 +204,7 @@ use Test::Requires 0.05 {
 # With DerivedApp, the Getopt role was applied at a different level
 # than the ConfigFromFile role
 {
-    lives_ok { DerivedApp::Getopt->new_with_options } 'Can create DerivedApp';
+    ok ! exception { DerivedApp::Getopt->new_with_options }, 'Can create DerivedApp';
 }
 
 sub app_ok {