Even more corner case fixes - install the resolved final cref into the callER, not...

[p5sagit/Class-Accessor-Grouped.git] / t / accessors.t

diff --git a/t/accessors.t b/t/accessors.t
index 7432c0c..c04ece2 100644 (file)
--- a/t/accessors.t
+++ b/t/accessors.t
@@ -94,7 +94,12 @@ for my $name (sort keys %$test_accessors) {
     for my $meth ($name, $alias) {
         my $cv = svref_2object( $obj->can($meth) );
         is($cv->GV->NAME, $meth, "$meth accessor is named after operations");
-        is($cv->GV->STASH->NAME, 'AccessorGroups', "$meth class correct after operations");
+        is(
+          $cv->GV->STASH->NAME,
+          # XS lazyinstalls install into each caller, not into the original parent
+          $test_accessors->{$name}{is_xs} ? 'AccessorGroupsSubclass' :'AccessorGroups',
+          "$meth class correct after operations",
+        );
     }
 };