Update VPIT::TestHelpers

[perl/modules/Task-Devel-Cover-Recommended.git] / t / lib / VPIT / TestHelpers.pm

diff --git a/t/lib/VPIT/TestHelpers.pm b/t/lib/VPIT/TestHelpers.pm
index 0ac92001aa66fe1e6594dd9a72a1878b77864f0f..42ff1897e3a869c6f79028347bc6f4784cad5425 100644 (file)
--- a/t/lib/VPIT/TestHelpers.pm
+++ b/t/lib/VPIT/TestHelpers.pm
@@ -16,17 +16,29 @@ sub import {
  }
 }
 
-sub skip_all {
- my ($msg) = @_;
- require Test::More;
- Test::More::plan(skip_all => $msg);
-}
+my $test_sub = sub {
+ my $sub = shift;
+ my $stash;
+ if ($INC{'Test/Leaner.pm'}) {
+  $stash = \%Test::Leaner::;
+ } else {
+  require Test::More;
+  $stash = \%Test::More::;
+ }
+ my $glob = $stash->{$sub};
+ return $glob ? *$glob{CODE} : undef;
+};
+
+sub skip_all { $test_sub->('plan')->(skip_all => $_[0]) }
 
 sub diag {
- require Test::More;
- Test::More::diag($_) for @_;
+ my $diag = $test_sub->('diag');
+ $diag->($_) for @_;
 }
 
+our $TODO;
+local $TODO;
+
 sub load_or_skip {
  my ($pkg, $ver, $imports, $desc) = @_;
  my $spec = $ver && $ver !~ /^[0._]*$/ ? "$pkg $ver" : $pkg;
@@ -48,6 +60,8 @@ IMPORTER
   }
   diag "Using $pkg $ver";
  } else {
+  (my $file = "$pkg.pm") =~ s{::}{/}g;
+  delete $INC{$file};
   skip_all "$spec $desc";
  }
 }