1 use Test::More tests => 4;
7 use AccessorGroupsSubclass;
11 local $SIG{__WARN__} = sub {
12 $_[0] =~ /unwise/ ? $warned++ : warn(@_)
15 for (qw/DESTROY AUTOLOAD CLONE/) {
16 AccessorGroupsSubclass->mk_group_accessors(warnings => $_);
19 is($warned, 3, 'Correct amount of unise warnings');
24 local $SIG{__WARN__} = sub {
25 $_[0] =~ /Installing illegal accessor/ ? $warned++ : warn(@_)
28 for (qw/666_one 666_two/) {
32 local $ENV{CAG_ILLEGAL_ACCESSOR_NAME_OK} = 1;
33 AccessorGroupsSubclass->mk_group_accessors(warnings => $_);
36 is($warned, 1, 'Correct amount of illegal installation warnings');
39 throws_ok { AccessorGroupsSubclass->mk_group_accessors(simple => '2wrvwrv;') }
40 qr/Illegal accessor name/;
43 local $ENV{CAG_ILLEGAL_ACCESSOR_NAME_OK} = 1;
44 AccessorGroupsSubclass->mk_group_accessors(simple => "2wr\0vwrv;")
45 } qr/nulls should never appear/;