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

diff --git a/t/109_help_flag.t b/t/109_help_flag.t
index af21653..70a95ab 100644
--- a/t/109_help_flag.t
+++ b/t/109_help_flag.t
@@ -18,7 +18,7 @@
 
 use strict; use warnings;
 use Test::More tests => 6;
-use Test::Exception;
+use Test::Fatal;
 
 {
     package MyClass;
@@ -39,7 +39,7 @@ foreach my $args ( ['--help'], ['--usage'], ['--?'], ['-?'] )
 {
     local @ARGV = @$args;
 
-    throws_ok { MyClass->new_with_options() }
+    like exception { MyClass->new_with_options() },
         qr/^usage: (?:[\d\w]+)\Q.t [-?] [long options...]\E.^\t\Q-? --usage --help  Prints this usage information.\E$/ms,
         'Help request detected; usage information properly printed';
 }