X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faccessors_xs.t;h=c7f9de4502b74c8658927297cf91d0d4bcd5e126;hb=e6f2993f0eaf4c08632889be16acd8dada42fb6c;hp=fdd251ea645be6c4ba5e5e5c062834759e78ca38;hpb=cfed50f29bcf6d80bb6e72146c5a051a3f36f656;p=p5sagit%2FClass-Accessor-Grouped.git

diff --git a/t/accessors_xs.t b/t/accessors_xs.t
index fdd251e..c7f9de4 100644
--- a/t/accessors_xs.t
+++ b/t/accessors_xs.t
@@ -24,10 +24,16 @@ for my $tname (qw/accessors.t accessors_ro.t accessors_wo.t/) {
   subtest "$tname with USE_XS (pass $_)" => sub {
     my $tfn = catfile($Bin, $tname);
 
-    delete $INC{$_} for (
-      qw/AccessorGroups.pm AccessorGroupsRO.pm AccessorGroupsSubclass.pm AccessorGroupsWO.pm/,
+    for (
+      qw|AccessorGroups.pm AccessorGroups/BeenThereDoneThat.pm AccessorGroupsRO.pm AccessorGroupsSubclass.pm AccessorGroupsWO.pm|,
       File::Spec::Unix->catfile ($tfn),
-    );
+    ) {
+      delete $INC{$_};
+      no strict 'refs';
+      if (my ($mod) = $_ =~ /(.+)\.pm$/ ) {
+        %{"${mod}::"} = ();
+      }
+    }
 
     local $SIG{__WARN__} = sub { warn @_ unless $_[0] =~ /subroutine .+ redefined/i };