1 use Test::More tests => 7;
8 is(AccessorGroups->result_class, undef);
10 # croak on set where class can't be loaded
11 my $dying = AccessorGroups->new;
13 $dying->result_class('Junkies');
15 ok($@ =~ /Could not load result_class 'Junkies'/);
16 is($dying->result_class, undef);
18 ok(!Class::Inspector->loaded('BaseInheritedGroups'));
19 AccessorGroups->result_class('BaseInheritedGroups');
20 ok(Class::Inspector->loaded('BaseInheritedGroups'));
21 is(AccessorGroups->result_class, 'BaseInheritedGroups');
24 AccessorGroups->result_class(undef);
25 is(AccessorGroups->result_class, undef);