X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F99-kwalitee.t;h=337d917bb28b970a8d996e85c7fed24d10468b18;hb=d88107079931c69c144235da3382d13c05c600d7;hp=ea20ee1951fc67bdebb61f336affd240c60d4183;hpb=c8c63ca82acfd846da26784c952c9db37b22d574;p=perl%2Fmodules%2FTask-Devel-Cover-Recommended.git

diff --git a/t/99-kwalitee.t b/t/99-kwalitee.t
index ea20ee1..337d917 100644
--- a/t/99-kwalitee.t
+++ b/t/99-kwalitee.t
@@ -5,18 +5,16 @@ use warnings;
 
 use Test::More;
 
-sub VPIT::Guard::DESTROY { unlink for glob 'Debian_CPANTS.txt*' }
+use lib 't/lib';
+use VPIT::TestHelpers;
 
-my $guard = bless { }, 'VPIT::Guard';
+my $guard = VPIT::TestHelpers::Guard->new(
+ sub { unlink for glob 'Debian_CPANTS.txt*' }
+);
 
-eval { require Parse::RecDescent; 'Parse::RecDescent'->VERSION('1.967006') }
-  or plan skip_all => 'Parse::RecDescent version 1.967006 or greater required';
-
-eval { require Module::ExtractUse; 'Module::ExtractUse'->VERSION('0.24') }
-  or plan skip_all => 'Module::ExtractUse version 0.24 or greater required';
-
-eval { require Test::Kwalitee; 1 }
-  or plan skip_all => 'Test::Kwalitee required';
+load_or_skip_all('Parse::RecDescent',  '1.967006');
+load_or_skip_all('Module::ExtractUse', '0.24'    );
+load_or_skip_all('Test::Kwalitee',     '1.01'    );
 
 SKIP: {
  eval { Test::Kwalitee->import(); };