X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Funit_core_plugin.t;h=493a82a8b9ba112e95f2e97f626f995e36303b09;hb=4c71cf1b43594eabfee6e346a0a30b6dcf315b4f;hp=03d16f62f932c6bf000aaa1de3a4b1168532dea5;hpb=5d50f369bffa3625ca983b72fc8bc013c8a1e802;p=catagits%2FCatalyst-Runtime.git diff --git a/t/aggregate/unit_core_plugin.t b/t/aggregate/unit_core_plugin.t index 03d16f6..493a82a 100644 --- a/t/aggregate/unit_core_plugin.t +++ b/t/aggregate/unit_core_plugin.t @@ -1,9 +1,7 @@ -#!/usr/bin/perl - use strict; use warnings; -use Test::More tests => 24; +use Test::More; use lib 't/lib'; @@ -11,9 +9,8 @@ use lib 't/lib'; package Faux::Plugin; - sub new { bless {}, shift } - my $count = 1; - sub count { $count++ } + sub new { bless { count => 1 }, shift } + sub count { shift->{count}++ } } my $warnings = 0; @@ -62,3 +59,4 @@ my @expected = qw( is_deeply [ TestApp->registered_plugins ], \@expected, 'registered_plugins() should only report the plugins for the current class'; +done_testing;