| Commit | Line | Data |
|---|
| 0a369903 |
1 | #!/usr/local/bin/perl |
| 2 | |
| 3 | use strict; |
| 4 | use warnings; |
| 5 | use Test::More; |
| 6 | use lib 't/lib'; |
| 7 | |
| 8 | plan tests => 22; |
| 9 | |
| 10 | use_ok('TestApp2'); |
| 11 | |
| 12 | my $app = TestApp2->new; |
| 13 | |
| 14 | is($app->_role_from_plugin('+'.$_), $_) |
| 15 | for(qw/MyPrettyPlugin My::Pretty::Plugin/); |
| 16 | |
| 17 | is($app->_role_from_plugin($_), 'TestApp2::Plugin::'.$_) |
| 18 | for(qw/Foo/); |
| 19 | |
| 20 | is($app->_role_from_plugin($_), 'TestApp::Plugin::'.$_) |
| 21 | for(qw/Bar/); |
| 22 | |
| 23 | $app->_plugin_app_ns(['CustomNS', $app->_plugin_app_ns]); |
| 24 | |
| 25 | is($app->_role_from_plugin($_), 'CustomNS::Plugin::'.$_) |
| 26 | for(qw/Foo/); |
| 27 | |
| 28 | is($app->_role_from_plugin($_), 'TestApp::Plugin::'.$_) |
| 29 | for(qw/Bar/); |
| 30 | |
| 31 | is( $app->foo, "original foo", 'original foo value'); |
| 32 | is( $app->bar, "original bar", 'original bar value'); |
| 33 | is( $app->bor, "original bor", 'original bor value'); |
| 34 | |
| 35 | ok($app->load_plugin('Bar'), "Loaded Bar"); |
| 36 | is( $app->bar, "override bar", 'overridden bar via plugin'); |
| 37 | |
| 38 | ok($app->load_plugin('Baz'), "Loaded Baz"); |
| 39 | is( $app->baz, "plugin baz", 'added baz via plugin'); |
| 40 | is( $app->bar, "baz'd bar override bar", 'baz extension for bar using around'); |
| 41 | |
| 42 | ok($app->load_plugin('Foo'), "Loaded Foo"); |
| 43 | is( $app->foo, "around foo CNS", 'around foo via plugin'); |
| 44 | is( $app->bar, "foo'd bar CNS baz'd bar override bar", 'foo extension around baz extension for bar'); |
| 45 | is( $app->baz, "foo'd baz CNS plugin baz", 'foo extension override for baz'); |
| 46 | |
| 47 | ok($app->load_plugin('+TestApp::Plugin::Bor'), "Loaded Bor"); |
| 48 | is( $app->foo, "bor'd foo around foo CNS", 'bor extension override for foo'); |
| 49 | is( $app->bor, "plugin bor", 'override bor via plugin'); |
projects / gitmo/MooseX-Object-Pluggable.git / blame