X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02subclass.t;h=477f8b26e6db340ed66a71498d05e63c6249182f;hb=79d1178e5314e72793610c7669b4ea1757045c2b;hp=9cf24a84c743692ddccee0ba20e7e561317c8b5d;hpb=2ccaae6cd360d4f063ef369d02e9b3d06ca4ee0c;p=gitmo%2FMooseX-ConfigFromFile.git diff --git a/t/02subclass.t b/t/02subclass.t index 9cf24a8..477f8b2 100644 --- a/t/02subclass.t +++ b/t/02subclass.t @@ -1,12 +1,15 @@ -#!/usr/bin/env perl use strict; -use Test::More; +use warnings; + +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();