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 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154
|
use strict;
use warnings;
use Test::Builder::Tester;
use Test::More;
use Test::Moose::More;
use TAP::SimpleOutput 0.002 '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{Moose::Meta::Class::__ANON__::SERIAL::1 has a metaclass});
test_out $_ok->(q{Moose::Meta::Class::__ANON__::SERIAL::1 is a Moose class});
test_out $_ok->('Moose::Meta::Class::__ANON__::SERIAL::1 isa Moose::Meta::Attribute');
test_out $_ok->('Moose::Meta::Class::__ANON__::SERIAL::1 does TestRole');
test_out $_ok->('foo is required');
test_out $_ok->('foo has a builder');
test_out $_ok->('foo option builder correct');
test_out $_ok->('foo does not have a default');
test_out $_ok->('foo option default correct');
test_out $_ok->('foo has a reader');
test_out $_ok->('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->('foo has a init_arg');
test_out $_ok->('foo option init_arg correct');
test_out $_ok->('foo is lazy');
test_out $_nok->('unknown attribute option: binger');
test_fail 3;
test_out $_ok->('foo has a thinger');
test_out $_ok->('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',
);
};
note 'attribute_options_ok validation';
{
my ($_ok, $_nok, $_skip) = counters();
test_out $_ok->('TestClass has an attribute named foo');
test_out $_ok->('foo has a builder');
test_out $_ok->('foo option builder correct');
test_out $_ok->('foo does not have a default');
test_out $_ok->('foo option default correct');
test_out $_ok->('foo has a reader');
test_out $_ok->('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->('foo has a init_arg');
test_out $_ok->('foo option init_arg correct');
test_out $_ok->('foo is lazy');
test_out $_nok->('unknown attribute option: binger');
test_fail 3;
test_out $_ok->('foo has a thinger');
test_out $_ok->('foo option thinger correct');
attribute_options_ok TestClass => foo => (
traits => [ 'TestRole' ],
isa => 'Int',
does => 'Bar',
handles => { },
reader => 'foo',
builder => '_build_foo',
default => undef,
init_arg => 'foo',
lazy => 1,
thinger => 'foo',
binger => 'bar',
);
test_test 'attribute_options_ok works as expected';
}
subtest 'a standalone run of attribute_options_ok' => sub {
note 'of necessity, these exclude the "failing" tests';
attribute_options_ok TestClass => foo => (
traits => [ 'TestRole' ],
isa => 'Int',
does => 'Bar',
handles => { },
reader => 'foo',
builder => '_build_foo',
default => undef,
init_arg => 'foo',
lazy => 1,
);
};
done_testing;
|