t/basic.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use B qw/svref_2object/;
   6
   7 use_ok('Class::Accessor::Grouped');
   8
   9 # ensure core accessor types are properly named
  10 #
  11 for (qw/simple inherited component_class/) {
  12   for my $meth ("get_$_", "set_$_") {
  13     my $cv = svref_2object( Class::Accessor::Grouped->can($meth) );
  14     is($cv->GV->NAME, $meth, "$meth accessor is named");
  15     is($cv->GV->STASH->NAME, 'Class::Accessor::Grouped', "$meth class correct");
  16   }
  17 }
  18
  19 done_testing;