X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Faggregate%2Funit_core_plugin.t;h=847195e841477a89cbec17fce87fadf3fc000f7a;hp=03d16f62f932c6bf000aaa1de3a4b1168532dea5;hb=35b3434762d426e0cd5e04eb735291f8ca7ea08e;hpb=5d50f369bffa3625ca983b72fc8bc013c8a1e802 diff --git a/t/aggregate/unit_core_plugin.t b/t/aggregate/unit_core_plugin.t index 03d16f6..847195e 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; @@ -54,6 +51,7 @@ my @expected = qw( Catalyst::Plugin::Test::Inline Catalyst::Plugin::Test::MangleDollarUnderScore Catalyst::Plugin::Test::Plugin + Catalyst::Plugin::Unicode::Encoding TestApp::Plugin::AddDispatchTypes TestApp::Plugin::FullyQualified ); @@ -62,3 +60,4 @@ my @expected = qw( is_deeply [ TestApp->registered_plugins ], \@expected, 'registered_plugins() should only report the plugins for the current class'; +done_testing;