1 use Test::More no_plan;
7 my $class = AccessorGroups->new;
12 local $SIG{__WARN__} = sub {
13 if (shift =~ /DESTROY/i) {
18 $class->mk_group_accessors('warnings', 'DESTROY');
23 foreach (qw/singlefield multiple1 multiple2/) {
25 my $alias = "_${name}_accessor";
27 can_ok($class, $name, $alias);
29 is($class->$name, undef);
30 is($class->$alias, undef);
33 is($class->$name('a'), 'a');
34 is($class->$name, 'a');
35 is($class->{$name}, 'a');
37 # alias gets same as name
38 is($class->$alias, 'a');
41 is($class->$alias('b'), 'b');
42 is($class->$alias, 'b');
43 is($class->{$name}, 'b');
45 # alias gets same as name
46 is($class->$name, 'b');
49 foreach (qw/lr1 lr2/) {
50 my $name = "$_".'name';
51 my $alias = "_${name}_accessor";
52 my $field = "$_".'field';
54 can_ok($class, $name, $alias);
55 ok(!$class->can($field));
57 is($class->$name, undef);
58 is($class->$alias, undef);
61 is($class->$name('c'), 'c');
62 is($class->$name, 'c');
63 is($class->{$field}, 'c');
65 # alias gets same as name
66 is($class->$alias, 'c');
69 is($class->$alias('d'), 'd');
70 is($class->$alias, 'd');
71 is($class->{$field}, 'd');
73 # alias gets same as name
74 is($class->$name, 'd');