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
|
use strict;
use warnings;
use Test::Builder::Tester;
use Test::More;
use Test::Moose::More;
use TAP::SimpleOutput 0.009 'counters';
{
package TestRole;
use Moose::Role;
use namespace::autoclean;
has thinger => (is => 'ro', predicate => 'has_thinger');
}
{
package TestClass;
use Moose;
use namespace::autoclean;
has foo => (
traits => [ 'TestRole' ],
required => 1,
is => 'ro',
isa => 'Int',
builder => '_build_foo',
lazy => 1,
thinger => 'foo',
);
}
# initial tests, covering the most straight-forward cases (IMHO)
note 'validate attribute validation';
{
my ($_ok, $_nok, $_skip) = counters();
test_out $_ok->('TestClass has an attribute named foo');
test_out $_ok->(q{TestClass's attribute foo's metaclass has a metaclass});
test_out $_ok->(q{TestClass's attribute foo's metaclass is a Moose class});
test_out $_ok->(q{TestClass's attribute foo's metaclass isa Moose::Meta::Attribute});
test_out $_ok->(q{TestClass's attribute foo's metaclass does TestRole});
test_out $_ok->(q{TestClass's attribute foo is required});
test_out $_ok->(q{TestClass's attribute foo has a builder});
test_out $_ok->(q{TestClass's attribute foo option builder correct});
test_out $_ok->(q{TestClass's attribute foo does not have a default});
test_out $_ok->(q{TestClass's attribute foo option default correct});
test_out $_ok->(q{TestClass's attribute foo has a reader});
test_out $_ok->(q{TestClass's attribute foo option reader correct});
test_out $_skip->("cannot test 'isa' options yet");
test_out $_skip->("cannot test 'does' options yet");
test_out $_skip->("cannot test 'handles' options yet");
test_out $_skip->("cannot test 'traits' options yet");
test_out $_ok->(q{TestClass's attribute foo has a init_arg});
test_out $_ok->(q{TestClass's attribute foo option init_arg correct});
test_out $_ok->(q{TestClass's attribute foo is lazy});
test_out $_nok->('unknown attribute option: binger');
test_fail 3;
test_out $_ok->(q{TestClass's attribute foo has a thinger});
test_out $_ok->(q{TestClass's attribute foo option thinger correct});
validate_attribute TestClass => foo => (
-does => [ 'TestRole' ],
-isa => [ 'Moose::Meta::Attribute' ],
traits => [ 'TestRole' ],
isa => 'Int',
does => 'Bar',
handles => { },
reader => 'foo',
builder => '_build_foo',
default => undef,
init_arg => 'foo',
lazy => 1,
required => 1,
thinger => 'foo',
binger => 'bar',
);
test_test 'validate_attribute works correctly';
}
subtest 'a standalone run of validate_attribute' => sub {
note 'of necessity, these exclude the "failing" tests';
validate_attribute TestClass => foo => (
-does => [ 'TestRole' ],
-isa => [ 'Moose::Meta::Attribute' ],
traits => [ 'TestRole' ],
isa => 'Int',
does => 'Bar',
handles => { },
reader => 'foo',
builder => '_build_foo',
default => undef,
init_arg => 'foo',
required => 1,
lazy => 1,
thinger => 'foo',
);
};
done_testing;
|
