X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F99-kwalitee.t;h=39c7c18c6145b7fec557c98fae1eeaae8bb65402;hb=aa9ca6bb3620015b44c886e95b0ed7b1353dbeee;hp=40f3eb03842c1afd459483ba13579ec6b70e4422;hpb=f609ee10b4b981c6c131936a39d13108d608a4fc;p=perl%2Fmodules%2Fre-engine-Hooks.git

diff --git a/t/99-kwalitee.t b/t/99-kwalitee.t
index 40f3eb0..39c7c18 100644
--- a/t/99-kwalitee.t
+++ b/t/99-kwalitee.t
@@ -5,14 +5,18 @@ use warnings;
 
 use Test::More;
 
-eval { require Parse::RecDescent; 'Parse::RecDescent'->VERSION('1.967006') }
-  or plan skip_all => 'Parse::RecDescent version 1.967006 or greater required';
+use lib 't/lib';
+use VPIT::TestHelpers;
 
-eval { require Module::ExtractUse; 'Module::ExtractUse'->VERSION('0.24') }
-  or plan skip_all => 'Module::ExtractUse version 0.24 or greater required';
+my $guard = VPIT::TestHelpers::Guard->new(
+ sub { unlink for glob 'Debian_CPANTS.txt*' }
+);
 
-eval { require Test::Kwalitee; 1 }
-  or plan skip_all => 'Test::Kwalitee required';
+my $desc = 'required to test kwalitee';
+
+load_or_skip('Parse::RecDescent',  '1.967006', undef, $desc);
+load_or_skip('Module::ExtractUse', '0.24',     undef, $desc);
+load_or_skip('Test::Kwalitee',     '1.01',     undef, $desc);
 
 SKIP: {
  eval { Test::Kwalitee->import(tests => [ '-use_strict' ]); };