Add an extra sub-naming test

diff --git a/t/basic.t b/t/basic.t
index b606605..fa929fc 100644 (file)
--- a/t/basic.t
+++ b/t/basic.t
@@ -1,9 +1,19 @@
 use strict;
 use warnings;
 
-BEGIN {
-  use lib 't/lib';
-  use Test::More tests => 1;
+use Test::More;
+use B qw/svref_2object/;
 
-  use_ok('Class::Accessor::Grouped');
-};
+use_ok('Class::Accessor::Grouped');
+
+# ensure core accessor types are properly named
+#
+for (qw/simple inherited component_class/) {
+  for my $meth ("get_$_", "set_$_") {
+    my $cv = svref_2object( Class::Accessor::Grouped->can($meth) );
+    is($cv->GV->NAME, $meth, "$meth accessor is named");
+    is($cv->GV->STASH->NAME, 'Class::Accessor::Grouped', "$meth class correct");
+  }
+}
+
+done_testing;