X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02subclass.t;h=1a67eaac1c2df84ff44b1b7b0b0fa6b9da861863;hb=f7a282fa78160e540d92ca875bce7efc2a7279c2;hp=9cf24a84c743692ddccee0ba20e7e561317c8b5d;hpb=2ccaae6cd360d4f063ef369d02e9b3d06ca4ee0c;p=gitmo%2FMooseX-ConfigFromFile.git diff --git a/t/02subclass.t b/t/02subclass.t index 9cf24a8..1a67eaa 100644 --- a/t/02subclass.t +++ b/t/02subclass.t @@ -1,12 +1,15 @@ -#!/usr/bin/env perl use strict; -use Test::More; +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 { } } @@ -19,4 +22,3 @@ use Test::Fatal; ok(B->does('MooseX::ConfigFromFile'), 'B does ConfigFromFile'); is(exception { B->new_with_config() }, undef, 'B->new_with_config lives'); -done_testing();