From: Vincent Pit Date: Fri, 7 Sep 2012 11:50:34 +0000 (+0200) Subject: Make diag() and skip_all() use Test::Leaner if it is loaded X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=682b551acf9fe02f67ad76a2c1825a71c92bf762;p=perl%2Fmodules%2FVPIT-TestHelpers.git Make diag() and skip_all() use Test::Leaner if it is loaded --- diff --git a/lib/VPIT/TestHelpers.pm b/lib/VPIT/TestHelpers.pm index 591adf2..abee640 100644 --- a/lib/VPIT/TestHelpers.pm +++ b/lib/VPIT/TestHelpers.pm @@ -16,15 +16,23 @@ 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::; + } + return $stash->{$sub}; +}; + +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;