X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F010_basics%2F007_always_strict_warnings.t;h=bcac52284503e0cd23b62bd3cbb3784929881345;hb=d03bd989b97597428b460d7f9a021e2931893fa0;hp=b81588cf99b2faeca98cef7ca398a9ac506b3eae;hpb=f6bee6fe1d579dc3d2ed2952cce9a1556040c8e5;p=gitmo%2FMoose.git diff --git a/t/010_basics/007_always_strict_warnings.t b/t/010_basics/007_always_strict_warnings.t index b81588c..bcac522 100644 --- a/t/010_basics/007_always_strict_warnings.t +++ b/t/010_basics/007_always_strict_warnings.t @@ -6,19 +6,19 @@ use Test::More tests => 10; { package Foo; use Moose; - + eval '$foo = 5;'; ::ok($@, '... got an error because strict is on'); ::like($@, qr/Global symbol \"\$foo\" requires explicit package name at/, '... got the right error'); - + { my $warn; local $SIG{__WARN__} = sub { $warn = $_[0] }; ::ok(!$warn, '... no warning yet'); - + eval 'my $bar = 1 + "hello"'; - + ::ok($warn, '... got a warning'); ::like($warn, qr/Argument \"hello\" isn\'t numeric in addition \(\+\)/, '.. and it is the right warning'); } @@ -28,19 +28,19 @@ use Test::More tests => 10; { package Bar; use Moose::Role; - + eval '$foo = 5;'; ::ok($@, '... got an error because strict is on'); ::like($@, qr/Global symbol \"\$foo\" requires explicit package name at/, '... got the right error'); - + { my $warn; local $SIG{__WARN__} = sub { $warn = $_[0] }; ::ok(!$warn, '... no warning yet'); - + eval 'my $bar = 1 + "hello"'; - + ::ok($warn, '... got a warning'); ::like($warn, qr/Argument \"hello\" isn\'t numeric in addition \(\+\)/, '.. and it is the right warning'); }