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
|
use strict;
use warnings;
use Test::More tests => 33;
use Test::Exception;
use Class::MOP;
#1
require_ok("MooseX::Adopt::Class::Accessor::Fast");
my $class = "Testing::Class::Accessor::Fast";
{
my $infinite_loop_indicator = 0;
my $meta = Class::MOP::Class->create(
$class,
superclasses => ['Class::Accessor::Fast'],
methods => {
car => sub { shift->_car_accessor(@_); },
mar => sub { return "Overloaded"; },
test => sub {
die('Infinite loop detected') if $infinite_loop_indicator++;
$_[0]->_test_accessor((@_ > 1 ? @_ : ()));
}
}
);
$class->mk_accessors(qw( foo bar yar car mar test));
$class->mk_ro_accessors(qw(static unchanged));
$class->mk_wo_accessors(qw(sekret double_sekret));
$class->follow_best_practice;
$class->mk_accessors(qw( best));
}
my %attrs = map{$_->name => $_} $class->meta->get_all_attributes;
#2
is(keys %attrs, 11, 'Correct number of attributes');
#3-12
ok(exists $attrs{$_}, "Attribute ${_} created")
for qw( foo bar yar car mar static unchanged sekret double_sekret best );
#13-21
ok($class->can("_${_}_accessor"), "Alias method (_${_}_accessor) for ${_} created")
for qw( foo bar yar car mar static unchanged sekret double_sekret );
#22-24
is( $attrs{$_}->accessor, $_, "Accessor ${_} created" )
for qw( foo bar yar);
#25,26
ok( !$attrs{$_}->has_accessor, "Accessor ${_} not created" )
for qw( car mar);
#27,28
is( $attrs{$_}->reader, $_, "Reader ${_} created")
for qw( static unchanged );
#29,30
is( $attrs{$_}->writer, $_, "Writer ${_} created")
for qw(sekret double_sekret);
#31,32
is( $attrs{'best'}->reader, 'get_best', "Reader get_best created");
is( $attrs{'best'}->writer, 'set_best', "Writer set_best created");
#33
lives_ok{ $class->new->test(1) } 'no auto-reference to accessors from aliases';
|
