1 use Test::More tests => 8;
7 use AccessorGroupsComp;
9 is(AccessorGroupsComp->result_class, undef);
11 ## croak on set where class can't be loaded and it's a physical class
12 my $dying = AccessorGroupsComp->new;
14 $dying->result_class('NotReallyAClass');
15 } qr/Could not load result_class 'NotReallyAClass'/;
16 is($dying->result_class, undef);
19 ## don't croak when the class isn't available but not loaded for people
20 ## who create class/packages on the fly
21 $dying->result_class('JunkiesNeverInstalled');
22 is($dying->result_class, 'JunkiesNeverInstalled');
24 ok(!Class::Inspector->loaded('BaseInheritedGroups'));
25 AccessorGroupsComp->result_class('BaseInheritedGroups');
26 ok(Class::Inspector->loaded('BaseInheritedGroups'));
27 is(AccessorGroupsComp->result_class, 'BaseInheritedGroups');
30 AccessorGroupsComp->result_class(undef);
31 is(AccessorGroupsComp->result_class, undef);