X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02-basic2.t;h=382cdc72432cf1e577130d774a24f269824bc396;hb=16d6797e174786de65266b62d16f70e8a0bc3c27;hp=639d20f956aeb3888c58624bdfb7397e5183f3b1;hpb=208f7b2702330c0187b265df3d20ef1702de0640;p=gitmo%2FMooseX-Object-Pluggable.git diff --git a/t/02-basic2.t b/t/02-basic2.t index 639d20f..382cdc7 100644 --- a/t/02-basic2.t +++ b/t/02-basic2.t @@ -5,7 +5,7 @@ use warnings; use Test::More; use lib 't/lib'; -plan tests => 19; +plan tests => 15; use_ok('TestApp2'); @@ -26,13 +26,9 @@ is( $app->bar, "override bar", 'overridden bar via plugin'); ok($app->load_plugin('Baz'), "Loaded Baz"); is( $app->baz, "plugin baz", 'added baz via plugin'); -is( $app->bar, "baz'd bar override bar", 'baz extension for bar using around'); ok($app->load_plugin('Foo'), "Loaded Foo"); is( $app->foo, "around foo 2", 'around foo via plugin'); -is( $app->bar, "foo'd bar 2 baz'd bar override bar", 'foo extension around baz extension for bar'); -is( $app->baz, "foo'd baz 2 plugin baz", 'foo extension override for baz'); ok($app->load_plugin('+TestApp::Plugin::Bor'), "Loaded Bor"); -is( $app->foo, "bor'd foo around foo 2", 'bor extension override for foo'); is( $app->bor, "plugin bor", 'override bor via plugin');