1 use Test::More tests => 58;
7 my $class = AccessorGroups->new;
12 local $SIG{__WARN__} = sub {
13 if (shift =~ /DESTROY/i) {
18 $class->mk_group_accessors('warnings', 'DESTROY');
22 # restore non-accessorized DESTROY
24 *AccessorGroups::DESTROY = sub {};
27 foreach (qw/singlefield multiple1 multiple2/) {
29 my $alias = "_${name}_accessor";
31 can_ok($class, $name, $alias);
33 is($class->$name, undef);
34 is($class->$alias, undef);
37 is($class->$name('a'), 'a');
38 is($class->$name, 'a');
39 is($class->{$name}, 'a');
41 # alias gets same as name
42 is($class->$alias, 'a');
45 is($class->$alias('b'), 'b');
46 is($class->$alias, 'b');
47 is($class->{$name}, 'b');
49 # alias gets same as name
50 is($class->$name, 'b');
53 foreach (qw/lr1 lr2/) {
54 my $name = "$_".'name';
55 my $alias = "_${name}_accessor";
56 my $field = "$_".'field';
58 can_ok($class, $name, $alias);
59 ok(!$class->can($field));
61 is($class->$name, undef);
62 is($class->$alias, undef);
65 is($class->$name('c'), 'c');
66 is($class->$name, 'c');
67 is($class->{$field}, 'c');
69 # alias gets same as name
70 is($class->$alias, 'c');
73 is($class->$alias('d'), 'd');
74 is($class->$alias, 'd');
75 is($class->{$field}, 'd');
77 # alias gets same as name
78 is($class->$name, 'd');