1 use Test::More tests => 8;
6 use AccessorGroupsComp;
8 is(AccessorGroupsComp->result_class, undef);
10 ## croak on set where class can't be loaded and it's a physical class
11 my $dying = AccessorGroupsComp->new;
13 $dying->result_class('NotReallyAClass');
14 } qr/Could not load result_class 'NotReallyAClass'/;
15 is($dying->result_class, undef);
18 ## don't croak when the class isn't available but not loaded for people
19 ## who create class/packages on the fly
20 $dying->result_class('JunkiesNeverInstalled');
21 is($dying->result_class, 'JunkiesNeverInstalled');
23 ok(! $INC{'BaseInheritedGroups.pm'});
24 AccessorGroupsComp->result_class('BaseInheritedGroups');
25 ok($INC{'BaseInheritedGroups.pm'});
26 is(AccessorGroupsComp->result_class, 'BaseInheritedGroups');
29 AccessorGroupsComp->result_class(undef);
30 is(AccessorGroupsComp->result_class, undef);