Commit | Line | Data |
e1eaa4ae |
1 | use strict; |
2 | use warnings; |
3 | |
0d633b82 |
4 | use Test::More; |
5 | use B qw/svref_2object/; |
e1eaa4ae |
6 | |
0d633b82 |
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; |