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
74
|
use strict;
use warnings;
use Test::More;
{
package Example;
use Moose;
with 'Dist::Zilla::Role::Bootstrap';
sub bootstrap {
1;
}
__PACKAGE__->meta->make_immutable;
1;
}
pass("Role Composition Check Ok");
ok( Example->bootstrap, 'invoke basic method on composed class' );
require Dist::Zilla::Chrome::Test;
require Dist::Zilla::MVP::Section;
require Dist::Zilla::Dist::Builder;
require Dist::Zilla::MVP::Assembler::Zilla;
my $chrome = Dist::Zilla::Chrome::Test->new();
my $section = Dist::Zilla::MVP::Assembler::Zilla->new(
chrome => $chrome,
zilla_class => 'Dist::Zilla::Dist::Builder',
section_class => 'Dist::Zilla::MVP::Section',
);
use FindBin;
use Path::Tiny qw( path );
my $cwd = path('./')->absolute;
my $scratch = path("$FindBin::Bin")->parent->child('corpus')->child('fake_dist_01');
chdir $scratch->stringify;
$section->current_section->payload->{chrome} = $chrome;
$section->current_section->payload->{root} = $scratch->stringify;
$section->current_section->payload->{name} = 'Example';
$section->finalize;
my $instance = Example->plugin_from_config( 'testing', {}, $section );
$instance->distname;
$instance->fallback;
$instance->try_built;
$instance->try_built_method;
is_deeply(
$instance->dump_config,
{
'Dist::Zilla::Role::Bootstrap' => {
distname => 'Example',
fallback => 1,
try_built => undef,
try_built_method => 'mtime',
'$Dist::Zilla::Role::Bootstrap::VERSION' => $Dist::Zilla::Role::Bootstrap::VERSION,
}
},
'dump_config is expected'
);
is( $instance->distname, 'Example', 'distname is Example' );
is( $instance->_cwd->realpath, $scratch->realpath, 'cwd is project root/' );
is( $instance->try_built, undef, 'try_built is off' );
is( $instance->fallback, 1, 'fallback is on' );
is( $instance->_bootstrap_root, $scratch, '_bootstrap_root == _cwd' );
ok( $instance->can('_add_inc'), '_add_inc method exists' );
done_testing;
|
