From: Karen Etheridge Date: Sun, 3 Feb 2013 00:04:50 +0000 (-0800) Subject: remove shebangs; use warnings and Test::NoWarnings X-Git-Tag: 0.05~7 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fcc2d1ec65a0886906a71dfb85b7cb13f3f377a3;p=gitmo%2FMooseX-ConfigFromFile.git remove shebangs; use warnings and Test::NoWarnings --- diff --git a/t/01use.t b/t/01use.t index 80a4331..c2e38c0 100644 --- a/t/01use.t +++ b/t/01use.t @@ -1,9 +1,8 @@ -#!/usr/bin/perl - use strict; use warnings; -use Test::More tests => 1; +use Test::More tests => 2; +use Test::NoWarnings 1.04 ':early'; BEGIN { use_ok('MooseX::ConfigFromFile'); diff --git a/t/02subclass.t b/t/02subclass.t index dc9aebd..477f8b2 100644 --- a/t/02subclass.t +++ b/t/02subclass.t @@ -1,7 +1,10 @@ -#!/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; @@ -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(); diff --git a/t/03configfile_method.t b/t/03configfile_method.t index 362ba2f..0d14122 100644 --- a/t/03configfile_method.t +++ b/t/03configfile_method.t @@ -1,8 +1,9 @@ -#!/usr/bin/env perl use strict; -use Test::More; -use Test::Fatal; +use warnings; +use Test::More tests => 7; +use Test::NoWarnings 1.04 ':early'; +use Test::Fatal; my %config_from_file_args; { @@ -53,5 +54,3 @@ is($config_from_file_args{B}, 'bar', 'B configfile attr default sub is called'); is(exception { C->new_with_config() }, undef, 'C->new_with_config lives'); is($config_from_file_args{C}, '/dir/C', 'C configfile attr default sub is called, with classname'); - -done_testing();