1 use Test::More tests => 38;
7 my $class = AccessorGroupsWO->new;
12 local $SIG{__WARN__} = sub {
13 if (shift =~ /DESTROY/i) {
18 $class->mk_group_wo_accessors('warnings', 'DESTROY');
22 # restore non-accessorized DESTROY
24 *AccessorGroupsWO::DESTROY = sub {};
27 foreach (qw/singlefield multiple1 multiple2/) {
29 my $alias = "_${name}_accessor";
31 can_ok($class, $name, $alias);
34 is($class->$name('a'), 'a');
35 is($class->{$name}, 'a');
37 # alias sets same as name
38 is($class->$alias('b'), 'b');
39 is($class->{$name}, 'b');
41 # die on get via name/alias
45 ok($@ =~ /cannot access/);
50 ok($@ =~ /cannot access/);
53 foreach (qw/lr1 lr2/) {
54 my $name = "$_".'name';
55 my $alias = "_${name}_accessor";
57 my $field = { lr1 => 'lr1;field', lr2 => q{lr2'field} }->{$_};
59 can_ok($class, $name, $alias);
60 ok(!$class->can($field));
63 is($class->$name('c'), 'c');
64 is($class->{$field}, 'c');
66 # alias sets same as name
67 is($class->$alias('d'), 'd');
68 is($class->{$field}, 'd');
70 # die on get via name/alias
74 ok($@ =~ /cannot access/);
79 ok($@ =~ /cannot access/);