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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
use 5.008004;
use Test2::V0 -no_srand => 1;
use Alien::Build::Plugin ();
use lib 'corpus/lib';
subtest 'basic' => sub {
my $plugin = Alien::Build::Plugin->new;
isa_ok $plugin, 'Alien::Build::Plugin';
};
subtest 'properties' => sub {
require Alien::Build::Plugin::RogerRamjet;
subtest 'defaults' => sub {
my $plugin = Alien::Build::Plugin::RogerRamjet->new;
is $plugin->foo, 22;
is $plugin->bar, 'something generated';
};
subtest 'override' => sub {
my $plugin = Alien::Build::Plugin::RogerRamjet->new(
foo => 42,
bar => 'anything else',
);
is $plugin->foo, 42;
is $plugin->bar, 'anything else';
};
subtest 'set' => sub {
my $plugin = Alien::Build::Plugin::RogerRamjet->new;
$plugin->foo(92);
$plugin->bar('string');
is $plugin->foo, 92;
is $plugin->bar, 'string';
};
};
subtest 'instance-id' => sub {
{
package
Alien::Build::Plugin::ABC::XYZ1;
use Alien::Build::Plugin;
has foo => undef;
has bar => undef;
}
{
package
Alien::Build::Plugin::ABC::XYZ2;
use Alien::Build::Plugin;
has foo => undef;
}
is(
Alien::Build::Plugin::ABC::XYZ1->new->instance_id,
match qr/^[a-z0-9]{40}$/,
'id is a 40 character hex value',
);
is(
Alien::Build::Plugin::ABC::XYZ1->new->instance_id,
Alien::Build::Plugin::ABC::XYZ1->new->instance_id,
'zero args is the consistent',
);
isnt(
Alien::Build::Plugin::ABC::XYZ1->new->instance_id,
Alien::Build::Plugin::ABC::XYZ2->new->instance_id,
'zero args different class is different',
);
isnt(
Alien::Build::Plugin::ABC::XYZ1->new(foo => 1)->instance_id,
Alien::Build::Plugin::ABC::XYZ2->new(foo => 1)->instance_id,
'same args different class is different',
);
isnt(
Alien::Build::Plugin::ABC::XYZ1->new( foo => 1, bar => 2)->instance_id,
Alien::Build::Plugin::ABC::XYZ1->new->instance_id,
'args vs no args different',
);
isnt(
Alien::Build::Plugin::ABC::XYZ1->new( foo => 1, bar => 2)->instance_id,
Alien::Build::Plugin::ABC::XYZ1->new( foo => 2, bar => 3)->instance_id,
'args vs different args different',
);
is(
Alien::Build::Plugin::ABC::XYZ1->new( foo => 1, bar => 2)->instance_id,
Alien::Build::Plugin::ABC::XYZ1->new( bar => 2, foo => 1)->instance_id,
'same args is same',
);
is(
Alien::Build::Plugin::ABC::XYZ1->new( foo => [1,2,3], bar => 2)->instance_id,
Alien::Build::Plugin::ABC::XYZ1->new( bar => 2, foo => [1,2,3])->instance_id,
'same args is same (array)',
);
isnt(
Alien::Build::Plugin::ABC::XYZ1->new( foo => [1,3,2], bar => 2)->instance_id,
Alien::Build::Plugin::ABC::XYZ1->new( bar => 2, foo => [1,2,3])->instance_id,
'different args is same (array)',
);
};
done_testing;
|
