Add debugging of undefer code reentrancy when a test environment is detected

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

diff --git a/t/accessors_xs.t b/t/accessors_xs.t
index fdd251e..c7f9de4 100644 (file)
--- 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 };