X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fmethod.t;h=a2b6ef56212f0c19c69df409fdb35b8e3ac0ae02;hb=9bbd73fb5569e01b90f48513765712a63d34ea1b;hp=733563542818ccb9d547f36cfa42a51da535aa5b;hpb=0be3860b25f7dd4c0a71775a4c561b95415e64c4;p=p5sagit%2FDevel-Declare.git diff --git a/t/method.t b/t/method.t index 7335635..a2b6ef5 100644 --- a/t/method.t +++ b/t/method.t @@ -1,3 +1,5 @@ +use strict; +use warnings; use Devel::Declare (); { @@ -138,7 +140,7 @@ my ($test_method1, $test_method2, @test_list); } -use Test::More 'no_plan'; +use Test::More; my $o = DeclareTest->new(attr => "value"); @@ -161,3 +163,5 @@ is($o->$test_method1('no', 'yes'), 'value, yes', 'anon method with @_ ok'); is($o->$test_method2('this'), 'DeclareTest2, this', 'anon method with proto ok'); is_deeply([ map { $_->() } @test_list ], [ 1, 2, 3, 4], 'binding ok'); + +done_testing;