1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
use strict;
use warnings;
use Test::More;
BEGIN {
package Dancer2::Plugin::InsidePlugin;
use Dancer2::Plugin;
has inside => (
is => 'ro',
lazy => 1,
default => sub {
my $app = shift;
return $app->plugin->config->{ja};
},
);
}
BEGIN {
package Dancer2::Plugin::TestPlugin;
use Dancer2::Plugin;
has inside_plugin => (
is => 'ro',
default => sub {
scalar $_[0]->app->with_plugin( 'InsidePlugin' )
},
handles => [ 'inside' ],
);
}
{
package MyApp;
use Dancer2;
use Dancer2::Plugin::TestPlugin;
set plugins => {
InsidePlugin => {
'ja' => 'da',
},
TestPlugin => {
'nein' => 'ne',
}
};
}
# check whether both plugins are registered
my $app = MyApp::app();
my $plugins = $app->plugins;
my $plugin_ct = scalar(@$plugins);
ok ($plugin_ct == 2, 'Test number of plugins.')
|| diag "Found $plugin_ct plugins instead of 2.";
my $test_plugin = $app->with_plugin('TestPlugin');
my $inside_plugin = $test_plugin->inside_plugin;
isa_ok( $test_plugin, 'Dancer2::Plugin::TestPlugin' );
isa_ok( $inside_plugin, 'Dancer2::Plugin::InsidePlugin' );
# test configuration values
is $test_plugin->config->{nein} => 'ne', 'Test config of TestPlugin.'
or diag "Found instead of expected 'ne': ", $test_plugin->config->{nein};
is $inside_plugin->config->{ja} => 'da', 'Test config of InsidePlugin.'
or diag "Found instead of expected 'da': ", $inside_plugin->config->{ja};
done_testing;
|
