Fix to all use Test::Fatal
Tomas Doran [Wed, 9 Feb 2011 16:01:59 +0000 (16:01 +0000)]
t/011_process_argv.t

index 01c55bb..d2c1740 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Exception;
+use Test::Fatal 0.003;
 
 if ( !eval { require Test::Deep } )
 {
@@ -38,9 +38,13 @@ else
 @ARGV = qw(--bar 10 file.dat);
 
 my $pa;
-lives_ok {
-    $pa = Testing::Foo->process_argv(baz => 100);
-} '... this should work';
+is(
+    exception {
+        $pa = Testing::Foo->process_argv(baz => 100);
+    },
+    undef,
+    '... this should work'
+);
 isa_ok($pa, 'MooseX::Getopt::ProcessedArgv');
 
 Test::Deep::cmp_deeply($pa->argv_copy, [