t/component.t

   1 use Test::More tests => 7;
   2 use strict;
   3 use warnings;
   4 use lib 't/lib';
   5 use Class::Inspector;
   6 use AccessorGroups;
   7
   8 is(AccessorGroups->result_class, undef);
   9
  10 # croak on set where class can't be loaded
  11 my $dying = AccessorGroups->new;
  12 eval {
  13     $dying->result_class('Junkies');
  14 };
  15 ok($@ =~ /Could not load result_class 'Junkies'/);
  16 is($dying->result_class, undef);
  17
  18 ok(!Class::Inspector->loaded('BaseInheritedGroups'));
  19 AccessorGroups->result_class('BaseInheritedGroups');
  20 ok(Class::Inspector->loaded('BaseInheritedGroups'));
  21 is(AccessorGroups->result_class, 'BaseInheritedGroups');
  22
  23 ## unset it
  24 AccessorGroups->result_class(undef);
  25 is(AccessorGroups->result_class, undef);