From: Dave Rolsky Date: Fri, 11 Sep 2009 16:16:41 +0000 (-0500) Subject: Some test style cleanup X-Git-Tag: 0.90~50 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=38812e01aca540a9e314886d3176433ecd78c48c;p=gitmo%2FMoose.git Some test style cleanup --- diff --git a/t/100_bugs/012_DEMOLISH_eats_mini.t b/t/100_bugs/012_DEMOLISH_eats_mini.t index 58ec76b..beb51ab 100644 --- a/t/100_bugs/012_DEMOLISH_eats_mini.t +++ b/t/100_bugs/012_DEMOLISH_eats_mini.t @@ -7,7 +7,6 @@ use Test::More tests => 4; use Test::Exception; - { package Foo; use Moose; @@ -27,8 +26,8 @@ use Test::Exception; { my $obj = eval { Foo->new; }; - ::like( $@, qr/is required/, "... Foo plain" ); - ::is( $obj, undef, "... the object is undef" ); + like( $@, qr/is required/, "... Foo plain" ); + is( $obj, undef, "... the object is undef" ); } { @@ -43,9 +42,6 @@ use Test::Exception; { my $obj = eval { Bar->new; }; - ::like( $@, qr/Bar died/, "... Bar plain" ); - ::is( $obj, undef, "... the object is undef" ); + like( $@, qr/Bar died/, "... Bar plain" ); + is( $obj, undef, "... the object is undef" ); } - -1; -