X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faccessors_pp.t;h=5a28b2fb9341dad824276f4349fb42049f7ad4d7;hb=ed6069878c2506fed25cf5dd71c4fa6e276b80da;hp=67f1331c82935f2ddd8b8e62d5e6e0f62ad12413;hpb=5808b2245979b6d4c0582c10892e8526aa00d673;p=p5sagit%2FClass-Accessor-Grouped.git

diff --git a/t/accessors_pp.t b/t/accessors_pp.t
index 67f1331..5a28b2f 100644
--- a/t/accessors_pp.t
+++ b/t/accessors_pp.t
@@ -20,10 +20,14 @@ BEGIN {
   require Class::Accessor::Grouped;
 }
 
+
 # rerun the regular 3 tests under the assumption of no Sub::Name
-for my $tname (qw/accessors.t accessors_ro.t accessors_wo.t clean_namespace.t/) {
+our $SUBTESTING = 1;
+for my $tname (qw/accessors.t accessors_ro.t accessors_wo.t/) {
+
+  for (1,2) {
+    note "\nTesting $tname without Sub::Name (pass $_)\n\n";
 
-  subtest "$tname without Sub::Name (pass $_)" => sub {
     my $tfn = catfile($Bin, $tname);
 
     delete $INC{$_} for (
@@ -35,7 +39,7 @@ for my $tname (qw/accessors.t accessors_ro.t accessors_wo.t clean_namespace.t/)
 
     do($tfn);
 
-  } for (1 .. 2);
+  }
 }
 
 done_testing;