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
|
use strict;
use warnings;
{ package TestRole::Role; use Moose::Role; }
{ package TestRole::Role2; use Moose::Role; }
{ package TestRole; use Moose::Role; with 'TestRole::Role'; }
{ package TestClass; use Moose; with 'TestRole::Role'; }
{ package TestRole::Two; use Moose::Role; with 'TestRole::Role'; with 'TestRole::Role2'; }
{ package TestClass::Two; use Moose; with 'TestRole::Role'; with 'TestRole::Role2'; }
{ package TestRole::Fail; use Moose::Role; }
{ package TestClass::Fail; use Moose; }
{ package TestRole::Fail2; use Moose::Role; with 'TestRole::Role2'; }
{ package TestClass::Fail2; use Moose; with 'TestRole::Role2'; }
{ package TestClass::NotMoosey; }
use Test::Builder::Tester;
use Test::More;
use Test::Moose::More;
use TAP::SimpleOutput 'counters';
my $ROLE = 'TestRole::Role';
my @ROLES = qw{ TestRole::Role TestRole::Role2 };
note 'single role, default message - OK';
for my $thing (qw{ TestClass TestRole }) {
my ($_ok, $_nok) = counters();
test_out $_ok->("$thing does $ROLE");
does_ok $thing, $ROLE;
test_test "$thing is found to do $ROLE correctly";
}
note 'single role, custom message - OK';
for my $thing (qw{ TestClass TestRole }) {
my ($_ok, $_nok) = counters();
test_out $_ok->('wah-wah');
does_ok $thing, $ROLE, 'wah-wah';
test_test "$thing: custom messages work as expected";
}
note 'single role, "complex" custom message - OK';
for my $thing (qw{ TestClass TestRole }) {
my ($_ok, $_nok) = counters();
test_out $_ok->("wah-wah $ROLE");
does_ok $thing, $ROLE, 'wah-wah %s';
test_test "$thing: 'complex' custom messages work as expected";
}
note 'multiple roles, default message - OK';
for my $thing (qw{ TestClass::Two TestRole::Two }) {
# role - OK
my ($_ok, $_nok) = counters();
test_out $_ok->("$thing does $_") for @ROLES;
does_ok $thing, [ @ROLES ];
test_test "$thing is found to do the roles correctly";
}
note 'multiple roles, custom message - OK';
for my $thing (qw{ TestClass::Two TestRole::Two }) {
# role - OK
my ($_ok, $_nok) = counters();
my $msg = 'wah-wah';
test_out $_ok->($msg) for @ROLES;
does_ok $thing, [ @ROLES ], $msg;
test_test "$thing: multiple roles, custom messages work as expected";
}
note 'multiple roles, "complex" custom message - OK';
for my $thing (qw{ TestClass::Two TestRole::Two }) {
# role - OK
my ($_ok, $_nok) = counters();
my $msg = 'wah-wah';
test_out $_ok->("$msg $_") for @ROLES;
does_ok $thing, [ @ROLES ], "$msg %s";
test_test "$thing: multiple roles, 'complex' custom messages work as expected";
}
note 'role - NOT OK';
for my $thing (qw{ TestClass::Fail TestRole::Fail }) {
# role - NOT OK
my ($_ok, $_nok) = counters();
test_out $_nok->("$thing does $ROLE");
test_fail 1;
does_ok $thing, $ROLE;
test_test "$thing is found to not do $ROLE correctly";
}
note 'multiple roles - NOT OK';
for my $thing (qw{ TestClass::Fail TestRole::Fail }) {
# role - OK
my ($_ok, $_nok) = counters();
do { test_out $_nok->("$thing does $_"); test_fail 1 } for @ROLES;
does_ok $thing, [ @ROLES ];
test_test "$thing: multiple roles fail as expected";
}
note 'multiple roles - PARTIALLY OK';
for my $thing (qw{ TestClass::Fail2 TestRole::Fail2 }) {
# role - OK
my ($_ok, $_nok) = counters();
do { test_out $_nok->("$thing does $_"); test_fail 2 } for $ROLES[0];
do { test_out $_ok->("$thing does $_") } for $ROLES[1];
does_ok $thing, [ @ROLES ];
test_test "$thing: multiple roles partially fail as expected";
}
done_testing;
|
