X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fbasic.t;h=fa929fc36b736eb67d8302d269ebce10564aef25;hb=0d633b8208edc003d3acb32f59cf1b12a4992720;hp=b606605b483c4772b3c5942964df5e1f38472fa3;hpb=48dfec72c9e180bb499c5d2d83246a32db429bf5;p=p5sagit%2FClass-Accessor-Grouped.git

diff --git a/t/basic.t b/t/basic.t
index b606605..fa929fc 100644
--- 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;