Commit | Line | Data |
e6b8b400 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use FindBin; |
5 | use Test::More; |
6 | use Test::Exception; |
7 | |
8 | use lib "$FindBin::Bin/lib"; |
9 | |
10 | my $awesome_robot = 0; |
11 | my $first = 0; |
12 | my $last = 0; |
13 | |
14 | BEGIN { |
15 | package MyModule::Plugin::TestActions; |
16 | |
17 | use Class::C3::Componentised::ApplyHooks; |
18 | |
19 | BEFORE_APPLY { $awesome_robot++; $first = $awesome_robot }; |
20 | BEFORE_APPLY { $awesome_robot++; $first = $awesome_robot }; |
21 | AFTER_APPLY { $awesome_robot++; $last = $awesome_robot }; |
22 | |
23 | 1; |
24 | } |
25 | |
26 | BEGIN { |
27 | package MyModule::Plugin::TestActionDie; |
28 | |
29 | use Class::C3::Componentised::ApplyHooks |
30 | -before_apply => sub { die 'this component is not applicable (yuk yuk yuk)' }; |
31 | |
32 | 1; |
33 | } |
34 | |
35 | BEGIN { |
36 | package MyModule::Plugin::TestActionLoadFrew; |
37 | |
38 | use Class::C3::Componentised::ApplyHooks; |
39 | |
40 | BEFORE_APPLY { $_[0]->load_components('TestActionFrew') }; |
41 | |
42 | 1; |
43 | } |
44 | |
45 | BEGIN { |
46 | package MyModule::Plugin::TestActionFrew; |
47 | sub frew { 1 } |
48 | 1; |
49 | } |
50 | |
51 | use_ok('MyModule'); |
52 | is( $first, 0, 'first starts at zero' ); |
53 | is( $last, 0, 'last starts at zero' ); |
54 | |
55 | MyModule->load_components('TestActions'); |
56 | is( $first, 2, 'first gets value of 1 (it runs first)' ); |
57 | is( $last, 3, 'last gets value of 2 (it runs last)' ); |
58 | |
59 | dies_ok { MyModule->load_components('TestActionDie') } 'die from BEFORE_APPLY works'; |
60 | |
61 | dies_ok { MyModule->frew } 'fREW is not loaded'; |
62 | MyModule->load_components('TestActionLoadFrew'); |
63 | is( MyModule->frew, 1, 'fREW is loaded' ); |
64 | |
65 | done_testing; |