X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Faggregate%2Funit_core_script_fastcgi.t;h=1b24aea0885ce6fb3854a579791932d027f669cc;hp=93f1c16aa0cc31441ffb19bd4a2aac7a90e8d3f0;hb=eefc03e12890c06c9a76d78b4d68e3b2ad781328;hpb=aee7cdcc0b2b3b7dc672b4b4a31b8c3b7ef3f1f7

diff --git a/t/aggregate/unit_core_script_fastcgi.t b/t/aggregate/unit_core_script_fastcgi.t
index 93f1c16..1b24aea 100644
--- a/t/aggregate/unit_core_script_fastcgi.t
+++ b/t/aggregate/unit_core_script_fastcgi.t
@@ -5,7 +5,7 @@ use FindBin qw/$Bin/;
 use lib "$Bin/../lib";
 
 use Test::More;
-use Test::Exception;
+use Test::Fatal;
 
 use Catalyst::Script::FastCGI;
 
@@ -14,7 +14,7 @@ local our $fake_handler = \42;
 {
     package TestFastCGIScript;
     use Moose;
-    use namespace::autoclean;
+    use namespace::clean -except => [ 'meta' ];
 
     extends 'Catalyst::Script::FastCGI';
 
@@ -32,9 +32,9 @@ sub testOption {
 
     local @ARGV = @$argstring;
     local @TestAppToTestScripts::RUN_ARGS;
-    lives_ok {
+    is exception {
         TestFastCGIScript->new_with_options(application_name => 'TestAppToTestScripts')->run;
-    } "new_with_options";
+    }, undef, "new_with_options";
     # First element of RUN_ARGS will be the script name, which we don't care about
     shift @TestAppToTestScripts::RUN_ARGS;