make all warnings fatal in tests

[gitmo/MooseX-Getopt.git] / t / 007_nogetopt_trait.t

diff --git a/t/007_nogetopt_trait.t b/t/007_nogetopt_trait.t
index 5ccef57..22f27cd 100644 (file)
--- a/t/007_nogetopt_trait.t
+++ b/t/007_nogetopt_trait.t
@@ -1,10 +1,9 @@
-#!/usr/bin/perl
-
 use strict;
-use warnings;
+use warnings FATAL => 'all';
 
-use Test::More tests => 9;
-use Test::Exception;
+use Test::More tests => 10;
+use Test::Fatal;
+use Test::NoWarnings 1.04 ':early';
 
 BEGIN {
     use_ok('MooseX::Getopt');
@@ -78,7 +77,6 @@ BEGIN {
         default   => 832,
         cmd_flag  => 'p',
     );
-
 }
 
 {
@@ -98,5 +96,5 @@ BEGIN {
 {
     local @ARGV = (qw/--private_stuff 317/);
 
-    throws_ok { App->new_with_options } qr/Unknown option: private_stuff/;
+    like exception { App->new_with_options }, qr/Unknown option: private_stuff/;
 }