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";
56 my $field = "$_".'field';
58 can_ok($class, $name, $alias);
59 ok(!$class->can($field));
62 is($class->$name('c'), 'c');
63 is($class->{$field}, 'c');
65 # alias sets same as name
66 is($class->$alias('d'), 'd');
67 is($class->{$field}, 'd');
69 # die on get via name/alias
73 ok($@ =~ /cannot access/);
78 ok($@ =~ /cannot access/);