X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02subclass.t;h=1a67eaac1c2df84ff44b1b7b0b0fa6b9da861863;hb=f7a282fa78160e540d92ca875bce7efc2a7279c2;hp=fec259094684e94a4899f63b0d542bd12d8ee876;hpb=7760bb42bcac9434f02e3e2d60a564ea777b31a1;p=gitmo%2FMooseX-ConfigFromFile.git

diff --git a/t/02subclass.t b/t/02subclass.t
index fec2590..1a67eaa 100644
--- a/t/02subclass.t
+++ b/t/02subclass.t
@@ -1,12 +1,15 @@
-#!/usr/bin/env perl 
 use strict;
-use Test::More;
-use Test::Exception;
+use warnings FATAL => 'all';
+
+use Test::More tests => 3;
+use Test::Fatal;
+use Test::NoWarnings 1.04 ':early';
+
 {
     package A;
     use Moose;
     with qw(MooseX::ConfigFromFile);
-    
+
     sub get_config_from_file { }
 }
 
@@ -17,6 +20,5 @@ use Test::Exception;
 }
 
 ok(B->does('MooseX::ConfigFromFile'), 'B does ConfigFromFile');
-lives_ok { B->new_with_config() } 'B->new_with_config lives';
+is(exception { B->new_with_config() }, undef, 'B->new_with_config lives');
 
-done_testing();